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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
MONITOR ENGLISH MESSAGE DECK 

TABLE OF CONTENTS 
PARAGRAPH PAGE 

1. PURPOSE 1 

2. REQUIREMENTS 1 

3. OPERATING PROCEDURE I 

4. PRINTOUTS (NONEI 

5. COMMENTS. 1 

6. APPENDIX (NONE) 

1. PURPOSE 

TO PROVIDE A MEANS WHEREBY THE 1800 DIAGNOSTIC MONITOR CAN PROVIDE 
PRINTOUTS IN ENGLISH FPR AH DIAGNOSTIC MONITOR CONTROLLED PROGRAMS 

2. REQUIREMENTS 

THIS PROGRAM IS USED AS AN EXTENSION OF THE 1800 DIAGNOSTIC MONITOR. 
THIS PROGRAM MUST BE PLACED AS THE LAST PROGRAM IN THE CARD DECK TO 
BE LOADED INTO CORE. THE DIAGNOSTIC MONITOR AND ONE OR MORE TEST 
PROGRAMS MUST BE IN CORE AT THE TIME THIS PROGRAM IS LOADED. 
THIS PROGRAM MAY 8E USED ONLY IF CARD IPL IS BEING USEDt AND 
CANNOT BE STORED ON THE DISK USING THE DIMAL SYSTEM. 

3. OPERATING PROCEOURE 

PLACE THIS DECK AS THE LAST PROGRAM TO BE LOADED. 

OTHERWISE STANDARD MONITOR LOADING AND OPERATING PROCEDURES APPLY. 

REFER TO THE DIAGNOSTIC MONITOR DOCUMENTATION. 

4. PRINTOUTS 

NO PRINTOUTS ARE INITIATED BY THIS PROGRAM 

5. COMMENTS 

THE FIRST THREE CARDS IN THE ENGLISH MESSAGE DECK CONTAIN A SHORT PROGRAM. 
THE FUNCTIONS PERFORMED 8Y THIS PROGRAM ARE.. 

A. CHECK IF THE ENGLISH MESSAGE DECK LOADER SECTION OF THE MONITOR IS 
IN CORE (THIS SECTION OF MONITOR MAY BE OVERLAID BY TEST PROGRAMS). 

B. IF THE ENGLISH DECK LCADER IS IN CORE TRANSFER CONTROL TO THAT SECTION. 

C. IF THE ENGLISH DECK LCACER IS NCT IN CORE TRANSFER TO THE ENGLISH DECK 
INTERFACE SECTION OF MONITOR. THE INTERFACE SECTION WILL THEN PRINT 

A MESSAGE IDENTIFYING THIS CONDITION AND HALT AT AN ERROR WAIT. 

THE REMAINING CARDS CONTAIN THE ENGLISH LANGUAGE MESSAGES. THESE CARDS 
ARE READ INTO CORE BY THE ENGLISH DECK LOADER IN THE MONITOR. ONLY THOSE 
MESSAGES WHICH APPLY TC PRCGRAMS CURRENTLY IN CORE ARE RETAINED IN CORE. 
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MONITOR ENGLISH MESSAGE DECK 

THE FORMAT OF THESE CARDS IS AS FOLLOWS.. 

COLUMNS 1 THRU 70 CONTAIN THE CODE FOR THE ENGLISH MESSAGES. 

COLUMN 71 CONTAINS A 12 BIT CHECK SUM. 

COLUMN 72 IS BLANK 

COLUMNS 73 THRU 75 CONTAIN THE PROGRAM IDENTIFICATION NUMBER. 

COLUMNS 76 THRU 80 CONTAIN A CARD SEQUENCE NUMBER. 

THE ENGLISH MESSAGES ARE CODED IN CARD COLUMNS X THRU 70 AS FOLLOWS.. 

THE FIRST COLUMN OF EACH MESSAGE IS A TERMINATOR (ALL ROWS PUNCHED J. 
ROWS 12-5 OF THE SECOND COLUMN CONTAIN THE LAST TWO HEX DIGITS OF THE 
PIO OF THE PROGRAM THE MESSAGE IS ASSOCIATED WITH. ROWS 6-9 OF THE 
SECOND COLUMN CONTAIN THE FIRST HEX DIGIT OF THE MESSAGE ID NUMBER (MID). 
THE THIRD COLUMN CONTAINS THE REMAINING THREE DIGITS OF THE MID. 
THE FOURTH COLUMN CONTAINS THE COUNT OF THE NUMBER OF CHARACTERS IN 
THE FIRST LINE TO BE PRINTED. THIS COUNT MUST BE EVEN AND IN THE 
RANGE OF TO 60. SUBSEQUENT COLUMNS (COUNT/2) CONTAIN THE CODE FOR 
THE ENGLISH CHARACTERS— TWO CHARACTERS PER COLUMN. THE CODE USED IS 
THE 6 BIT CODE DESCRIBED BELOW. SUBSEQUENT LINES OF THE SAME MESSAGE 
BEGIN WITH THE CHARACTER COUNT (NO PID OR HID) FOLLOWED BY THE 
CHARACTER CODE. A SINGLE TERMINATOR MARKS THE END OF ONE MESSAGE 
ANO THE BEGINNING OF THE NEXT. THE LAST MESSAGE IN THE LAST CARD ENDS 
WITH A TERMINATOR. LINES AND MESSAGES ARE PUNCHED IN CONTIGUOUS 
COLUMNS AND CARRY OVER FROM COLUMN 70 OF ONE CARD TO COLUMN 1 OF THE 
NEXT SO THAT ALL COLUMNS ARE USED. 
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6 BIT CHARACTER CODE 
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*************************************************** 
*************************************************** 

* MONITOR ENGLISH MESSAGE OECK 

*************************************************** 

*************************************************** 

* 

THE 1800 ENGLISH LANGUAGE MESSAGE DECK IS USED 
IN CONJUNCTION WITH THE 1800 DIAGNOSTIC MONITOR 
PROGRAM TO PROVIDE ENGLISH LANGUARE PRINTOUTS 
FOR ALL DIAGNOSTIC MONITOR CONTROLLED PROGRAMS. 



THE FIRST THREE CARDS OF THE ENGLISH MESSAGE 
DECK CONTAIN THE PROGRAM THE LISTING OF WHICH 
APPEARS BELOW. THE FUNCTION OF THIS PROGRAM IS 
TO XFER CONTROL TO THE ENGLISH MESSAGE DECK 
LOADER SECTION OF THE MONITOR. IF THE ENGLISH 
LOADER SECTION OF THE MCNITCR IS NOT IN CORE 
THEN THE XFER IS TO AN ERROR WAIT IN THE MONITOR. 

THE REMAINING CARDS IN THE ENGLISH MESSAGE DECK 
CONTAIN THE CONTENT OF THE ENGLISH MESSAGES. 
THESE CARDS ARE READ BY THE ENGLISH OECK LOADER 
SECTION OF THE MONITOR. 



07FF 

006 F 
0135 

07FF 
0801 

0803 
0805 

0808 
NO 







C400 0135 
44A0 0135 

6C00 0070 
4C00 0136 



ORG 
* 

RLBA EOU 
ENGLD ECU 



DECK 

* 



LD 
BSI 

STX 
8SC 



♦♦/07FF 

/006F 
/0135 

ENGLD 
ENGLD t Z 

RLBA+1 
ENGLD+1 



GO TO ENG DECK LOAOER IF 
* LOADER IS STILL IN CORE 

SET LAST CARD INDICATOR 
GO TO ERR WAIT IN MONITOR 



07FF END DECK 

STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY 
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80C00020 
8CC00030 
80C 00040 
80C00050 
8CC00060 
80C00070 
80C00080 
80C00090 
80C00100 
80C00110 
80C00120 
80C00130 
80C 00140 
80C 00150 
80C00160 
80C 00170 
80C00180 
80C00190 
80C00200 
80C00210 
80C00220 
80C00230 
80C00240 
8 OC 002 50 
80C 00260 
80C00270 
80C00280 
80C00290 
80C00300 
8 OC 00310 
80C00320 
80C00330 
8 OC 00 340 
80C00350 
80C 00360 
80C00370 
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DECK 07FF 0808 

ENGLD 0135 07FF 0801 0805 

RLBA 006F 0803 

END OF ASSEMBLY 
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******************************************************************************** 

***** PROGRAMMER - NOTE BELOW ***** 

SECTION 5.8 OF THIS DOCUMENT CONTAINS REFERENCES TO SLT BOARO PINS FOR 
INSTALLATION OF TEST JUMPERS. BEFORE RELEASE OF THIS DOCUMENT, ENSURE THAT 
THESE REFERENCES MATCH THE LATEST HARDWARE LEVEL. DELETE THIS NOTE FROM 
DOCUMENTATION BEFORE RELEASE. 

******************************************************************************** 
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CA TRANSMIT/RECEIVE TEST 

2. REQUIREMENTS 

2.1 PROGRAM REQUIREMENTS 

THE 1800 CA TRANSMIT/RECEIVE TEST MUST OPERATE UNDER CONTROL OF 
THE 1800 DIAGNOSTIC MONITOR. 

2.2 EQUIPMENT REQUIREMENTS 

A) EQUIPMENT AS REQUIRED FOR OPERATION OF THE 1800 DIAGNOSTIC 
MONITOR. 

B) A MINIMUM OF 8K OF CORE STORAGE 

C) THE 1800 CA FEATURE 

D) CA CONNECTION THROUGH THE PROPER MODEM EQUIPMENT TO A REMOTE 
BSC STATION. 

2.3 REMOTE STATION REQUIREMENTS 

THE REMOTE STATION MUST HAVE OPTIONAL BSC FEATURES (CODE, LINE 
SPEED, ETC.) WHICH ARE COMPATIBLE WITH THE CA TO BE TESTED. THE 
REMOTE STATION MUST BE CAPABLE OF TRANSMITTING AND/OR RECEIVING 
AND RESPONDING TO REQUEST-FOR-TEST (RFT) AND TEST MESSAGES AS 
DESCRIBED IN THIS DOCUMENT. IN A MULTIPOINT NETWORK ONE OF THE 
REMOTE STATIONS MUST PROVIDE THE FUNCTIONS OF THE CONTROL STATION. 



OPERATING PROCEDURE 

**CAUTION** STANDARD DIAGNOSTIC MONITOR LOADING AND OPERATING PROCEDURES 
ARE NOT WHOLLY APPLICABLE TO THIS PROGRAM. REFER TO 3.1 AND 3.2 BELOW. 

3.1 PROGRAM LOADING 

LOADING PROCEDURES ARE SUMMARIZED HERE. REFER TO DIAGNOSTIC 
MONITOR (DM) USE PROCEDURE FOR ADDITIONAL DETAILS. 

A) NOTIFY THE REMOTE STATION OPERATOR THAT THE 1800 WILL BE TAKEN 
OFF-LINE FOR LOADING AND EXECUTION OF DIAGNOSTIC PROGRAMS. 

B) IF DESIRED, INSTALL OPTIONAL TEST JUMPER(S). (REFER TO SEC. 5.8) 

C) ENSURE THAT THE CA PROGRAM IS EDITED FOR THE CA LINE TO BE 
TESTED. (REFER TO 6.4) 

D) CLEAR STORAGE TO /70FF. 

E) LOAD THE DIAGNOSTIC MONITOR. 

F) SELECT DM PROGRAM LOAD OPTIONS. (SEE NOTE BELOW) 

G) LOAD THE DIAGNOSTIC PROGRAM (S). 

NOTE.. .ON SYSTEMS HAVING OVER 32K OF CORE STORAGE, CARE SHOULD BE 
TAKEN TO AVOID LOADING THE CA DIAGNOSTIC ACROSS THE 32K CORE 
BOUNDARY. THE CA DIAGNOSTIC OCCUPIES 6K OF CORE AND SHOULD START 
LOADING EITHER BELOW ADDRESS /67FF OR ABOVE ADDRESS /7FFF. 
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PURPOSE 

THE PURPOSE OF THE 1800 CA TRANSMIT/RECEIVE TEST IS TO PROVIDE PROGRAM 
ABILITY TO OPERATE THE COMMUNICATIONS ADAPTOR (CA) IN AN OVER-THE-LINE TEST 
OF SYSTEM PERFORMANCE WITH ANOTHER BSC STATION. 
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3.2 PROGRAM OPERATION 

**CAUTION** 

THE MONITOR 'HALT' AND 'HALT ON ERROR' OPTIONS MUST NOT BE SELECTED 
WHILE THE CA PROGRAM IS IN EXECUTION. THE MONITOR 'BYPASS ERROR 
PRINTOUTS' AND 'LOOP ON ERROR' OPTIONS MAY BE USED TO CONTROL 
OTHER PROGRAMS BUT WILL HAVE NO EFFECT ON CA PROGRAM OPERATION. 

OPERATING PROCEDURES ARE SUMMARIZED HERE. REFER TO DIAGNOSTIC 
MONITOR USE PROCEDURE AND SECTION 5. OF THIS DOCUMENT FOR 
ADDITIONAL DETAILS. 

A) LOAD PROGRAMS (REFER 3.1) 

B) SELECT MONITOR CONTROL OPTIONS IF DESIRED (SEE CAUTION ABOVE). 

C) SELECT CA PROGRAM CONTROL OPTIONS FROM TABLE IF DESIRED. 

D) INSTRUCT MONITOR TO EXECUTE. THE PROGRAM SHOULD BEGIN MONITORING 
THE COMMUNICATION LINE ( AAAX PRINTOUTS). 

E) ON A MULTIPOINT LINE IT MAY BE NECESSARY TO INFORM THE CONTROL 
STATION OPERATOR THAT THE LOCAL STATION IS READY TO ACCEPT 
POLLING AND SELECTION. 

F) ON A SWITCHED LINE, INCOMING CALLS MAY BE ANSWERED EITHER 
MANUALLY, BY ANSWERING THE PHONE AND PRESSING THE DATA BUTTON 
ON THE DATA SET, OR AUTOMATICALLY, BY PRESSING THE AUTO-ANSWER 
BUTTON ON THE DATA SET. 

G) TO TRANSMIT A REQUEST-FOR-TEST MESSAGE... 

1. SELECT DESIRED TEST MESSAGE COUNT (Y) FROM TABLE 3. 

2. SELECT DESIRED REQUEST-FOR-TEST MESSAGE FROM TABLE 1. 
THE PROGRAM SHOULD BEGIN ATTEMPTING TO TRANSMIT THE RFT. 

3. ON A SWITCHED LINE, DIAL THE REMOTE STATION. 



NOTE... PROGRAM OPTIONS MAY BE CHANGED AT ANY TIME, HOWEVER, IF 
OPTIONS ARE CHANGED WHILE TEST TRANSMISSIONS ARE IN PROGRESS, THE 
NEW OPTIONS MAY NOT TAKE EFFECT UNTIL THE NEXT TEST IS STARTED. 
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PROGRAM CONTROL OPTIONS 
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1. SET FUNCTION 00 IN SENSE/PROGRAM SWITCHES AND 1. 

2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

3. SET DESIRED CONTROL OPTIONS IN DATA ENTRY SWITCHES 0-15. 

4. PRESS CONSOLE INTERRUPT. 



******************* 

* SENSE/PROGRAM * 

♦ 01234567* 

* * 

♦ 00001101* 

******************************************************************************** 



* 
* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



1 2 3 



DATA ENTRY SWITCHES * DESCRIPTION 

4 5 6 7 8 9 10 11 12 13 14 15 * 
..... . . . . . •* 

1....END PROGRAM 



* 
* 
* 

1 TERMINATE CURRENT TRACE PRINTOUTS * 

1 TERMINATE CURRENT D003 PRINTOUTS * 

1 BYPASS EE07 PRINTOUTS * 

1 TRACE ALL DATA * 

1 TRACE ENTIRE TEST * 

. . . . 1 BYPASS XMIT/RECEIVE TABLE PRINTOUTS * 

. . . 1 BYPASS ENTIRE TRACE * 

. . 1 BYPASS START OF TEST STATUS MSAGS * 

. 1 OPERATE CA IN NORMAL MODE ONLY * 

1 ALLOW THE EOT XMIT AT TIMEOUT TIME * 



******************************************************************************** 



15-0N=END PROGRAM 

CAUSES THE CA TO BE IMMEDIATELY CLEARED (RESET). 
TRANSFERED TO THE MONITOR END ROUTINE. 



CONTROL IS THEN 



14-0N=TERMINATE CURRENT TRACE PRINTOUTS 

HAS EFFECT ONLY IF SELECTEO WHILE THE END-OF-TEST TRACE PRINTOUTS 
ARE BEING OUTPUT. CAUSES THE REMAINING PRINTOUTS TO BE BYPASSED. 



13-0N=TERMINATE CURRENT D003 PRINTOUT 

HAS EFFECT ONLY IF SELECTED DURING A D003 PRINTOUT. 
REMAINDER OF PRINTOUT TO BE BYPASSED. 



CAUSES 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
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* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

******************************************************************************** 



12-0N=BYPASS EE07 PRINTOUTS 

CAUSES EE07 END-OF-TEST PRINTOUTS AND THE ASSOCIATED TRACE PRINTOUTS 
TO BE BYPASSED (REFER EE07 PRINTOUT DESCRIPTION). 

11-0N=TRACE ALL DATA 

CAUSES THE ENTIRE TRANSMIT AND/OR RECEIVE TABLE(S) TO BE INCLUDED IN 
THE D003 PRINTOUT. NORMALLY ONLY THE FIRST AND LAST 14 WORDS FROM 
EACH TABLE ARE INCLUDED IN THE PRINTOUT. 

10-0N=TRACE ENTIRE TEST 

CAUSES ALL TEST ROUTINES EXECUTED DURING THE TEST PROCEDURE TO BE 
INCLUDED IN THE TRACE PRINTOUTS. NORMALLY ONLY THOSE ROUTINES IN 
WHICH AN ERROR OCCURED ARE INCLUDED. 

9-0N=BYPASS TRANSMIT AND RECEIVE TABLE PRINTOUTS 

CAUSES THE TRANSMIT AND RECEIVE TABLES TO BE OMITTED FROM THE D003 
PRINTOUTS. 

8-0N=BYPASS ENTIRE TRACE 

CAUSES ALL TRACE PRINTOUTS, INCLUDING ERROR MESSAGES, TO BE BYPASSED. 

7-0N=BYPASS START OF TEST STATUS MSGS 

CAUSES ALL START OF TEST STATUS PRINTOUTS (AAAX) TO BE BYPASSED. 

6-0N=0PERATE CA IN NORMAL MODE ONLY 

CAUSES ALL TEST ROUTINES TO OPERATE IN NORMAL MODE. IF THIS OPTION 
IS NOT SELECTED MOST ROUTINES WILL OPERATE IN DIAGNOSTIC MODE. 
(REFER TO SECTION 5.7) 

5-0N=ALL0WS THE EOT XMIT AT TIMEOUT TIME 



* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



TURN THIS SWITCH ON TO CAUSE EOT TRANSMISSION AT RECEIVE TIMEOUT TIME.* 
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TABLE 1 - FUNCTION 1 

TRANSMIT RFT SELECTION (REFER SECTIONS 5.2 6 5.3) 

******************* l# SET FUN CTI0N 01 IN SENSE /PROGRAM SWITCHES AND 1. 

* SENSE/PROGRAM * 2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

* 1 2 3 4 5 6 7 * 3. SET DESIRED OPTIONS IN DATA ENTRY SWITCHES THRU 15. 

* * 4. PRESS CONSOLE INTERRUPT 
*01001101* 
******************************************************************************** 

* DATA ENTRY SWITCHES * DESCRIPTION * 

* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * * 

* * * 

* XXXXXXX X....TEST MESSAGE NUMBER - ENTER AS TWO * 

* DECIMAL DIGITS. * 

* 1 LOOP REOUEST-FOR-TEST. * 

* ° ° XMIT RFT WITH X=00, THEN XMIT THE * 

* SPECIFIED TEST MSG Y TIMES. * 

* ° l XMIT RFT WITH X=01 AND INCLUDING * 

* THE SPECIFIED TEST MSG. * 

* l ° XMIT RFT WITH X EQUAL TO THE * 

* SPECIFIED TEST MSG NUMBER. * 

* 1 l XMIT ALL POSSIBLE RFT'S AND ALL * 

* POSSIBLE TEST MESSAGES. * 
♦0000000000 0... .DESELECT PREVIOUS SELECTION * 
*****************************************************************************„.,„* 

* FUNCTION 1 COMMENTS * 

* DE SWS * 

* 8-15=TEST MESSAGE NUMBER IN DECIMAL (NO ENTRY REQUIRED IF SWS AND 1=11) * 

* ENTER, AS TWO DECIMAL DIGITS, THE NUMBER OF THE TEST MESSAGE TO BE * 

* USED DURING THE TEST. REFER TO 5.3 FOR CONTENT OF TEST MESSAGES. * 

* VALID TEST MESSAGE NUMBERS ARE... * 

* EBCDIC NORMAL TEXT - 04, 12, 13, 14, 15, AND 16 * 

* EBCOIC TRANSPARENT TEXT - 02, 19, 20, 21, AND 22 (DO NOT USE 19 WITH * 

* X=01> * 

* ASCII NORMAL TEXT - 05, 06, 07, AND 08 * 

* TEST MESSAGE NUMBER 01 MAY BE USED ON EITHER EBCDIC OR ASCII MACHINES * 

* IF DE SWS AND 1 ARE SET TO 00 OR 01. * 

* * 

* 7-0N=L00P REQUEST-FOR-TEST * 

* IF THIS OPTION IS SELECTED THE PROGRAM WILL REPEAT THE SELECTED TEST * 

* UNTIL ANOTHER FUNCTION 1 ENTRY IS SELECTEO. * 

* * 

* 0-l=00=SELECTION OF THIS OPTION CAUSES A REQUEST-FOR-TEST MESSAGE TO BE * 

* TRANSMITTED WITH AN X VALUE OF 00. AFTER THE REMOTE TERMINAL HAS * 

* ACKNOWLEDGED THE RFT, THE TEST MESSAGE SPECIFIED BY SWS 8-15 IS * 

* TRANSMITTED Y TIMES. * 
* 

* 0-l=01=THIS OPTION CAUSES AN RFT MESSAGE TO BE TRANSMITTED THAT HAS AN * 

* X VALUE OF 01 AND CONTAINING THE TEST MESSAGE SPECIFIED BY SWS 8-15. * 

* THE REMOTE STATION SHOULD THEN TRANSMIT THE TEST MESSAGE Y TIMES. * 

* TEST MESSAGE 19 CANNOT BE USED WITH THIS OPTION. * 

* * 

* 0-l=10=THIS OPTION CAUSES AN RFT MESSAGE TO BE TRANSMITTED THAT HAS AN * 

* - X VALUE AS SPECIFIED IN SWITCHES 8-15. THE REMOTE TERMINAL SHOULD * 

* THEN TRANSMIT THE SPECIFIED TEST MESSAGE Y TIMES. TEST MESSAGE 01 * 

* CANNOT BE USED WITH THIS OPTION. * 

* * 

* 0-l=ll=SELECTION OF THIS OPTION CAUSES ALL TEST PROCEDURES THAT CAN BE * 

* INITIATED ON THE SYSTEM IN USE TO BE SEQUENTIALLY EXECUTED, EXCEPT * 

* THOSE TESTS THAT REQUIRE USE OF TEST MESSAGE 01. NO TEST MESSAGE * 

* NUMBER ENTRY IS REQUIRED WITH THIS OPTION. * 

* * 

* ALL OFF=SELECTION OF FUNCTION 1 WITH ALL DATA ENTRY SWITCHES OFF MAY BE * 

* USED TO DESELECT A PREVIOUS FUNCTION 1 ENTRY UNLESS THE SELECTED * 

* TEST IS ALREADY IN PROGRESS. THE PRIMARY PURPOSE OF THIS OPTION * 

* IS TO PROVIDE A MEANS FOR DESELECTION OF THE 'LOOP REQUEST-FOR-TEST' * 

* AND 'TRANSMIT ALL REQUEST-FOR-TESTS ' OPTIONS. * 
******************************************************************************** 



TABLE 3 - FUNCTION 3 

Y VALUE SELECTION (REFER SECTION 5.2) 



1. SET FUNCTION 11 IN SENSE/PROGRAM SWITCHES AND 1. 

2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 
SET DESIRED OPTIONS IN DATA ENTRY SWITCHES 8 THRU 15. 



3. 



******************* 

* SENSE/PROGRAM * 

* 01234567* 

* * 
*11001101* 

******************************************************************************** 



4. PRESS CONSOLE INTERRUPT. 



1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * 



DATA ENTRY SWITCHES 



X X 



DESCRIPTION 



* 

* 

* 

.TEST MESSAGE COUNT (Y VALUE) TO BE * 

USED IN RFT MESSAGE. ENTER AS TWO * 

DECIMAL DIGITS. VALID VALUES * 

ARE 01 THROUGH 99. * 



***************************************** *************************************** 

* FUNCTION 3 COMMENTS 

* DE SWS 

* 8-15=TEST MESSAGE COUNT (Y VALUE) IN DECIMAL 
ENTER, AS TWO DECIMAL OIGITS, THE Y VALUE TO BE USED IN RFT MESSAGES 
TRANSMITTED. THE Y VALUE SPECIFIES THE NUMBER OF TEST MESSAGES TO BE 
TRANSMITTED. VALID VALUES ARE 01 THROUGH 99. IF NO ENTRY OR AN 
INVALID ENTRY IS SELECTED, THE PROGRAM WILL USE A VALUE OF 03. 
IT SHOULD BE NOTED THAT LARGE Y VALUES MAY CAUSE CORE TO BECOME FULL 
OF STORED TRACE INFORMATION BEFORE THE END OF THE TEST, ESPECIALLY IF 
THE 'TRACE ENTIRE TEST' OPTION IS SELECTED. LARGE Y VALUES ARE 
RECOMMENDED ONLY FOR STATISTICAL EVALUATION OF LINE CONDITION (D001 
AND D002 PRINTOUTS) AND FOR USE IN SCOPING. (REFER SECTION 5.8) 



* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
******************************************************************************** 

3.3 PROGRAM HALTS 

THE 1800 CA TRANSMIT/RECEIVE TEST CONTAINS ONLY ONE PROGRAM HALT. 
THIS HALT INDICATES AN ERROR IN LOAOING OR EDITING THE PROGRAM, 
AND CAN ONLY OCCUR ON THE FIRST ATTEMPT TO EXECUTE THE PROGRAM AFTER 
INITIAL LOAD. THE HALT IS ALWAYS PRECEEDED BY A PRINTOUT INDICATING 
THE ERROR CONDITION. THIS HALT MAY BE IDENTIFIED BY THE PRINTOUT 
OR BY THE CONTENTS OF THE B REGISTER BEING /30CA. 

3.4 PROGRAM TERMINATION 

THE 1800 CA TRANSMIT/RECEIVE TEST TERMINATES ONLY IF THE 
'END PROGRAM' OPTION IS SELECTED. (SEE SECTION 3.2, TABLE 1) 

3.5 RESTART PROCEDURE 

STANOARD MONITOR RESTART PROCEDURES MAY BE USED. 
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4. PRINTOUTS 

ALL PRINTOUTS PRODUCED BY THIS PROGRAM ARE IN THE STANDARD DIAGNOSTIC 
MONITOR FORMAT (PID MID RID RAD MODIFIERS). IN ALL FOLLOWING SAMPLE 
PRINTOUTS THE PID IS OMITTED, ROUTINE ID NUMBER (RID) IS REPRESENTED BY 
RRRR, ROUTINE ADDRESS (RAD) IS REPRESENTED BY AAAA, HEXADECIMAL MODIFIERS 
ARE REPRESENTED BY XXXX, AND DECIMAL MODIFIERS ARE REPRESENTED BY XXXXXXXX. 



AA02 RRRR AAAA 



NORMAL END OF TEST - TEST MESSAGE TRANSMITTER. THE REQUIRED 

NUMBER OF TEST MESSAGES HAVE BEEN TRANSMITTED TO THE REMOTE STATION. 



A001 RRRR AAAA 



4.1 



STATUS (AXXX) PRINTOUTS 



RAN OUT OF CORE STORAGE. CORE STORAGE BECAME FULL WHILE STORING 
TRACE INFORMATION. ALL FOLLOWING TRACE INFORMATION WAS LOST. 



AAA1 0000 0000 



A003 RRRR AAAA 



THE PROGRAM IS MONITORING THE LINE FOR THE MULTIPOINT POLLING OR 
SELECTION ADDRESS. 



EOT RECEIVED DURING LINE INITIALIZATION ATTEMPTS. THIS IS A NORMAL 
ATTEMPT BY THE REMOTE STATION TO RESET THE LINE TO A KNOWN CONDITION. 
THE EOT GIVES THE LOCAL STATION THE RIGHT TO TRANSMIT IF REQUIRED. 



AAA2 0000 0000 



THE PROGRAM IS MONITORING THE LINE FOR A LINE BID (ENQ) FROM THE 
REMOTE STATION. 



A004 RRRR AAAA 



DISC RECEIVED DURING LINE INITIALIZATION ATTEMPTS. THIS IS A NORMAL 
INDICATION THAT THE REMOTE STATION IS DISCONNECTING FROM THE LINE. 
THE LOCAL STATION WILL ALSO DISCONNECT. 



AAA3 0000 0000 



THE PROGRAM IS MONITORING THE LINE FOR THE SWITCHED LINE INITIALI- 
ZATION SEQUENCE (ID ENQ). IF AUTO-ANSWER IS DESIRED, ENSURE THAT THE 
AUTO-ANSWER BUTTON ON THE DATA SET IS DEPRESSED. 



A006 RRRR AAAA 



NORMAL COMPLETION OF TEST ROUTINE 01 (CLEAR CA). THE CA WAS CLEARED, 
THE CONTINUE TIMER STARTED, AND THE EXPECTED INTERRUPT OCCURED 
WITHOUT ERROR. 



AAA4 0000 0000 



THE PROGRAM IS BIDDING FOR THE LINE (TRANSMITTING ENQ) IN AN ATTEMPT 
TO TRANSMIT A REQUEST-FOR-TEST MESSAGE. 



AAA5 0000 0000 



THE PROGRAM IS ATTEMPTING TO TRANSMIT THE SWITCHED LINE INITIALI- 
ZATION SEQUENCE (ID ENQ). THE OPERATOR SHOULD DIAL THE REMOTE 
STATION AT THIS TIME. 



A008 RRRR AAAA 



AAA6 0000 0000 



THE PROGRAM IS WAITING FOR A RINGING INDICATION FROM THE DATA SET. 
ENSURE THAT THE AUTO-ANSWER BUTTON ON THE DATA SET IS DEPRESSED. 



AAA7 0000 0000 



THE PROGRAM IS ATTEMPTING TO TRANSMIT A THREE SECOND TONE. THIS IS 
AN UNUSUAL USE OF THE EDIT CARD OPTIONS. THE TRANSMIT TONE OPTION 
IS SELECTED, BUT NOT THE AUTO-ANSWER OPTION. WITH THIS CONFIGURATION 
AUTO-ANSWER WILL BE ACCOMPLISHED BY INITIALIZING THE CA IN TRANSMIT 
MODE RATHER THAN WAITING FOR A RINGING INTERRUPT TO OCCUR. DEPRESS 
THE AUTO-ANSWER BUTTON ON THE DATA SET TO ENABLE THE AUTO-ANSWER. 



DATA SET NOT READY AFTER AN ATTEMPT TO RECEIVE THE INITIAL ID ENQ 
SEQUENCE. THIS INDICATES THAT NO LINE CONNECTION TO THE REMOTE 
STATION HAS YET BEEN ESTABLISHED. 

A009 RRRR AAAA 

NOTHING WAS RECEIVED ON AN ATTEMPT TO RECEIVE THE INITIAL ENQ OR 

ID ENQ. THIS IS NOT CONSIDERED AN ERROR CONDITION SINCE THE PROBABLE 

CAUSE IS THAT THE REMOTE STATION HAS NOTHING TO TRANSMIT. 

AOOA RRRR AAAA 

INITIAL ENQ OR ID ENQ SUCCESSFULLY RECEIVED FROM THE REMOTE STATION. 

AOOC RRRR AAAA 

DATA SET NOT READY AFTER AN ATTEMPT TO TRANSMIT THE INITIAL ID ENQ 
AND RECEIVE THE RESPONSE. THIS IS NOT CONSIDERED AN ERROR SINCE THE 
PROBABLE COUSE IS THAT THE OPERATOR HAS NOT YET DIALED THE REMOTE 
STATION AND ESTABLISHED THE CONNECTION. 



AA01 RRRR AAAA 



NORMAL ENO OF TEST - TEST MESSAGE RECEIVER. THE EXPECTED NUMBER (Y) 
OF TEST MESSAGES WERE RECEIVED FROM THE REMOTE STATION. 
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NOTHING MAS RECEIVED ON AN ATTEMPT TO RECEIVE A RESPONSE TO THE 
INITIAL ENQ OR 10 ENO. THIS IS NOT CONSIDERED AN ERROR CONDITION 
SINCE IT IS PROBABLY CAUSED BY THE REMOTE STATION BEING TEMPORARILY 
UNABLE TO RECEIVE. 



AOOE RRRR AAAA 



ENQ RECEIVED IN RESPONSE TO THE INITIAL ENQ TRANSMITTED. THIS 
INDICATES THAT THE REMOTE STATION IS ALSO BIDDING FOR THE LINE. IF 
THE EDIT CARDS DESIGNATE THE LOCAL STATION AS THE SECONDARY STATION, 
THEN THE PROGRAM MILL YIELD THE LINE TO THE REMOTE STATION. 
OTHERWISE, THE PROGRAM HILL TRANSMIT ENQ AGAIN FOR UP TO N TRIES. 



AOOF RRRR AAAA 



POSITIVE ACKNOWLEDGEMENT (ACKO OR 10 ACKO) SUCCESSFULLY RECEIVED IN 
RESPONSE TO THE INITIAL ENQ OR 10 ENQ. 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CA TRANSMIT/RECEIVE TEST 

A018 RRRR AAAA 

THREE SECOND TONE WAS SUCCESSFULLY TRANSMITTED. 

A01A RRRR AAAA 

A RECEIVE TIMOUT OCCUREO (NOTHING RECEIVED) WHILE MONITORING THE 
MULTIPOINT NETWORK IN THE PASSIVE RECEIVE MODE. THIS IS NOT 
CONSIDERED AN ERROR CONDITION SINCE THE LOCAL STATION NORMALLY 
CANNOT RECEIVE FROM OTHER TRIBUTARY STATIONS. TIMEOUTS ARE THEREFORE 
EXPECTED TO OCCUR UNTIL THE CONTROL STATION TRANSMITS. 

A01B RRRR AAAA 

SOMETHING OTHER THAN EOT WAS RECEIVED WHILE MONITORING THE LINE IN 
THE RECEIVE PASSIVE MODE. GENERALLY THE CHARACTERS RECEIVED CAN BE 
IGNORED SINCE THE ONLY PURPOSE OF RECEIVE PASSIVE MODE IS TO DETECT 
THE APPEARANCE OF EOT ON THE LINE. ONLY THE FIRST FOUR CHARACTERS 
RECEIVED (THE 1ST TABLE) WILL BE INCLUDED IN THE D003 PRINTOUT. 
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A010 RRRR AAAA 



A01C RRRR AAAA 



NAK OR ID NAK RECEIVED IN RESPONSE TO THE INITIAL ENQ OR 10 ENQ. 
THIS INDICATES THAT THE REMOTE STATION IS TEMPORARILY UNABLE TO 
RECEIVE THE RFT MESSAGE. 



EOT RECEIVED WHILE MONITORING THE LINE IN THE RECEIVE PASSIVE MODE. 
THIS RESETS THE LINE TO CONTROL MODE AND THE PROGRAM WILL ATTEMPT TO 
RECEIVE THE POLLING OR SELECTION ADDRESS. 



A011 RRRR AAAA 



A01E RRRR AAAA 



WACK RECEIVED IN RESPONSE TO THE INITIAL ENQ OR ID ENQ. THIS 
INDICATES THAT THE REMOTE STATION IS TEMPORARILY UNABLE TO RECEIVE 
THE RFT MESSAGE. 



A013 RRRR AAAA 



NOTHING WAS RECEIVED ON AN ATTEMPT TO RECEIVE THE POLLING OR 
SELECTION ADDRESS. THIS IS NOT CONSIDERED AN ERROR SINCE THE 
CONDITION PROBABLY OCCURED WHILE ANOTHER TRIBUTARY STATION WAS 
TRANSMITTING. THE LOCAL STATION CANNOT RECEIVE FROM ANOTHER 
TRIBUTARY. 



THE CONTINUE TIMER TIMED OUT WHILE WAITING FOR A RINGING INTERRUPT. 
THE TIMER WILL BE RESTARTED ANO THE PROGRAM WILL CONTINUE WAITING FOR 
AN INCOMING CALL. 



A01F RRRR AAAA 



A014 RRRR AAAA 



THE CONTINUE TIMER TIMED OUT WHILE WAITING FOR A RINGING INTERRUPT 
ANO THE DATA SET READY INDICATOR WAS FOUND TO BE ON. THE PROGRAM 
ASSUMES THAT THIS CONDITION WAS CAUSED BY THE OPERATOR MANUALLY 
ESTABLISHING THE LINE CONNECTION AND PROCEEDS AS IF THE RINGING 
INTERRUPT HAD OCCURED. 



A015 RRRR AAAA 

RINGING INTERRUPT OCCURED INDICATING AN INCOMING CALL. 



TEXT WAS RECEIVED ON AN ATTEMPT TO RECEIVE THE POLLING OR SELECTION 
ADDRESS. THIS INDICATES THAT COMMUNICATION HAS STARTED BETWEEN THE 
CONTROL STATION AND ANOTHER TRIBUTARY. THE PROGRAM WILL RETURN TO 
THE RECEIVE PASSIVE MODE. ONLY THE FIRST TEN CHARACTERS OF THE TEXT 
RECEIVED WILL BE INCLUDED IN THE D003 PRINTOUT. 



A020 RRRR AAAA 



THE POLLING ADDRESS WAS RECEIVED FROM THE CONTROL STATION. THIS 
GIVES THE LOCAL STATION THE RIGHT TO TRANSMIT AN RFT MESSAGE. 



A021 RRRR AAAA 



A017 RRRR AAAA 



THE SELECTION ADDRESS WAS RECEIVED FROM THE CONTROL STATION. THIS 
INDICATES THAT THE CONTROL STATION IS ATTEMPTING TO TRANSMIT AN RFT. 



DATA SET NOT READY AFTER AN ATTEMPT TO TRANSMIT THE THREE SECOND 
TONE. THIS IS A SOMEWHAT UNUSUAL CONDITION, HOWEVER, IT IS NOT 
CONSIDERED AN ERROR SINCE IT IS PROBABLY CAUSED BY NO LINE CONNECTION 
YET BEING ESTABLISHED. 



A022 RRRR AAAA 



SOMETHING OTHER THAN TEXT OR THE POLLING OR SELECTION ADDRESS WAS 
RECEIVED ON AN ATTEMPT TO RECEIVE THE POLLING OR SELECTION ADDRESS. 
THE CHARACTERS RECEIVED ARE ASSUMED TO BE PART OF A CONTROL STATION 
TRANSMISSION TO ANOTHER TRIBUTARY STATION. 
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A025 RRRR AAAA 

A REQUEST-FOR-TEST MESSAGE WAS RECEIVED WITHOUT ERROR. 

A027 RRRR AAAA 

ENQ WAS SUCCESSFULLY RECEIVED IN AN ATTEMPT TO RECOVER FROM A 
PREVIOUS ERROR. 

A028 RRRR AAAA 

ID ENO WAS SUCCESSFULLY RECEIVED IN AN ATTEMPT TO RECOVER FROM A 
PREVIOUS ERROR. 



A036 RRRR AAAA 



WACK RECEIVED IN RESPONSE TO A TEST MESSAGE. THIS INDICATES THAT THE 
REMOTE STATION RECEIVED THE TEST MESSAGE WITHOUT ERROR BUT IS 
TEMPORARILY UNABLE TO RECEIVE FURTHER TEST MESSAGES. 



A037 RRRR AAAA 



POSITIVE ACKNOWLEDGEMENT (ACKO OR ACK1) RECEIVED IN RESPONSE TO A 
TEST MESSAGE. 



A039 RRRR AAAA 

TEST MESSAGE RECEIVED WITHOUT ERROR. 



A02A RRRR AAAA 



WACK RECEIVED IN RESPONSE TO THE RFT MESSAGE TRANSMITTED. THIS 
INDICATES THAT THE REMOTE STATION RECEIVED THE RFT WITHOUT ERROR BUT 
IS TEMPORARILY UNABLE TO CONTINUE WITH THE TEST. 



A02B RRRR AAAA 



RVI RECEIVED IN RESPONSE TO THE RFT MESSAGE TRANSMITTED. THIS IS A 
VERY UNUSUAL RESPONSE TO AN RFT MESSAGE. RVI INDICATES THAT THE 
REMOTE STATION HAS RECEIVED THE RFT WITHOUT ERROR AND IS READY TO 
CONTINUE, BUT THE THE REMOTE STATION IS REQUESTING THAT THE LOCAL 
STATION TERMINATE THE TEST. THE LOCAL STATION WILL IGNORE THIS 
REQUEST AND CONTINUE WITH THE TEST. 



A02C RRRR AAAA 



POSITIVE ACKNOWLEDGEMENT (ACK1) RECEIVED IN RESPONSE TO THE RFT 
MESSAGE TRANSMITTED. 



A02E RRRR AAAA 

EOT RECEIVED AS EXPECTED FROM THE REMOTE STATION. 



A03B RRRR AAAA 

END OF TEST EOT SUCCESSFULLY RECEIVED. 

A03C RRRR AAAA 

DISC RECEIVED INDICATING NORMAL END OF TEST AND LINE DISCONNECT. 

A03E RRRR AAAA 

EOT SUCCESSFULLY TRANSMITTED. 

A03F RRRR AAAA 

DISC SUCCESSFULLY TRANSMITTED. 

A040 RRRR AAAA 

EOT SUCCESSFULLY RECEIVED FOLLOWING RECEIPT OF REQUEST-FOR-TEST 
MESSAGE. THIS MESSAGE OCCURS DURING THE PROCESSING OF A REQUEST- 
FOR-TEST MESSAGE WITH AN X VALUE OF 99. 



A030 RRRR AAAA 



A041 RRRR AAAA 



THE SELECTION ADDRESS WAS EXPECTED FROM THE CONTROL STATION BUT EOT 
WAS RECEIVED. THIS IS A NORMAL ATTEMPT BY THE CONTROL STATION TO 
RESET ALL STATIONS TO CONTROL MODE BEFORE SENDING THE SELECTION ADDR. 



A031 RRRR AAAA 

ENQ OR THE SELECTION ADDRESS SUCCESSFULLY RECEIVED. 



CONTINUE TIMER TIMED OUT. THESE MESSAGES WILL OCCUR IF THE DELAY 
BEFORE TRANSMIT OPTION IN EDIT CARD HAS BEEN SPECIFIED. 



A042 RRRR AAAA 

TTD RECEIVED ON ATTEMPT TO RECEIVE TEST MESSAGE. 



A033 RRRR AAAA 



WACK RECEIVED IN RESPONSE TO ENQ. THIS INDICATES THAT THE REMOTE 
STATION IS TEMPORARILY UNABLE TO RECEIVE THE TEST MESSAGES. 



A034 RRRR AAAA 



POSITIVE ACKNOWLEDGEMENT RECEIVED IN RESPONSE TO ENQ. TEST MODE IS 
ENTERED AND TRANSMISSION OF TEST MESSAGES BEGINS. 
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4.2 



DATA (DOOX) PRINTOUTS 



D001 0000 0000 XXXXXXXX XXXXXXXX XXXXXXXX (7 MODIFIERS) 

THIS STATISTICS TABLE IS PRINTED IMMEDIATELY FOLLOWING THE 
END-OF-TEST PRINTOUT IF ONE OR MORE TEST MESSAGES MERE RECEIVED. 
THE SEVEN DECIMAL MODIFIERS PROVIDE THE FOLLOWING INFORMATION... 

MODI. ...THE TEST MESSAGE NUMBER (SEE SEC. 5.31 IF THE LOCAL STATION 

TRANSMITTED THE REQUEST-FOR-TESTt OTHERWISE ALL ZEROS. 
M0D2....THE X VALUE FROM THE RFT MESSAGE TRANSMITTED OR RECEIVED. 
M0D3....THE Y VALUE FROM THE RFT MESSAGE TRANSMITTED OR RECEIVED. 
M0D4....THE NUMBER OF TEST MESSAGES RECEIVED WITHOUT ERROR. 
M0D5....THE NUMBER OF TEST MESSAGES RECEIVED THAT WERE PROPERLY 

FRAMED BY START AND END CHARACTERS BUT THAT CONTAINED ERRORS. 
M0D6....THE NUMBER OF TIMES THAT NOTHING WAS RECEIVED (RECEIVE 

TIMEOUTS) ON AN ATTEMPT TO RECEIVE A TEST MESSAGE. 
M0D7....THE NUMBER OF TEST MESSAGES RECEIVED THAT WERE NOT PROPERLY 

FRAMED BY START AND END CHARACTERS. 



D002 0000 0000 XXXXXXXX XXXXXXXX 



XXXXXXXX (7 MODIFIERS) 



THIS STATISTICS TABLE IS PRINTED IMMEDIATELY FOLLOWING THE 
END-OF-TEST PRINTOUT IF ONE OR MORE TEST MESSAGES WERE TRANSMITTED. 
THE SEVEN DECIMAL MODIFIERS PROVIDE THE FOLLOWING INFORMATION... 

MODI. ...THE TEST MESSAGE NUMBER (SEE SEC. 5.3) IF THE LOCAL STATION 

TRANSMITTED THE REQUEST-FOR-TEST, OTHERWISE ALL ZEROS. 
M0D2....THE X VALUE FROM THE RFT MESSAGE TRANSMITTED OR RECEIVED. 
M0D3....THE Y VALUE FROM THE RFT MESSAGE TRANSMITTED OR RECEIVED. 
M0D4....THE NUMBER OF POSITIVE RESPONSES (ACKO OR ACKU RECEIVED IN 

RESPONSE TO TEST MESSAGES TRANSMITTED. 
M0D5....THE NUMBER OF NEGATIVE RESPONSES (NAKS) RECEIVED IN RESPONSE 

TO TEST MESSAGES TRANSMITTED. 
M0D6....THE NUMBER OF TIMES THAT NOTHING WAS RECEIVED (RECEIVE 

TIMEOUTS) IN RESPONSE TO TEST MESSAGES TRANSMITTED. 
M0D7....THE NUMBER OF INVALID RESPONSES RECEIVED (OTHER THAN ACKO/1 

OR NAK) IN RESPONSE TO TEST MESSAGES TRANSMITTED. 



4.3 



THE FIRST LINE OF A TABLE PRINTOUT IS THE ORIGINAL BYTE COUNT WORD. 
BIT ZERO OF THIS WORD BEING ON INDICATES THAT THE TABLE WAS 
CHAINED TO ANOTHER TABLE. BIT 2 BEING ON INDICATES A TRANSMIT 
TABLE. BIT 2 BEING OFF INDICATES A RECEIVE TABLE. 

IF, AFTER COMPLETION OF AN I/O OPERATION, THE BYTE COUNT SENSED 
INDICATES THAT NOTHING WAS RECEIVED FROM THE REMOTE STATION, THEN 
THE RECEIVE TABLE WILL BE OMITTED FROM THE PRINTOUT. 

A FEW SPECIAL TEST ROUTINES CONTAIN A TRANSMIT OR RECEIVE TABLE 
CHAINED TO A SECOND TABLE WHICH IS IN TURN CHAINED BACK TO ITSELF. 
FOR THESE ROUTINES, THE SECOND TABLE WILL ALWAYS BE OMITTED FROM 
THE PRINTOUT. 

THE REMAINING LINES OF A TABLE PRINTOUT CONSIST OF THE DATA AND 
CONTROL CHARACTERS TRANSMITTED AND RECEIVED, AND DIAGNOSTIC WORDS 
IF THE I/O OPERATION WAS IN DIAGNOSTIC MODE. IF OPERATION WAS 
IN NORMAL MODE THE TABLES ARE PRINTED EXACTLY AS THEY APPEAR IN 
CORE ON COMPLETION OF THE I/O OPERATION - PACKED TWO CHARACTERS PER 
WORD. 

IF OPERATION WAS IN DIAGNOSTIC MODE, OATA TRANSMITTED AND RECEIVED 
WILL BE FLAGGED BY /FF IN BIT POSITIONS 0-7, AND THE DATA 
CHARACTER WILL APPEAR IN BIT POSITIONS 8-15. DIAGNOSTIC WORDS 
SHOULD NEVER HAVE /FF IN BIT POSITIONS 0-7. 

DIAGNOSTIC WORDS APPEARING IN TRANSMIT TABLES HAVE BITS 7 THRU 15 
SHIFTED RIGHT ONE POSITION BEFORE PRINTING. THIS CAUSES BITS 8-15 
OF THE PRINTED DIAGNOSTIC WORD TO CONTAIN THE DATA CHARACTER AS 
IT WAS TRANSMITTED TO THE COMMUNICATION LINE. 



ERROR (EXXX) PRINTOUTS 



EEE1 0000 0000 



AN INVALID Y VALUE WAS ENTERED VIA FUNCTION 3 (TABLE 3). VALID 
VALUES ARE 01-99 AND MUST BE ENTERED AS TWO DECIMAL DIGITS. THE 
PROGRAM HAS REPLACED THE INVALID ENTRY WITH A VALUE OF 03. 



0003 RRRR AAAA XXXX XXXX 



EEE2 0000 0000 



XXXX 

XXXX XXXX XXXX XXXX 
XXXX XXXX XXXX XXXX 
XXXX XXXX XXXX XXXX 



XXXX XXXX 
XXXX XXXX 
XXXX XXXX 



(UP TO 14 MODIFIERS) 



AN INVALID RFT SELECTION WAS ENTERED VIA FUNCTION 1 (TABLE 1). 
REFER TO TABLE 1 AND ENTER ANOTHER SELECTION IF DESIRED. 



EEE4 0000 0000 



THIS PRINTOUT ALWAYS OCCURS FOLLOWING A STRING OF ONE OR MORE 
STORED STATUS OR ERROR PRINTOUTS (AOXX OR EOXX). ALL PRINTOUTS 
IN THE STRING HAVE THE SAME RID AND RAO AND ALL REFER TO THE SAME 
I/O OPERATION. THE FIRST LINE OF THIS PRINTOUT PROVIDES THE 
OPERATING DSW AND BYTE COUNT DSW SENSED WHEN THE CA INTERRUPT 
OCCURED. THE FIRST MODIFIER IS THE OPERATING DSW. 

THE REMAINING LINES OF THE PRINTOUT CONSIST OF A DUMP OF THE 

TRANSMIT AND/OR RECEIVE TABLE(S) USED IN THE I/O OPERATION. 

EACH SEPARATE TRANSMIT OR RECEIVE TABLE IS PRECEEDED BY A BLANK LINE. 



THE PROGRAM EDIT CARDS USED TO DEFINE TEST MESSAGE 01 ARE INCORRECT. 
REFER TO THE EDIT PROCEDURE (SECTION 6.4) AND CORRECT THE EDIT CARDS. 
RELOAD THE PROGRAM. 



EEE5 0000 0000 



THE SECOND EDIT CARD (ED01) IS INCORRECT OR MISSING. REFER TO THE 
EDIT PROCEDURE (SECTION 6.4) AND CORRECT THE EDIT CARDS. RELOAD 
THE PROGRAM. 
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EEE6 0000 0000 



THE CA PROGRAM HAS LOADED ACROSS THE 32K CORE BOUNDARY. PROGRAM 
RELOAD IS REQUIRED. REPOSITION THE CA PROGRAM IN THE PROGRAM LOAD 
SEQUENCE OR USE THE MONITOR LOAD OPTIONS TO RELOCATE THE PROGRAM. 



EE01 RRRR AAAA XXXX XXXX 



AN EXPECTED CA INTERRUPT FAILED TO OCCUR. RRRR IS THE NUMBER OF THE 
TEST ROUTINE THAT WAS IN EXECUTION AT THE TIME THE FAILURE OCCURED. 
THE FIRST MODIFIER IS THE OPERATING DSW ANO THE SECOND MODIFIER IS 
THE BYTE COUNT DSM SENSED AT THE TIME THE FAILURE WAS DETECTED. 
THIS CONDITION FORCES TERMINATION OF ANY TEST OR LINE ACTIVITY THAT 
WAS IN PROGRESS AT THE TIME OF THE FAILURE. 



EE02 RRRR AAAA 



THE LOCAL STATION HAD SUCCESSFULLY TRANSMITTED AN RFT MESSAGE, 
RECEIVED THE RESPONSE (ACK1), AND TRANSMITTED EOT TO INITIATE A 
TURNAROUND. NO SELECTION OR ENQ WAS RECEIVED AFTER N * T "MPJS. 
THIS CONDITION INDICATES THAT THE REMOTE STATION FAILED TO RECEIVE 
THE EOT AND THEREFORE DID NOT TURNAROUND. 



EE03 RRRR AAAA 



THE REQUIRED NUMBER OF ATTEMPTS <Y) TO RECEIVE TEST MESSAGES HAD BEEN 
PERFORMED AND THE REMOTE STATION WAS NOW EXPECTED TO END THE TEST 
BY TRANSMITTING EOT OR DISC. NO EOT OR DISC WAS RECEIVED. THE LOCAL 
STATION ENDED THE TEST AT THIS POINT BY TRANSMITTING EOT OR DISC. 



EE04 RRRR AAAA 



THE TEST WAS TERMINATED BECAUSE OF FAILURE TO RECOVER FROM SOME 
ABNORMAL CONDITION AFTER N (RETRY COUNT) ATTEMPTS. NORMALLY THIS 
TYPE OF TEST TERMINATION IS THE RESULT OF REPEATED ERRORS OCCURING 
BEFORE ANY TEST MESSAGES ARE TRANSMITTED OR RECEIVED. IT IS 
POSSIBLE, HOWEVER, FOR THIS TYPE OF TERMINATION TO OCCUR AS A RESULT 
OF REPEATED WACK RESPONSES FROM THE REMOTE STATION. 



EE05 RRRR AAAA 



EOT WAS RECEIVED FROM THE REMOTE STATION WHILE A TEST WAS IN PROGRESS 
BUT BEFORE THE NORMAL END OF TEST. THIS EOT TERMINATES THE TEST 
PROCEDURE. 



EE07 RRRR AAAA 

N JRETRY COUNT) UNSUCCESSFULL ATTEMPTS HAVE BEEN MADE TO ESTABLISH 
A CONNECTION WITH THE REMOTE STATION. THIS IS PROBABLY NOT .TRUE 
ERROR CONDITION SINCE THE MOST LIKELY CAUSE IS THAT THE REMOTE 
STATION HAS NOTHING TO TRANSMIT OR IS NOT YET READY TO RECEIVE. 
USUALLY THIS PRINTOUT MERELY INDICATES THAT BOTH STATIONS ARE TRYING 
TO RECEIVE. ALTHOUGH THIS IS NOT USUALLY AN ERROR CONDITION, IT IS 
PRINTED AS AN ERROR MESSAGE TO ALERT THE OPERATOR TO THE POSSIBILITY 
THAT A FAILURE MAY EXIST SUCH THAT INITIAL COMMUNICATIONS WITH 
THE REMOTE STATION CANNOT BE ESTABLISHED. IT IS RECOMMENDED THAT 
THE OPERATOR USE ONE OF THE FOLLOWING DESCRIBED PROCEDURES 
AT THIS TIME. 

1) IF IT IS DETERMINED THAT THE TWO STATIONS SHOULD HAVE 
SUCCESSFULLY ESTABLISHED COMMUNICATIONS, THEN SELECT THE 
•TRACE ENTIRE TEST* OPTION (FUNCTION SW 10) TO TRY TO 
DETERMINE THE CAUSE OF THE FAILURE. 

2) FOR NORMAL OPERATION OF THE PROGRAM, SELECT THE 'BYPASS EE07 
PRINTOUTS' OPTION (FUNCTION SW 12) TO PREVENT FURTHER 
EE07 PRINTOUTS. WHEN THIS IS DONE THE OPERATOR SHOULD TAKE 
NOTE OF THE AAAX PRINTOUTS TO MONITOR THE STATE OF LINE 
INITIALIZATION ATTEMPTS. ONE AAAX PRINTOUT IS OUTPUT EACH TIME 
THE INITIALIZATION STATE CHANGES OR AFTER EACH N ATTEMPTS TO 
ESTABLISH A CONNECTION. 

E001 RRRR AAAA 

CHANNEL STOP INDICATOR ON (DSW BIT 0) AFTER A CA INTERRUPT. 

IF AN E002 MESSAGE FOLLOWS THIS PRINTOUT, THEN THE ERROR WAS CAUSED 
BY A STORAGE PROTECT VIOLATION. REFER TO THE E002 DESCRIPTION. 

IF NO E002 PRINTOUT OCCURS, THEN THIS ERROR INDICATES A PC OR BUS 
OUT PARITY ERROR OR A CAR CHECK. THIS CONDITION MAY OCCUR IN 
DIAGNOSTIC MODE IF DIAGNOSTIC WORDS ARE INCORRECTLY INSERTED IN A 
TRANSMIT TABLE SUCH AS WHEN SYN CHARACTERS ARE TOO FREQUENTLY 
INSERTED OR WHEN BCC CHARACTERS OR DATA OLE CHARACTERS FAIL TO BE 
INSERTED IN THE DATA STREAM. 

E002 RRRR AAAA 

STORAGE PROTECT VIOLATION INDICATOR ON (DSW BIT 2) AFTER A CA 
INTERRUPT. 

THIS INDICATOR IS TURNED ON ALONG WITH THE CHANNEL STOP INDICATOR 
(DSW BIT 0) WHEN THE CA TRIES TO STORE RECEIVED DATA INTO A STORAGE 
PROTECTED AREA OF CORE. 



EE06 RRRR AAAA 



DISC WAS RECEIVED FROM THE REMOTE STATION WHILE A "ST WAS IN 
PROGRESS BUT BEFORE THE NORMAL END OF TEST. THIS DISC TERMINATES THE 
TEST AND CAUSES LINE DISCONNECT. 
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I. 



E003 RRRR AAAA 



TIMEOUT INDICATOR ON (DSW BIT 2) AFTER A CA INTERRUPT ON A TRANSMIT 
ONLY OPERATION. 

THE CA WAS INITIALIZED WITH A SINGLE TRANSMIT TABLE AND NO CHAINING. 
A TABLE COMPLETE INTERRUPT SHOULD HAVE OCCURED BEFORE THE TIMEOUT 
INDICATOR CAME ON - IT DID NOT. 



E004 RRRR AAAA 



UNEXPECTED END-CHARACTER-DECODED OR RINGING INDICATOR IN DSW 
(BIT 3 ON) AFTER A CA INTERRUPT. 

EITHER THE CA WAS CLEARED AND THE CONTINUE TIMER STARTED OR THE CA 
WAS INITIALIZED WITH A SINGLE TRANSMIT TABLE WITH NO CHAINING. 
IN EITHER CASE, THIS INDICATOR SHOULD NOT HAVE COME ON. 



E005 RRRR AAAA 



UNEXPECTED TABLE COMPLETE INDICATOR IN DSW (BIT 4 ON) AFTER A 
CA INTERRUPT. 

THE CA T/R TEST SUPPRESSES THE TABLE COMPLETE INTERRUPT ON ALL 
TRANSMIT TABLES THAT ARE CHAINED TO ANOTHER TABLE. RECEIVE TABLES 
ARE ALWAYS SUFFICEINTLY LONG TO RECEIVE ANY EXPECTED DATA. TABLE 
COMPLETE INTERRUPTS SHOULD THEREFORE OCCUR ONLY AT THE END OF 
TRANSMIT ONLY OPERATIONS. 

A COMMON CAUSE OF THIS ERROR IS LOSS OF CHARACTER SYNCHRONIZATION 
DURING A RECEIVE OPERATION. WHEN THIS OCCURS, THE END CHARACTER 
WILL BE INCORRECTLY RECEIVED AND THE CA WILL CONTINUE CYCLE STEALING 
TO THE END OF THE RECEIVE TABLE. 



E006 RRRR AAAA 



DATA PARITY CHECK INDICATOR ON IN DSW (BIT 5 ON) AFTER A CA 
INTERRUPT. 

THIS ERROR INDICATES HARDWARE DETECTION OF A PARITY ERROR DURING DATA 
TRANSFER CYCLES. 

THE USUAL CAUSE OF THIS ERROR ON MACHINES USING ASCII CODE IS A 
CHARACTER RECEIVED WITH BAD (EVEN) PARITY. THIS IS USUALLY THE 
RESULT OF THE CHARACTER BEING ALTERED ON THE TRANSMISSION LINE BY 
LINE NOISE. 



E007 RRRR AAAA 

DATA BCC CHECK INDICATOR ON IN DSW (BIT 6 ON) AFTER A CA INTERRUPT. 

THE USUAL CAUSE OF THIS ERROR IS ALTERATION OF RECEIVED DATA ON THE 
TRANSMISSION LINE DUE TO LINE NOISE. THIS SHOULD ONLY OCCUR WHEN 
TEXT IS BEING RECEIVED. 

IF THIS ERROR OCCURS WHEN NO TEXT IS BEING RECEIVED THEN THE PROBLEM 
IS PROBABLY NOT ASSOCIATED WITH THE BCC REGISTER, BUT IS MORE LIKELY 
TO BE ASSOCIATED WITH THE TEXT TRIGGER OR DATA CHECK LATCH. 

IF THIS ERROR OCCURS VERY FREQUENTLY, BUT ONLY WHEN TEXT IS BEING 
RECEIVED, THEN THE PROBABLE CAUSE IS INCORRECT CALCULATION OF BCC 
CHARACTERS. THE FAILURE CAN EXIST AT EITHER THE LOCAL OR THE REMOTE 
STATION. 

E008 RRRR AAAA 

THE DATA OVERRUN INDICATOR WAS ON (DSW BIT 7) AFTER A CA INTERRUPT. 

THIS ERROR INDICATES THAT A CYCLE STEAL REQUEST FOR A CHARACTER 
TRANSFER WAS NOT ACKNOWLEDGED WITHIN THE ONE BIT TIME OF DATA 
BUFFERING. 

E009 RRRR AAAA 

DATA SET NOT READY (DSW BIT 8 OFF) AFTER A CA INTERRUPT. 

THIS ERROR INDICATES THAT THE 'DATA SET READY' LINE FROM THE DATA SET 
WAS NOT ON WHEN IT WAS EXPECTED TO BE. ON A LEASED OR PRIVATE 
LINE 'DATA SET READY' SHOULD ALWAYS BE ON. 

ON A SWITCHED LINE THIS ERROR INDICATES THAT 'DATA SET READY' HAD 
BEEN ON, BUT THAT IT WENT BACK OFF UNEXPECTEDLY. THIS CAN BE CAUSED 
BY THE REMOTE STATION DISCONNECTING WITHOUT FIRST SENDING THE DISC 
SIGNAL, OR BY THE LOCAL STATION FAILING TO RECEIVE A DISC SIGNAL. 

EOOA RRRR AAAA 

THE COMMAND REJECT INDICATOR WAS ON IN THE DSW (BIT 9) AFTER A 
CA INTERRUPT. 

THE CA T/R TEST ALWAYS EXECUTES A 'CLEAR CA' INSTRUCTION IMMEDIATELY 
BEFORE EXECUTING ANY 'INITIALIZE' INSTRUCTION. THIS SHOULD 
PREVENT ANY COMMAND REJECT INTERRUPTS. 



EOOD RRRR AAAA 



A CA INTERRUPT OCCURED, BUT THE OPERATING DSW DID NOT INDICATE THE 
CAUSE OF THE INTERRUPT. 

PROBABLY A TIMEOUT, TABLE COMPLETE, OR END-CHARACTER-DECODED 
INTERRUPT OCCURED, BUT THE INDICATOR FAILED TO APPEAR IN THE DSW. 
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EOOE RRRR AAAA 



AFTER A TRANSMIT OPERATION IN DIAGNOSTIC MODE, AT LEAST ONE OF THE 
TRANSMITTED CHARACTERS CONTAINED IN THE DIAGNOSTIC WORDS DID NOT 
COMPARE EQUAL TO THE CHARACTER THAT SHOULD HAVE BEEN TRANSMITTED. 

THIS IS AN INDICATION OF A FAILURE TO TRANSMIT PROPERLY. THIS ERROR 
IS OFTEN THE RESULT OF FAILURE TO START OR COMPLETE A TRANSMIT 
OPERATION, IN WHICH CASE, SOME OR ALL OF THE DIAGNOSTIC WORDS IN THE 
TRANSMIT TABLE WILL BE ZEROS. 

IF THE TRANSMIT OPERATION CONTINUED NORMALLY TO THE END OF THE 
TRANSMIT TABLE, THEN THIS ERROR WAS PROBABLY CAUSED BY A FAILURE TO 
PROPERLY LOAD OR SHIFT THE SERI ALIZER-DESERI AL IZER REGISTER. 



E014 RRRR AAAA 



THE TIMEOUT INDICATOR WAS ON (DSW BIT 2) AFTER A CA INTERRUPT OCCURED 
BUT THE BYTE COUNT SENSED INDICATED THAT SOMETHING WAS RECEIVED. 

THE BYTE COUNT SENSED AFTER THE CA INTERRUPT WAS LESS THAN THE 
ORIGINAL RECEIVE BYTE COUNT. THIS INDICATES THAT CHARACTER PHASE WAS 
ESTABLISHED AND SOMETHING WAS RECEIVED BEFORE THE TIMEOUT OCCURED. 



E018 RRRR AAAA 



THE CA WAS CLEARED AND THE CONTINUE TIMER STARTED. AFTER THE 
INTERRUPT A DSW ERROR WAS DETECTED. REFER TO PRECEEDING PRINTOUTS. 



EOOF RRRR AAAA 



AFTER A RECEIVE OPERATION IN DIAGNOSTIC MODE AT LEAST ONE OF THE 
RECEIVED CHARACTERS OID NOT COMPARE EQUAL TO THE CHARACTER CONTAINED 
IN THE ASSOCIATED DIAGNOSTIC WORD. 



E01A RRRR AAAA 



EOT RECEIVED BEFORE THE NORMAL END OF TEST. THIS EOT TERMINATES 
THE TEST PROCEDURE. 



E010 RRRR AAAA 



AFTER THE CA INTERRUPT OCCURED ON AN OPERATION WHICH CHAINED A 
TRANSMIT TABLE TO A RECEIVE TABLE, BIT 3 IN THE SENSED BYTE COUNT WAS 
ON. THIS INDICATES THAT THE INTERRUPT OCCURED DURING THE TRANSMIT 
TABLE. 



E011 RRRR AAAA 



THE BYTE COUNT SENSED AFTER A CA INTERRUPT WAS GREATER THAN THE 
ORIGINAL RECEIVE BYTE COUNT. 

THE USUAL CAUSE OF THIS ERROR IS FAILURE TO START A TRANSMIT 
OPERATION WHEN A TRANSMIT TABLE IS CHAINED TO A RECEIVE TABLE AND 
THE TRANSMIT BYTE COUNT IS GREATER THAN THE RECEIVE BYTE COUNT. . 



E01B RRRR AAAA 



DISC RECEIVED BEFORE THE NORMAL END OF TEST. THIS DISC TERMINATES 
THE TEST PROCEDURE. 



E01D RRRR AAAA 



THE ERRORS INDICATED BY THE PRECEDING PRINTOUTS OCCURED ON AN 
ATTEMPT TO RECEIVE THE INITIAL ENQ OR ID ENQ FROM THE REMOTE 
STATION. THE CA WAS INITIALIZED IN RECEIVE MODE WITH NO CHAINING. 



E01E RRRR AAAA 



AN INVALID CONTROL SEQUENCE WAS RECEIVED ON AN ATTEMPT TO RECEIVE THE 
INITIAL ENQ OR ID ENQ FROM THE REMOTE STATION. 



E012 RRRR AAAA 



THE BYTE COUNT SENSED AFTER A CA INTERRUPT WAS EQUAL TO THE ORIGINAL 
RECEIVE BYTE COUNT. 

THIS CONDITION INDICATES THAT THE CA WAS INITIALIZED IN RECEIVE MODE 
BUT CHARACTER PHASE WAS NEVER ESTABLISHED AND NOTHING WAS RECEIVED. 



E020 RRRR AAAA 



THE ERRORS INDICATED BY THE PRECEDING PRINTOUTS OCCURED ON AN 
ATTEMPT TO TRANSMIT THE INITIAL ENQ OR ID ENQ AND RECEIVE THE 
RESPONSE. THE CA WAS INITIALIZED WITH A TRANSMIT TABLE CHAINED TO 
A RECEIVE TABLE. 



E013 RRRR AAAA 

THE TIMEOUT INDICATOR WAS ON (DSW BIT 2) AFTER A CA INTERRUPT. 

THIS PRINTOUT CAN ONLY OCCUR FOLLOWING A PREVIOUS ERROR PRINTOUT AND 
IS USED ONLY TO PROVIDE THE ADDITIONAL INFORMATION THAT A TIMEOUT 
OCCURED. 
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AN INVALID CONTROL SEQUENCE WAS RECEIVED IN RESPONSE TO THE INITIAL 
ENQ OR ID ENQ TRANSMITTED. 
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14N0V69 
431319 



THE CA WAS CLEARED AND THE CONTINUE TIMER STARTED WITH THE RINGING 
INTERRUPT ENABLED. AFTER THE INTERRUPT OCCURED A DSW ERROR WAS 
DETECTED. REFER TO THE PRECEDING PRINTOUTS. 
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E024 RRRR AAAA 



THE ERRORS INDICATED BY THE PRECEDING PRINTOUTS OCCURED ON AN 
ATTEMPT TO TRANSMIT THE THREE SECOND TONE. THE CA WAS INITIALIZED 
WITH A TRANSMIT TABLE CHAINED TO ANOTHER TRANSMIT TABLE WHICH WAS IN 
TURN CHAINED BACK TO ITSELF. ONLY SYN CHARACTERS WERE CONTAINED IN 
THE TRANSMIT TABLES SO THAT AFTER THREE SECONDSt A TIMEOUT SHOULD 
HAVE OCCURED. 



E026 RRRR AAAA 



E02E RRRR AAAA 



ENQ RECEIVED ON AN ATTEMPT TO RECEIVE THE RFT MESSAGE. THIS 
INDICATES THAT THE REMOTE STATION FAILED TO RECEIVE THE LAST 
TRANSMISSION BY THE LOCAL STATION. 



E030 RRRR AAAA 



AN INVALID CONTROL SEQUENCE WAS RECEIVED FROM THE REMOTE STATION ON 
AN ATTEMPT TO RECEIVE THE RFT MESSAGE. 



THE ERRORS INDICATED BY THE PRECEDING PRINTOUTS OCCURED WHILE THE 
CA WAS INITIALIZED IN THE RECEIVE PASSIVE MODE. THE CA WAS 
INITIALIZED WITH A RECEIVE TABLE CHAINED TO A RECEIVE TABLE WHICH 
WAS IN TURN CHAINED BACK TO ITSELF. 



E028 RRRR AAAA 



THE ERRORS INDICATED BY THE PRECEDING PRINTOUTS OCCURED ON AN 
ATTEMPT TO RECEIVE THE POLLING OR SELECTION ADDRESS. THE CA WAS 
INITIALIZED WITH A RECEIVE TABLE CHAINED TO ANOTHER RECEIVE TABLE 
WHICH WAS IN TURN CHAINED BACK TO ITSELF. 



E02A RRRR AAAA 



E031 RRRR AAAA 



ID ENQ RECEIVED ON AN ATTEMPT TO RECEIVE THE RFT MESSAGE. THIS 
INDICATES THAT THE REMOTE STATION IS STILL BIDDING FOR THE LINE AND 
HAS AS YET RECEIVED NOTHING FROM THE LOCAL STATION. 



E032 RRRR AAAA 



TEXT WAS RECEIVED WITHOUT ERROR ON AN ATTEMPT TO RECEIVE THE RFT 
MESSAGE, BUT THE TEXT RECEIVED WAS NOT A VALID REQUEST-FOR-TEST. 
IF THE REMOTE STATION IS STILL ON-LINE TO THE CUSTOMERS APPLICATION, 
THIS MAY BE AN ATTEMPT BY THE REMOTE STATION TO TRANSMIT CUSTOMER 
DATA. 



THE ERRORS INDICATED BY THE PRECEDING PRINTOUTS OCCURED ON AN 
ATTEMPT TO RECEIVE THE RFT MESSAGE. NO TEXT, PROPERLY FRAMED BY 
START AND END CHARACTERS, WAS RECEIVED. 



E02B RRRR AAAA 



NOTHING WAS RECEIVED (TIMEOUT ONLY) ON AN ATTEMPT TO RECEIVE THE RFT 
MESSAGE. 



E02C RRRR AAAA 



THE ERRORS INDICATED BY THE PRECEDING PRINTOUTS OCCURED ON AN 
ATTEMPT TO RECEIVE THE RFT MESSAGE. TEXT, PROPERLY FRAMED BY START 
AND END CHARACTERS, WAS RECEIVED. THIS INDICATES THAT TRANSMISSION 
OF THE LAST RESPONSE WAS SUCCESSFULL, BUT AN ERROR WAS DETECTED 
DURING THE RECEIVE OPERATION. 



E034 RRRR AAAA 



THE ERRORS INDICATED BY THE PRECEDING PRINTOUTS OCCURED ON AN 
ATTEMPT TO RECEIVE ENQ DURING AN ERROR RECOVERY PROCEDURE. 



E035 RRRR AAAA 



NOTHING WAS RECEIVED (TIMEOUT ONLY) ON AN ATTEMPT TO RECEIVE ENQ 
DURING AN ERROR RECOVERY PROCEDURE. 



E036 RRRR AAAA 



AN INVALID CONTROL SEQUENCE WAS RECEIVED ON AN ATTEMPT TO RECEIVE 
ENQ DURING AN ERROR RECOVERY PROCEDURE. 



E038 RRRR AAAA 



E02D RRRR AAAA 



ON AN ATTEMPT TO RECEIVE THE RFT MESSAGE, A SEQUENCE WAS RECEIVED 
THAT BEGAN WITH A PROPER START CHARACTER (SOH, STX, OR OLE STX) BUT 
ENDED WITH ENQ. THIS IS AN INDICATION THAT THE REMOTE STATION 
DETECTED AN ERROR DURING THE TRANSMISSION (A REMOTE STATION ERROR) 
AND ABORTED THE TRANSMISSION. 



THE ERRORS INDICATED BY THE PRECEDING PRINTOUTS OCCURED ON AN 
ATTEMPT TO RECEIVE THE RESPONSE TO THE RFT MESSAGE TRANSMITTED. 



E039 RRRR AAAA 



NOTHING WAS RECEIVED (TIMEOUT ONLY) ON AN ATTEMPT TO RECEIVE THE 
RESPONSE TO AN RFT MESSAGE TRANSMITTED. 
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THE WRONG ALTERNATE POSITIVE ACKNOWLEDGEMENT (ACKO) WAS RECEIVED IN 
RESPONSE TO THE RFT MESSAGE TRANSMITTED. THIS INDICATES THAT THE 
REMOTE STATION HAS NOT YET RECEIVED THE RFT MESSAGE. 



E03B RRRR AAAA 



NAK WAS RECEIVED IN RESPONSE TO THE RFT MESSAGE TRANSMITTED. THIS 
INDICATES THAT THE REMOTE STATION RECEIVED THE RFT BUT WITH AN ERROR 
INDICATION. 



E03C RRRR AAAA 



AN INVALID CONTROL SEOUENCE WAS RECEIVED IN RESPONSE TO THE RFT 
MESSAGE TRANSMITTED. 



E03E RRRR AAAA 



THE ERRORS INDICATED BY THE PRECEDING PRINTOUTS OCCURED ON AN 
ATTEMPT TO RECEIVE THE LINE TURNAROUND EOT AFTER AN RFT MESSAGE HAD 
BEEN RECEIVED AND ACKNOWLEDGED. 
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NOTHING WAS RECEIVED (TIMEOUT ONLY) ON AN ATTEMPT TO RECEIVE ENQ 
OR THE SELECTION ADDRESS JUST PRIOR TO RECEIVING TEST MESSAGES. 

IF THIS ERROR WAS CAUSED BY FAILURE OF THE REMOTE STATION TO RECEIVE 
THE PREVIOUSLY TRANSMITTED EOT, THEN AN UNRECOVERABLE SITUATION HAS 
BEEN REACHED AND ANY FURTHER RECOVERY ATTEMPTS WILL FAIL. 



E045 RRRR AAAA 



AN INVALID CONTROL SEOUENCE WAS RECEIVED ON AN ATTEMPT TO RECEIVE 
ENO OR THE SELECTION ADDRESS JUST PRIOR TO RECEIVING TEST MESSAGES. 



E047 RRRR AAAA 



THE ERRORS INDICATED BY THE PRECEDING PRINTOUTS OCCURED ON AN 
ATTEMPT TO TRANSMIT ENQ AND RECEIVE A RESPONSE IN PREPARATION FOR 
TRANSMISSION OF TEST MESSAGES. 



E048 RRRR AAAA 



E03F RRRR AAAA 



NOTHING WAS RECEIVED (TIMEOUT ONLY) IN RESPONSE TO THE ENO 
TRANSMITTED IN PREPARATION FOR TRANSMISSION OF TEST MESSAGES. 
SEE DESCRIPTION FOR «E049' MESSAGE BELOW 



NOTHING WAS RECEIVED ON AN ATTEMPT TO RECEIVE THE LINE TURNAROUND 
EOT AFTER AN RFT MESSAGE HAD BEEN RECEIVED AND ACKNOWLEDGED. 

IF THE REMOTE STATION HAS TRANSMITTED THE EOT, THEN BOTH STATIONS 
ARE NOW WAITING FOR THE OTHER TO TRANSMIT. THIS IS AN UNRECOVERABLE 
ERROR CONDITION AND ANY FURTHER RECOVERY ATTEMPTS WILL FAIL. 



E049 RRRR AAAA 



E040 RRRR AAAA 



ENO WAS RECEIVED ON AN ATTEMPT TO RECEIVE THE LINE TURNAROUND EOT 
AFTER AN RFT MESSAGE HAD BEEN RECEIVED AND ACKNOWLEDGED. THIS 
INDICATES THAT THE REMOTE STATION FAILED TO RECEIVE THE 
ACKNOWLEDGEMENT. 



E041 RRRR AAAA 



AN INVALID CONTROL SEOUENCE WAS RECEIVED ON AN ATTEMPT TO RECEIVE 
THE LINE TURNAROUND EOT AFTER AN RFT MESSAGE HAD BEEN RECEIVED AND 
ACKNOWLEDGED. 



AN INVALID CONTROL SEOUENCE WAS RECEIVED IN RESPONSE TO THE ENQ 
TRANSMITTED IN PREPARATION FOR TRANSMISSION OF TEST MESSAGES. 
THIS ERROR MESSAGE OR THE 'E048' ERROR MESSAGE ABOVE MAY OCCUR WHEN 
RUNNING WITH A 2780 OR SIMILAR DEVICE WHICH REQUIRES MANUAL 
INTERVENTION JUST PRIOR TO RECEIVING TEST MESSAGES. THE DELAY BEFORE 
■TRANSMIT OPTION IN EDIT CARD SHOULD BE SPECIFIED IF THIS IS THE 
CASE, HOWEVER, ERROR PRINTOUTS MAY STILL OCCUR IF THE DEVICE IS STILL 
UNABLE TO RECEIVE THE TEST MESSAGES AFTER THE TEN SECOND DELAY. 

E04B RRRR AAAA 

THE ERRORS INDICATED BY THE PRECEDING PRINTOUTS OCCURED ON AN 
ATTEMPT TO RECEIVE A RESPONSE TO A TEST MESSAGE. 

E04C RRRR AAAA 

NOTHING WAS RECEIVED (TIMEOUT ONLY) IN RESPONSE TO A TEST MESSAGE. 



E043 RRRR AAAA 



THE ERRORS INDICATED BY THE PRECEEDING PRINTOUTS OCCURED ON AN 
ATTEMPT TO RECEIVE ENQ OR THE SELECTION ADDRESS JUST PRIOR TO 
RECEIVING TEST MESSAGES. 



E04D RRRR AAAA 

NAK WAS RECEIVED IN RESPONSE TO A TEST MESSAGE. 
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E04E RRRR AAAA 



AN INVALID CONTROL SEOUENCE WAS RECEIVED IN RESPONSE TO A TEST 
MESSAGE TRANSMITTED. 

E050 RRRR AAAA 

THE ERRORS INDICATED BY THE PRECEDING PRINTOUTS OCCURED ON AN 
ATTEMPT TO RECEIVE THE FIRST TEST MESSAGE. 

E051 RRRR AAAA 

NOTHING HAS RECEIVED ON AN ATTEMPT TO RECEIVE THE FIRST TEST MESSAGE. 

E052 RRRR AAAA 

ENQ WAS RECEIVED ON AN ATTEMPT TO RECEIVE THE FIRST TEST MESSAGE. 
THIS INDICATES THAT THE REMOTE STATION FAILED TO RECEIVE THE 
PRECEDING ACKO. 



E058 RRRR AAAA 



AN INVALID CONTROL SEOUENCE WAS RECEIVED ON AN ATTEMPT TO RECEIVE 
A TEST MESSAGE. 

E059 RRRR AAAA 

A TEST MESSAGE WAS RECEIVED FROM THE REMOTE STATION THAT STARTED WITH 
A VALID START SEOUENCE (STX OR DLE STX) BUT THAT ENDED WITH ENQ.. 

E05A RRRR AAAA 

NOTHING WAS RECEIVED ON AN ATTEMPT TO RECEIVE A TEST MESSAGE. 

E05C RRRR AAAA 

THE ERRORS INDICATED BY THE PREVIOUS PRINTOUTS OCCURED ON AN ATTEMPT 
TO RECEIVE THE END OF TEST EOT. 



E053 RRRR AAAA 



AN INVALID CONTROL SEOUENCE WAS RECEIVED ON AN ATTEMPT TO RECEIVE 
THE FIRST TEST MESSAGE. 



E05D RRRR AAAA 

NOTHING WAS RECEIVED ON AN ATTEMPT TO RECEIVE THE END OF TEST EOT. 



E054 RRRR AAAA 



EOT WAS RECEIVED ON AN ATTEMPT TO RECEIVE THE FIRST TEST MESSAGE. 
THIS INDICATES THAT THE CONTROL STATION FAILED TO RECEIVE THE 
PREVIOUS ACKO AND IS GOING TO TRANSMIT THE SELECTION SEOUENCE AGAIN. 



E055 RRRR AAAA 



THE ERRORS INDICATED BY THE PRECEDING PRINTOUTS OCCURED ON AN 
ATTEMPT TO RECEIVE A TEST MESSAGE. NO PROPERLY FRAMED TEXT WAS 
RECEIVED. 



E05E RRRR AAAA 



AN INVALID CONTROL SEQUENCE WAS RECEIVED ON AN ATTEMPT TO RECEIVE THE 
END OF TEST EOT. 



E060 RRRR AAAA 



THE ERRORS INDICATED BY THE PRECEDING PRINTOUTS OCCURED ON AN 
ATTEMPT TO TRANSMIT EOT. 



E061 RRRR AAAA 



E056 RRRR AAAA 



THE ERRORS INDICATED BY THE PRECEDING PRINTOUTS OCCURED ON AN 
ATTEMPT TO RECEIVE A TEST MESSAGE. TEXT WAS RECEIVED PROPERLY FRAMED 
BY START AND END CHARACTERS. 



E057 RRRR AAAA 



A TEST MESSAGE WAS RECEIVED FROM THE REMOTE STATION WITH NO 
INDICATION OF AN ERROR, BUT THE TEXT RECEIVED DID NOT COMPARE EQUAL 
TO THE TEST MESSAGE THAT WAS REQUESTED BY THE RFT. 



THE ERRORS INDICATED BY THE PRECEDING PRINTOUTS OCCURED ON AN 
ATTEMPT TO TRANSMIT DISC. 
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COMMENTS 



5.1 GENERAL DESCRIPTION 

THE 1800 CA TRANSMIT/RECEIVE TEST PROVIDES TEST 
A REMOTE BSC STATION IN ACCORDANCE WITH STANDARD 
AND TEST PROCEDURES. IN ORDER TO COMPLY WITH TH 
PROCEDURES IT IS NECESSARY THAT THE PROGRAM CONT 
TO MAINTAIN COMMUNICATIONS WITH THE REMOTE STATI 
THIS CONTINUOUS MONITORING OF THE COMMUNICATION 
INTERRUPTION AS POSSIBLE, THE PROGRAM IS ALMOST 
DRIVEN. THAT IS, THE FIRST CA I/O OPERATION IS 
MAINLINE PROGRAM, BUT ALL FOLLOWING CA I/O OPERA 
DURING INTERRUPT SERVICING. THIS RESULTS IN THE 
EXPECTING A CA INTERRUPT. 



COMMUNICATIONS WITH 

BSC LINE CONTROL 
ESE STANDARD 
INUOUSLY ATTEMPT 
ON. TO PROVIDE 
LINE WITH AS LITTLE 
ENTIRELY INTERRUPT 
STARTED IN THE 
TIONS ARE STARTED 
PROGRAM ALWAYS 



SINCE A CA INTERRUPT IS ALWAYS PENDING, ANY ACTION THAT HALTS THE 
PROGRAM, SUCH AS USE OF THE CONSOLE STOP KEY OR THE MONITOR 'HALT 
ON ERROR' OPTION, MAY RESULT IN CA ERROR PRINTOUTS. IF A WAIT IS 
ENTERED WITH THE CA INTERRUPT LEVEL UNMASKED, SUCH AS WHEN THE 
MONITOR 'HALT' OPTION IS SELECTED, THE CA PROGRAM WILL CONTINUE 
TO RUN BY INTERRUPTING OUT OF THE WAIT. 

BECAUSE THE CA IS KEPT IN CONTINUOUS OPERATION AND THE CA OPERATES 
AT MUCH HIGHER DATA RATES THAN EITHER THE 1443 OR 1053 PRINTER, IT 
IS IMPOSSIBLE TO PRINT DIAGNOSTIC INFORMATION AS FAST AS IT IS 
ACCUMULATED. TO HANDLE THIS SITUATION, THE CA T/R TEST STORES 
DIAGNOSTIC INFORMATION IN CORE WHILE A TEST IS IN PROGRESS, THEN, AT 
THE END OF THE TEST, PRINTS ALL OF THIS ACCUMULATED INFORMATION AT 
ONE TIME. DURING THE PERIOD THAT THESE PRINTOUTS ARE BEING OUTPUT, 
THE PROGRAM CONTINUES TO MONITOR THE LINE FOR INCOMING CALLS FROM 
THE REMOTE STATION. IF ANYTHING IS RECEIVED FROM THE REMOTE STATION 
THAT REQUIRES A RESPONSE DURING THIS PERIOD, THE PROGRAM WILL 
TRANSMIT AN APPROPRIATE NEGATIVE RESPONSE (NAK OR EOT) TO INDICATE 
THAT THE CA PROGRAM IS BUSY AND NOT READY TO PERFORM ANOTHER TEST. 
NO DIAGNOSTIC INFORMATION IS STORED WHILE PRINTOUTS ARE IN PROGRESS. 



FOLLOWING INITIA 
IS IN EXECUTION 
CONTINUOUSLY MON 
SELECTION SWITCH 
ARE PERIODICALLY 
INFORMED OF THE 
CHANGED AT ANY T 
PROCEDURE. IF T 
PROGRAM WILL ATT 
STATION. IF NO 
WILL SIMPLY MONI 
THE REMOTE STATI 



L PROGRAM LOAD AND AT AN 
BUT NOT ACTUALLY PERFORM 
ITORS THE COMMUNICATION 
ES. DURING THIS PERIOD 

OUTPUT (UNLESS BYPASSED 
STATE OF THE PROGRAM. 
IME BUT WILL BE READ ONL 
HE OPERATOR HAS ENTERED 
EMPT TO INITIATE A TEST 
FUNCTION 1 SELECTION HAS 
TOR THE LINE FOR A TEST 
ON. 



Y TIME THAT THE CA T/R TEST 
ING A TEST, THE PROGRAM 
LINE AND THE OPTION 
•START OF TEST' PRINTOUTS 
)T0 KEEP THE OPERATOR 
PTION SWITCHES MAY BE 

Y DURING THIS INITIALIZATION 
A FUNCTION 1 ENTRY, THE 
PROCEDURE WITH THE REMOTE 

BEEN ENTERED, THE PROGRAM 
INITIALIZATION ATTEMPT BY 



THE INITIALIZATION STATE IS MAINTAINED UNTIL COMMUNICATION IS 
ESTABLISHED WITH THE REMOTE STATION AND A TEST PROCEDURE IS STARTED. 

EACH TEST PROCEDURE PERFORMED BY THE CA T/R TEST CAN BE DIVIDED INTO 
TWO PHASES OF OPERATION. IN THE FIRST PHASE ONE OF THE BSC STATIONS 
TRANSMITS A 'REQUEST FOR TEST MESSAGE" TO REQUEST THAT A TEST 
PROCEDURE BE INITIATED. DURING THIS PHASE OF OPERATION NORMAL BSC 
LINE CONTROL AND ERROR RECOVERY PROCEDURES ARE USED. ERROR RECOVERY 



ATTEMPTS DURING THIS PHASE ARE LIMITED TO THE RETRY COUNT (N) 
SPECIFIED IN THE EDIT CARDS. IF RECOVERY FROM AN ERROR FAILS AFTER N 
ATTEMPTS, THE TEST IS TERMINATED. 

THE SECOND PHASE OF OPERATION IS REFERED TO AS 'TEST MODE' AND IS 
CONSIDERED TO BE THE ACTUAL TEST OF SYSTEM PERFORMANCE. IN TEST MODE 
•TEST MESSAGES' ARE TRANSMITTED BY ONE OF THE STATIONS AND THE OTHER 
STATION RESPONDES EITHER POSITIVLY OR NEGATIVELY TO EACH TEST MESSAGE 
RECEIVED. NO ERROR RECOVERY IS ATTEMPTED IN TEST MODE. 
THE NUMBER OF TEST MESSAGES TRANSMITTED OR THE NUMBER OF ATTEMPTS 
TO RECEIVE TEST MESSAGES IN TEST MODE IS LIMITED BY THE Y COUNT 
CONTAINED IN THE RFT MESSAGE. WHILE IN TEST MODE A STATISTICS 
TABLE IS ACCUMULATED TO PROVIDE A SUMMARY OF THE TEST RESULTS. 

WHEN A TEST PROCEDURE ENDS FOR ANY REASON, AN 'END OF TEST' PRINTOUT 
IS OUTPUT TO INDICATE THE REASON FOR TERMINATION. IF TEST MODE 
WAS ENTERED AND ANY TEST MESSAGES HAD BEEN TRANSMITTED OR RECEIVED 
THE STATISTICS TABLE WILL ALSO BE PRINTED. THE 'STORED' PRINTOUTS, 
IF ANY, WILL THEN BE OUTPUT. 

THE CA T/R TEST IS DIVIDED INTO A LARGE NUMBER OF 'TEST ROUTINES' 
EACH OF WHICH INITIATES A SINGLE I/O OPERATION. THESE ROUTINES 
ARE ALL EXECUTED DURING SERVICING OF CA INTERRUPTS. EACH ROUTINE IS 
SETUP SO THAT A SINGLE INTERRUPT WILL COMPLETE THE FUNCTIONS OF 
THAT ROUTINE. 

AFTER A 'TEST ROUTINE' HAS STARTED ITS I/O OPERATION, CONTROL IS 
RETURNED TO THE MAINLINE PROGRAM TO WAIT FOR THE CA INTERRUPT. WHEN 
THE INTERRUPT OCCURS THE RESULTS OF THE I/O OPERATION ARE ANALYZED. 
UNLESS THE 'BYPASS ENTIRE TRACE' OPTION IS SELECTED, A 'STORED' 
ERROR PRINTOUT IS STORED IN A TABLE IN CORE FOR EACH ERROR THAT IS 
DETECTED DURING THE ANALYZATION. IF NO ERRORS ARE DETECTED AND THE 
OPERATOR HAS SELECTED THE 'TRACE ENTIRE TEST' OPTION, THEN A SINGLE 
STATUS PRINTOUT IS STORED. 

AFTER THE ANALYZATION IS COMPLETE, IF ANY ERROR OR STATUS MESSAGES 
WERE STORED, A D003 MESSAGE IS ALSO STORED. THE D003 PRINTOUT WILL 
ALWAYS CONTAIN THE OPERATING AND BYTE COUNT DSW'S SENSED AT THE TIME 
THE INTERRUPT OCCURED. ALL OR PART OF THE TRANSMIT AND/OR RECEIVE 
TABLES MAY ALSO BE INCLUDED IN THE D003 PRINTOUT. 

THIS PROCEDURE IS REPEATED FOR EACH TEST ROUTINE UNTIL A TEST 
PROCEDURE IS TERMINATED. AT THE END OF THE TEST ALL OF THIS STORED 
INFORMATION IS PRINTED IN THE ORDER IN WHICH IT WAS ACCUMULATED. 

PRINTOUTS INITIATED BY THE CA T/R TEST ARE DIVIDED INTO FOUR GROUPS 
DEPENDING ON THE TYPE OF INFORMATION PROVIDED BY THE PRINTOUT. 

A) START OF TEST PRINTOUTS (AAAX AND EEEX PRINTOUTS) 

B) ENO OF TEST PRINTOUTS ( AAOX AND EEOX PRINTOUTS) 

C) STORED OR TRACE PRINTOUTS (AOXX AND EOXX PRINTOUTS) 

D) DATA PRINTOUTS (DOOX) 

A) START OF TEST PRINTOUTS (AAAX AND EEEX PRINTOUTS) 

THESE PRINTOUTS OCCUR DURING COMMUNICATION LINE INITIALIZATION 
ATTEMPTS. THE STATUS (AAAX) PRINTOUTS OCCUR PERIODICALLY UNTIL 
A TEST PROCEDURE IS SUCCESSFULLY INITIATED BY EITHER THE LOCAL OR 
THE REMOTE STATION. THE NUMBER OF INITIALIZATION ATTEMPTS BETWEEN 
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PRINTOUTS IS DETERMINED BY THE RETRY COUNT ENTERED IN THE EDIT 
CARDS. UNDER CERTAIN CONDITIONS, SUCH AS A SMALL RETRY COUNT OR 
RAPID EXHAUSTION OF THE RETRY COUNT, THESE PRINTOUTS MAY OCCUR 
AT UNDESIRABLY SHORT INTERVALS. IF, FOR THIS OR OTHER REASONS, 
THE OPERATOR DOES NOT WISH TO MONITOR THE INITIALIZATION STATE, THE 
AAAX PRINTOUTS MAY BE BYPASSED BY USE OF FUNCTION SW 7. THE EEEX 
PRINTOUTS INDICATE INCORRECT OPTION SELECTION AND CANNOT BE BYPASSED. 
SINCE THESE PRINTOUTS ARE NOT ASSOCIATED WITH ANY PARTICULAR TEST 
ROUTINE, THE RID AND RAD ARE ALWAYS PRINTED AS ZEROS. 

B) END OF TEST PRINTOUTS (AAOX AND EEOX PRINTOUTS) 

ONE OF THESE PRINTOUTS WILL OCCUR EACH TIME A TEST PROCEDURE IS 
TERMINATED FOR ANY REASON. THE PRINTOUT INDICATES THE REASON FOR 
TERMINATION. ANY ACCUMULATED STATISTICS OR TRACE INFORMATION IS 
OUTPUT FOLLOWING THE END-OF-TEST PRINTOUT. THE RID AND RAD 
INCLUDED IN THESE PRINTOUTS REFER TO THE LAST TEST ROUTINE 
EXECUTED. 

C) STORED OR TRACE PRINTOUTS (AOXX AND EOXX PRINTOUTS) 

THESE PRINTOUTS OCCUR AS THE RESULT OF DIAGNOSTIC INFORMATION 
STORED IN A TABLE IN CORE DURING THE TEST COMMUNICATIONS WITH THE 
REMOTE STATION. AS EACH TEST ROUTINE IS EXECUTED, THE ROUTINE 
NUMBER AND THE MID OF EACH APPLICABLE PRINTOUT ARE STORED IN THE 
TABLE. NORMALLY ONLY ERROR PRINTOUTS ARE STORED SO THAT AT THE 
END OF A TEST ONLY THOSE ROUTINES THAT INDICATED ERRORS ARE 
LISTED. AN OPERATING OPTION, 'TRACE ENTIRE TEST' (TABLE 0), IS 
PROVIDED WHICH WILL CAUSE STATUS MESSAGES TO ALSO BE STORED. IF 
THIS OPTION IS SELECTED AT LEAST ONE PRINTOUT WILL OCCUR FOR EACH 
TEST ROUTINE EXECUTED. ANY NUMBER OF 'STORED' PRINTOUTS MAY 
OCCUR FOR EACH TEST ROUTINE EXECUTED. ROUTINES WILL ALWAYS BE 
LISTEO IN THE ORDER IN WHICH THEY WERE EXECUTED, AND PRINTOUTS 
APPLICABLE TO EACH ROUTINE WILL BE PRINTED IN THE SEQUENCE IN 
WHICH THE CONDITIONS WERE DETECTED. GENERALLY, WHEN MORE THAN 
ONE ERROR IS LISTED FOR A ROUTINE, THE FIRST PRINTOUTS INDICATE 
HARDWARE DETECTED ERRORS SUCH AS DSW ERRORS, AND THE LAST PRINTOUT 
INDICATES THE CONDITION FROM A LINE CONTROL STANDPOINT SUCH AS 
AN INVALID SEQUENCE RECEIVED FROM THE REMOTE STATION. THE LAST 
•STORED' STATUS OR ERROR MESSAGE PRINTED FOR EACH ROUTINE WILL 
ALWAYS BE FOLLOWED BY A D003 PRINTOUT. THE D003 PRINTOUT PROVIDES 
THE OPERATING DSW AND BYTE DSW SENSED WHEN THE INTERRUPT FOR THE 
INDICATED ROUTINE OCCURED. IF ONE OF THE 'TRACE DATA' OPTIONS IS 
SELECTED THE D003 PRINTOUT WILL ALSO LIST THE DATA TRANSMITTED 
AND RECEIVED. REFER TO D003 PRINTOUT DESCRIPTION IN SECTION 4.2. 
OCCASIONALLY, IF LARGE AMOUNTS OF INFORMATION MUST BE STORED, 
CORE MAY BECOME FULL OR STORED INFORMATION. IF THIS OCCURS, THE 
TEST WILL CONTINUE TO COMPLETION BUT NO FURTHER INFORMATION CAN 
BE SAVED. LOSS OF DIAGNOSTIC INFORMATION AND EXCESSIVELY LONG 
TRACE PRINTOUTS CAN BE AVOIDED BY SELECTING SMALL Y COUNT VALUES 
AND ONLY THOSE TRACE OPTIONS THAT ARE ABSOLUTELY REQUIRED. 

D) DATA PRINTOUTS (DOOX) 

THE FIRST TWO DATA PRINTOUTS LISTED IN 4.2 (D001 AND D002 ) PROVIDE 
A BRIEF SUMMARY OF THE RESULTS OF A TEST PROCEDURE. THESE PRINTOUTS 
OCCUR ONLY IF A TEST IS SUCCESSFULLY STARTED AND AT LEAST ONE TEST 
MESSAGE IS TRANSMITTED OR RECEIVED. THE D003 PRINTOUT PROVIDES DSW'S 
SENSED AND DATA TRANSMITTED AND RECEIVED. 



5.2 REQUEST-FOR-TEST (RFT) MESSAGES 

AN RFT MESSAGE IS DEFINED AS A MESSAGE WHICH IS TRANSMITTED BY A 
BSC STATION TO REQUEST THAT A TEST PROCEDURE BE INITIATED. 

THE FORMAT OF THE RFT MESSAGE IS... 



S ADS DEB 

OSXYNDLT TEXT L T C 

H D E X E X C 
R 



NOTE... 

TEXT IS INCLUDED ONLY IF X=01 AND 
THE OLE CHARACTERS ARE INCLUDED ONLY 
FOR TRANSPARENT TEXT. 



WHERE... 

SOH % IDENTIFIES THE MESSAGE AS AN RFT MESSAGE. 

X IS A FIELD OF TWO NUMERIC CHARACTERS (00-99) WHICH DEFINES THE 
ACTION TO BE PERFORMED DURING THE TEST AND/OR THE TEST MESSAGE TO BE 
USED DURING THE TEST. THE FUNCTION 1 OPTION (TABLE 1 SEC. 3.2) 
IS USED TO CONTROL THE X VALUE FOR RFT MESSAGES TRANSMITTED. 
IF SWS 0-1=00 THEN X=00, IF SWS 0-1=01 THEN X=01, IF SWS 0-1=10 
THEN X=02-99 AS SELECTED IN SWS 8-15. 

IF X=00 THEN THE STATION WHICH TRANSMITTED THE RFT MESSAGE (THE 
REQUESTOR) WILL ALSO TRANSMIT THE TEST MESSAGES. 

IF X=01 THEN THE STATION WHICH RECEIVED THE RFT MESSAGE (THE 
RESPONDOR) WILL TRANSMIT TEST MESSAGES CONTAINING THE TEXT RECEIVED 
IN THE RFT MESSAGE. 

IF X=02-98 THEN THE RESPONDOR WILL TRANSMIT TEST MESSAGES AS 
SPECIFIED BY THE X FIELD (E.G., IF X=02 THEN TEST MESSAGE NUMBER 02 
IS TRANSMITTED). 

IF X=99 THEN THE RESPONDOR WILL ENTER A 30 SECOND DELAY UPON RECEIPT 
OF THE RFT IN ORDER TO ALLOW TIME FOR OPERATOR INTERVENTION AT THE 
REQUESTOR STATION. THE REQUESTOR WILL THEN TRANSMIT THE TEST 
MESSAGES. 

Y IS A FIELD OF TWO NUMERIC CHARACTERS (01-99) WHICH SPECIFIES THE 
NUMBER OF TEST MESSAGES TO BE TRANSMITTED. THE FUNCTION 3 OPTION 
(TABLE 3 SEC. 3.2) IS USED TO CONTROL THE Y VALUE FOR RFT MESSAGES 
TRANSMITTED. 

N IS A SINGLE NUMERIC CHARACTER WHICH SPECIFIES THE SIZE OF THE 
ADDR FIELD. 

THE ADDR FIELD CONTAINS THE STATION OR DEVICE ADDRESS TO WHICH THE 
TEST MESSAGES WILL BE SENT. 
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5.3 TEST MESSAGES 

TEST MESSAGES ARE THOSE MESSAGES TRANSMITTED BY THE REQUESTOR 
FOLLOWING THE RFT MESSAGE OR BY THE RESPONOOR IN RESPONSE TO THE 
RFT MESSAGE. 

NOTE... IF AN RFT MESSAGE IS RECEIVED THAT REQUESTS ONE OF THE 
TEST MESSAGES THAT BEGIN WITH STX SYN SYN AND THE ADDR FIELD IN 
THE RFT MESSAGE IS TWO CHARACTERS IN LENGTH, THEN THE TWO SYN 
CHARACTERS IN THE TEST MESSAGE WILL BE REPLACED BY THE ADDR FIELD 
FROM THE RFT MESSAGE. THIS ALLOWS DEVICES THAT USE A UNIT SELECTION 
ADDRESS TO SPECIFY THE UNIT TO BE SELECTED BY THE TEST MESSAGES. 

THE FOLLOWING TEST MESSAGES ARE USED BY THE CA TRANSMIT/RECEIVE TEST. 

01— DEFINED BY OPERATOR VIA EOIT CAROS. 

THIS TEST MESSAGE CAN BE USED ONLY WHEN TRANSMITTING AN 
RFT MESSAGE WITH X=00 OR 01. 



02 — EBCDIC - TRANSPARENT TEXT 



12— EBCDIC 



2780 PRINTER 



D S DEB 
L T TEXT L T C 
EX E X C 



TEXT=256 CHARACTERS, HEX 00 THRU FF 
IN BINARY SEQUENCE ORDER. 



04— EBCDIC - NORMAL TEXT 



S S S E B 
T Y Y TEXT T C 
X N N X C 



05— ASCII 

S S s 
T Y Y 
X N N 



06— ASCII 



E B 

TEXT T C 

X C 



S S S E B 
T Y Y TEXT T C 
X N N X C 



TEXT=245 CHARACTERS, HEX 00 THRU HEX FF IN 

BINARY SEQUENCE ORDER BUT EXCLUDING THE 
11 BSC CONTROL CHARACTERS. (SEE 6.1) 



TEXT=117 7 BIT CHARACTERS, HEX 00 THRU HEX 7F 
(IGNORE HI ORDER BIT) IN BINARY SEQUENCE 
ORDER BUT EXCLUDING CONTROL CHARACTERS. 



TEXT=36 CHARACTERS, A THRU Z AND THRU 9 
IN COLLATING SEQUENCE ORDER. 



07— ASCII - 2780 PRINTER 

S E E B TEXT=36 CHARACTERS, A THRU Z AND THRU 9 
T S Q TEXT T C IN COLLATING SEQUENCE ORDER. 
X C X C 



08— ASCII - 2780 PUNCH 

S E E B TEXT=36 CHARACTERS, A THRU Z AND THRU 9 
T S 4 TEXT T C IN COLLATING SEQUENCE ORDER. 
X C X C 



SI E B TEXT=36 CHARACTERS, A THRU Z AND THRU 9 
T S / TEXT T C IN COLLATING SEQUENCE ORDER. 
X C X C 



13— EBCDIC 



2780 PUNCH 



S E E B TEXT=36 CHARACTERS, A THRU Z AND THRU 9 
T S 4 TEXT T C IN COLLATING SEQUENCE ORDER. 
X C N X C 



14— EBCDIC 



S S S E B TEXT=36 CHARACTERS, A THRU Z AND THRU 9 
T Y Y TEXT T C IN COLLATING SEQUENCE ORDER. 
X N N X C 



15— EBCDIC - ALL ZERO'S WEAK PATTERN 

S S S E B TEXT=74 CHARACTERS HEX 00 FOLLOWED BY 

T Y Y TEXT T C 6 SYN CHARACTERS. 

X N N X C 



16— EBCDIC - ALTERNATE ZERO-ONE WEAK PATTERN 

S S S E B TEXT=40 CHARACTERS HEX AA FOLLOWED BY 
T Y Y TEXT T C 40 CHARACTERS HEX 55. 
X N N X C 



19 — EBCDIC - WEAK PATTERN TRANSPARENT TEXT 

D S DEB TEXT=280 CHARACTERS HEX 00 FOLLOWED BY 

L T TEXT L T C 10 SYN CHARACTERS. 

EX E X C 



20 — EBCDIC 



80 CHARACTER TRANSPARENT TEXT 



D S DEB TEXT=80 CHARACTERS, U THRU Z AND THRU 9 IN 

L T TEXT L T C COLLATING SEQUENCE ORDER, AND HEX 00 THRU 3F 

EX E X C IN BINARY SEQUENCE ORDER. 



21— EBCDIC 



120 CHARACTER TRANSPARENT TEXT 



D S DEB TEXT=120 CHARACTERS, A THRU Z AND THRU 9 IN 

L T TEXT L T C COLLATING SEQUENCE ORDER, AND HEX 00 THRU 53 

EX E X C IN BINARY SEQUENCE ORDER. 



22— EBCDIC 



144 CHARACTER TRANSPARENT TEXT 



D S DEB TEXT=144 CHARACTERS, A THRU Z AND THRU 9 IN 

L T TEXT L T C COLLATING SEQUENCE ORDER, AND HEX 00 THRU 6B 

EX E X C IN BINARY SEQUENCE ORDER. 
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FOR X=01, MULTI-POINTt ONLY LOCAL STATION CAN TRANSMIT THE RFT. 



( 

( 
( 
( 



5.4 LINE CONTROL PROCEDURES 

THE FOLLOWING LINE CONTROL CHARTS SHOW THE NORMAL SEQUENCE 

OF CONTROL AND TEXT CHARACTERS TRANSMITTED BY EACH STATION 

UNDER VARIOUS TEST CONDITIONS. THE EXAMPLES ALL ASSUME A 

Y VALUE OF ONE AND NORMAL TEXT. IN THE EXAMPLES, ID REPRESENTS 

THE SWITCHED LINE IDENTIFICATION SEQUENCE. THE ID CAN BE IGNORED 

FOR PRIVATE OR LEASED LINE. POLL REPRESENTS THE LOCAL STATIONS 

POLLING ADDRESS AND SEL REPRESENTS THE SELECTION ADDRESS. 

FOR X=00, POINT-TO-POINT, EITHER STATION TRANSMITTING THE RFT 



REQUESTOR 
TRANSMITS 



RESPONDOR 
TRANSMITS 



I E 

D N 
Q 



X X Y N 



TEXT 



CONTROL 
TRANSMITS 



LOCAL 
TRANSMITS 



E P E A 

N C 

T L Q K 

L 1 

S AS E B E 

X X Y N D T TEXT T C 



E S E 
OEN 
T L Q 



S E B 

T TEXT T C 
X X C 



H 



D X 



X C 



REQUESTOR 


IE S AS 


E 


B 


E 




A 






A 


TRANSMITS 


DN * X Y N D T 


T 


C 







C 






C 




Q H D X 


X 


C 


T 




K 






K 




R 

















1 


RESPONDOR 


I A 




A 




E 


S 




E B 


E 


TRANSMITS 


D C 




C 




N 


T 


TEXT 


T C 







K 




K 




Q 


X 




X C 


T 









1 















A 
C 



FOR X=02-98, POINT TO POINT, EITHER STATION TRANSMITTING THE RFT 



FOR X=00, MULTI-POINT, LOCAL STATION TRANSMITTING THE RFT, 



FOR X=02-98, MULTI-POINT, ONLY LOCAL STATION CAN TRANSMIT THE RFT 



CONTROL 
TRANSMITS 



LOCAL 
TRANSMITS 



X X Y N 



TEXT 



FOR X=00, MULTI-POINT, CONTROL STATION TRANSMITTING THE RFT. 



CONTROL 
TRANSMITS 


E S E S AS 
OEN OSXYNDT 
T L Q H D X 
R 

A 

C 

K 




E B S 
T C T 
X C X 


TEXT 


E 
T 
X 


B E 
C 
C T 






LOCAL 
TRANSMITS 


A 
C 

K 

1 








A 
C 
K 








FOR X=01, 


POINT-TO-POINT, EITHER 


STATION 


TRANSMITTING 


THE RFT 




REQUESTOR 
TRANSMITS 

RESPONDOR 
TRANSMITS 


IE S AS 
DN OSXYNDT 
Q H D X 
R 
I A 
D C 
K 



E B 

TEXT T C 

X C 


A 
C 

K 

1 


E 


T 


E 
N 



A A 

C C 

K K 

1 

S E B 

T TEXT T C 

X X C 


E 



T 



CONTROL 
TRANSMITS 



LOCAL 
TRANSMITS 



E P E 

N 

T L Q 

L 



E S E 
OEN 
T L Q 



S A S E B E A 

OSXYNDTTC C 

H D X X C T K 

R 



S E B E 
T TEXT T C 
X X C T 

A 
C 
K 

1 



FOR X=99, POINT TO POINT, ONLY REMOTE STATION CAN TRANSMIT THE RFT 



REQUESTOR I E 
TRANSMITS D N 

Q 

RESPONDOR 
TRANSMITS 



S ASEBE EDS 

OSXYNDTTC N 

H DXXCT30QEX 

R SECOND 

I A A DELAY A 

DC C C 

K K K 

10 



DEB 
L T TEXT L T C 



E X C 



5.5 ROUTINE DESCRIPTIONS 

TEST ROUTINES ARE NUMBERED SEQUENTIALLY FROM HEX 01 THROUGH HEX 22 
(RTN01-RTN22). THE RID AND RAD FIELDS IN THE PRINTOUTS REFER TO 
TO THESE TEST ROUTINE NUMBERS. 

ALL TEST ROUTINES ARE EXECUTED DURING SERVICING OF CA INTERRUPTS AND 
ALL OPERATE IN THE SAME BASIC SEQUENCE. EACH TEST ROUTINE INITIATES 
A SINGLE CA I/O OPERATION AND THAT OPERATION IS SET UP SO THAT A 
SINGLE CA INTERRUPT WILL COMPLETE THE FUNCTIONS REQUIRED OF THAT 
OPERATION. 
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EACH TEST ROUTINE INITIATES ITS UNIQUE I/O OPERATION BY A CALL ON A 
COMMON I/O SUBROUTINE XMRCV. XMRCV SETS UP TRANSMIT AND RECEIVE 
TABLES AS SPECIFIED BY THE CALLING ROUTINE, EXECUTES A CLEAR CA 
INSTRUCTION, STARTS THE I/O OPERATION SPECIFIED BY THE CALLING 
ROUTINE, AND EXITS FROM THE INTERRUPT SERVICE. NOTE THAT THE CA IS 
ALWAYS CLEARED JUST BEFORE AN I/O OPERATION IS STARTED. 

WHEN THE CA INTERRUPT OCCURS, ENTRY IS INTO A COMMON INTERRUPT 
SERVICE ROUTINE 'INT'. 'INT' SENSES AND CHECKS THE OPERATING AND 
BYTE COUNT DSW'S AND, IF OPERATION WAS IN DIAGNOSTIC MODE, CHECKS 
THE DIAGNOSTIC WORDS. CONTROL IS THEN RETURNED TO THE TEST ROUTINE 
THAT INITIALLY CALLEO XMRCV. 

THE TEST ROUTINE THEN CHECKS THE RESULTS OF THE I/O OPERATION. THIS 
IS DONE BY EXAMINING VARIOUS PROGRAM INDICATORS AND BY EXAMINING 
ANY DATA THAT HAS BEEN RECEIVED FROM THE REMOTE STATION. THE RESULTS 
OF THIS ANALYSIS DETERMINE WHICH TEST ROUTINE IS TO BE EXECUTED NEXT 
AND CONTROL IS TRANSFERED TO THAT ROUTINE. THE NEXT TEST ROUTINE 
THEN CALLS XMRCV^AND THE SEQUENCE IS REPEATED. 

TO FACILITATE EASY REFERENCE TO THE I/O OPERATION INITIATED BY EACH 
TEST ROUTINE, ROUTINE DESCRIPTIONS ARE SET UP IN TABULAR FORM. 
ALTHOUGH NOT SPECIFICALLY MENTION IN EACH INDIVIDUAL ROUTINE 
DESCRIPTION, EACH TEST ROUTINE PERFORMS AN ANALYSIS OF RESULTS OF THE 
OPERATION TO DETERMINE WHICH TEST ROUTINE IS TO BE EXECUTED NEXT. 
USUALLY PART OF THIS ANALYSIS CONSISTS OF CALLS ON COMMON ANALYSIS 
SUBROUTINES AND IN SOME CASES TWO OR MORE TEST ROUTINES MAY SHARE A 
COMMON ANALYSIS SECTION. 



RTN01.. CLEAR CA 



I/O OPERATION STARTED - START CONTINUE TIMER 

MODIFIER BIT 10 ON). 
TABLES USED - NONE 
INTERRUPT EXPECTED - TIMEOUT. 
TRANSMITTED DATA - NONE 
EXPECTED RECEIVE DATA - NONE 



RTN02.. RECEIVE INITIAL ENQ 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - RECEIVE TABLE ONLY, NO CHAINING 

INTERRUPT EXPECTED - END-CHARACTER-DECODED 

TRANSMITTED DATA - NONE 

EXPECTED RECEIVE DATA - ENQUIRY CONTROL CHARACTER (ENQ). 



(XIO SENSE DEVICE WITH 



RTN04. .TRANSMIT INITIAL ENQ, RECEIVE ACKO 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A TRANSMIT TABLE WITH THE TABLE COMPLETE INTERRUPT 

SUPPRESSED CHAINED TO A RECEIVE TABLE WITH THE TABLE 

COMPLETE INTERRUPT SUPPRESSED. 
INTERRUPT EXPECTED - END-CHARACTER-DECODED 
TRANSMITTED DATA- THE ENQUIRY CONTROL CHARACTER (ENQ). 
EXPECTED RECEIVE DATA - EVEN ACKNOLEDGE SEQUENCE (ACKO). 

RTN05.. TRANSMIT INITIAL ID ENQ, RECEIVE ID ACKO 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A TRANSMIT TABLE WITH THE TABLE COMPLETE INTERRUPT 

SUPPRESSED CHAINED TO A RECEIVE TABLE WITH THE TABLE 
COMPLETE INTERRUPT SUPPRESSED. 
INTERRUPT EXPECTED - END-CHARACTER-DECODED 
TRANSMITTED DATA - THE SWITCHED LINE INIT AL IZAT ION SEQUENCE (ID ENQ). 

THE ID IS OBTAINED FROM THE EDIT CARD ENTRY. 
EXPECTED RECEIVE DATA - THE SWITCHED LINE INITIALIZATION ACKNOWLEDGE 

(ID ACKO). THE PROGRAM CHECKS ONLY THAT THE 
SEQUENCE RECEIVED ENDED WITH ACKO. 

RTN06..WAIT FOR RING INDICATOR 

I/O OPERATION STARTED - START CONTINUE TIMER AND ENABLE RINGING 

INTERRUPT (XIO SENSE DEVICE WITH MODIFIER 
BITS 10 AND 11 ON). 

TABLES USED - NONE 

INTERRUPT EXPECTED - EITHER A TIMEOUT OR A RINGING INTERRUPT. 

TRANSMITTED DATA - NONE 

EXPECTED RECEIVE DATA - NONE 

RTN07.. TRANSMIT TONE 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A TRANSMIT TABLE WITH THE TABLE COMPLETE INTERRUPT 

SUPPRESSED CHAINED TO ANOTHER TRANSMIT TABLE WITH THE 
TABLE COMPLETE INTERRUPT SUPPRESSED. THE SECOND TABLE 
IS CHAINED BACK TO ITSELF TO FORM AN CLOSED LOOP. 

INTERRUPT EXPECTED - TIMEOUT 

TRANSMITTED DATA - BOTH TABLES CONTAIN ONLY SYN CHARACTERS. 

EXPECTED RECEIVE DATA - NONE 



RTN03.. RECEIVE INITIAL ID ENQ 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - RECEIVE TABLE ONLY, NO CHAINING 

INTERRUPT EXPECTED - END-CHARACTER-DECODED 

TRANSMITTED DATA - NONE 

EXPECTED RECEIVE DATA - THE SWITCHED LINE INITIALIZATION SEQUENCE 

(ID ENQ). THE PROGRAM CHECKS ONLY THAT THE 

SEQUENCE ENDED WITH ENQ. 
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RTN08.. RECEIVE PASSIVE STATE 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A RECEIVE TABLE WITH THE TABLE COMPLETE INTERRUPT 

SUPPRESSED CHAINED TO ANOTHER RECEIVE TABLE WITH THE 
TABLE COMPLETE INTERRUPT SUPPRESSED. THE SECOND 
TABLE IS CHAINED BACK TO ITSELF TO FORM A CLOSED LOOP. 
INTERRUPT EXPECTED - END-CHARACTER-DECODED 
TRANSMITTED DATA - NONE 

EXPECTED RECEIVE DATA - THE PURPOSE OF THIS ROUTINE IS TO MONITOR 

COMMUNICATIONS BETWEEN THE CONTROL STATION 
AND OTHER TRIBUTARY STATIONS. THIS IS DONE 
BY MONITORING FOR ENO CHARACTERS (END- 
CHARACTER-DECODED INTERRUPTS). EOT MUST BE 
RECEIVED BEFORE THE PROGRAM WILL PROGRESS 
BEYOND THIS ROUTINE. 

RTN09.. RECEIVE POLL OR SELECTION ADDRESS 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A RECEIVE TABLE WITH THE TABLE COMPLETE INTERRUPT 

SUPPRESSED CHAINED TO ANOTHER RECEIVE TABLE WITH THE 
TABLE COMPLETE INTERRUPT SUPPRESSED. THE SECOND 
TABLE IS CHAINED BACK TO ITSELF TO FORM A CLOSED LOOP. 

INTERRUPT EXPECTED - END-CHARACTER-DECODED 

TRANSMITTED DATA - NONE 

EXPECTED RECEIVE DATA - THE MULTIPOINT POLLING OR SELECTION ADDRESS 

AS SPECIFIED IN THE EDIT CARDS. 

RTNOA. .TRANSMIT NAK 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - TRANSMIT TABLE ONLY, NO CHAINING 

INTERRUPT EXPECTED - TABLE COMPLETE 

TRANSMITTED DATA - THE NEGATIVE ACKNOWLEDGE CONTROL CHARACTER (NAK). 

EXPECTED RECEIVE DATA - NONE 



RTNOD. .TRANSMIT ACKO, RECEIVE REQUEST-FOR-TEST 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A TRANSMIT TABLE WITH THE TABLE COMPLETE INTERRUPT 

SUPPRESSED CHAINED TO A RECEIVE TABLE. 
INTERRUPT EXPECTED - END-CHARACTER-DECODED 

TRANSMITTED DATA - EVEN ACKNOWLEDGE CONTROL SEQUENCE (ACKO). 
EXPECTED RECEIVE DATA - ANY VALID REQUEST-FOR-TEST MESSAGE. 

RTNOE.. TRANSMIT ID ACKO, RECEIVE REQUEST-FOR-TEST 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A TRANSMIT TABLE WITH THE TABLE COMPLETE INTERRUPT 

SUPPRESSED CHAINED TO A RECEIVE TABLE. 
INTERRUPT EXPECTED - END-CHARACTER-DECODED 
TRANSMITTED DATA - THE SWITCHED LINE POSITIVE RESPONSE TO SELECTION 

(ID ACKO). THE ID IS OBTAINED FROM THE EDIT ENTRY. 
EXPECTED RECEIVE DATA - ANY VALID REQUEST-FOR-TEST MESSAGE. 

RTNOF. .RECEIVE ENQ - RETRY 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - RECEIVE TABLE ONLY, NO CHAINING 

INTERRUPT EXPECTED - END-CHARACTER-DECODED 

TRANSMITTED DATA - NONE 

EXPECTED RECEIVE DATA - THE ENQUIRY CONTROL CHARACTER (ENQ). 

RTN10.. RECEIVE ID ENQ - RETRY 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USEO - RECEIVE TABLE ONLY, NO CHAINING 

INTERRUPT EXPECTED - END-CHARACTER-DECFDED 

TRANSMITTED DATA ■>- NONE 

EXPECTED RECEIVE DATA - THE SWITCHED LINE INITIALIZATION SEQUENCE 

(ID ENQ). THE PROGRAM CHECKS ONLY THAT THE 

SEQUENCE ENOED WITH ENQ. 



RTNOB.. TRANSMIT ID NAK 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - TRANSMIT TABLE ONLY, NO CHAINING 

INTERRUPT EXPECTED - TABLE COMPLETE 

TRANSMITTED DATA - THE SWITCHED LINE NEGATIVE RESPONSE TO SELECTION 

(ID NAK). THE ID IS OBTAINED FROM THE EDIT ENTRY. 
EXPECTED RECEIVE DATA - NONE 



RTNU.. TRANSMIT NAK, RECEIVE REQUEST-FOR-TEST 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A TRANSMIT TABLE WITH THE TABLE COMPLETE INTERRUPT 

SUPPRESSED CHAINED TO A RECEIVE TABLE. 
INTERRUPT EXPECTED - END-CHARACTER-DECODED 

TRANSMITTED DATA - THE NEGATIVE ACKNOWLEDGE CONTROL CHARACTER (NAK), 
EXPECTED RECEIVE DATA - ANY VALID REQUEST-FOR-TEST MESSAGE 



RTNOC. TRANSMIT NAK, RECEIVE EOT 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A TRANSMIT TABLE WITH THE TABLE COMPLETE INTERRUPT 

SUPPRESSED CHAINED TO A RECEIVE TABLE. 
INTERRUPT EXPECTED - END-CHARACTER-DECOOED 

TRANSMITTED DATA - THE NEGATIVE ACKNOWLEDGE CONTROL CHARACTER (NAK). 
EXPECTED RECEIVE DATA - END OF TRANSMISSION CONTROL CHARACTER (EOT). 



RTN12.. RECEIVE REQUEST-FOR-TEST - RETRY 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - RECEIVE TABLE ONLY, NO CHAINING 

INTERRUPT EXPECTED - END-CHARACTER-DECODED 

TRANSMITTED DATA - NONE 

EXPECTEO RECEIVE DATA - ANY VALID REQUEST-FOR-TEST MESSAGE 
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RTN13.. TRANSMIT REQUEST-FOR-TEST, RECEIVE ACK1 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A TRANSMIT TABLE CHAINED TO ANOTHER TRANSMIT TABLE 
WHICH IS CHAINED TO A RECEIVE TABLE. THE TABLE 
COMPLETE INTERRUPT IS SUPPRESSED ON ALL THREE TABLES. 

INTERRUPT EXPECTED - END-CHARACTER-DECODED 

TRANSMITTED DATA - THE REQUEST-FOR-TEST MESSAGE SELECTED BY THE 
LOCAL STATION OPERATOR. 

EXPECTED RECEIVE DATA - THE ODD ACKNOWLEDGE CONTROL SEQUENCE (ACKL). 

RTN14.. TRANSMIT ENQ, RECEIVE ACK1 - RETRY 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A TRANSMIT TABLE WITH THE TABLE COMPLETE INTERRUPT 

SUPPRESSED CHAINED TO A RECEIVE TABLE WITH THE TABLE 

COMPLETE INTERRUPT SUPPRESSED. 
INTERRUPT EXPECTED - END-CHARACTER-DECODED 
TRANSMITTED DATA - THE ENQUIRY CONTROL CHARACTER (ENQ). 
EXPECTED RECEIVE DATA - THE ODD ACKNOWLEDGE CONTROL SEQUENCE (ACK1). 

RTN15.. TRANSMIT ACK1, RECEIVE EOT 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A TRANSMIT TABLE WITH THE TABLE COMPLETE INTERRUPT 

SUPPRESSED CHAINED TO A RECEIVE TABLE. 
INTERRUPT EXPECTED - END-CHARACTER-DECODED 

TRANSMITTED DATA - THE ODD ACKNOWLEDGE CONTROL SEQUENCE (ACK1). 
EXPECTED RECEIVE DATA - END OF TRANSMISSION CONTROL CHARACTER (EOT). 

RTN16.. RECEIVE EOT - RETRY 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - RECEIVE TABLE ONLY, NO CHAINING 

INTERRUPT EXPECTED - END-CHARACTER-DECODED 

TRANSMITTED DATA - NONE 

EXPECTED RECEIVE DATA - END OF TRANSMISSION CONTROL CHARACTER (EOT). 

RTN17.. TRANSMIT EOT, RECEIVE SELECT 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A TRANSMIT TABLE WITH THE TABLE COMPLETE INTERRUPT 
SUPPRESSED CHAINED TO A RECEIVE TABLE. 

INTERRUPT EXPECTED - END-CHARACTER-DECODED 

TRANSMITTED DATA - THE END OF TRANSMISSION CONTROL CHARACTER (EOT). 

EXPECTED RECEIVE DATA - ON A POINT-TO-POINT LINE, THE ENQUIRY CONTROL 

CHARACTER (ENQ). ON A MULTIPOINT LINE, THE 
MULTIPOINT SELECTION ADDRESS AS SPECIFIED IN 
THE EDIT CARDS. 

RTN18. .RECEIVE SELECT - RETRY 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - RECEIVE TABLE ONLY, NO CHAINING 

INTERRUPT EXPECTED - END-CHARACTER-DECODED 

TRANSMITTED DATA - NONE 

EXPECTED RECEIVE DATA - ON A POINT-TO-POINT LINE, THE ENQUIRY CONTROL 

CHARACTER (ENQ). ON A MULTIPOINT LINE, THE 
MULTIPOINT SELECTION ADDRESS AS SPECIFIED IN 
THE EDIT CARDS. 



RTN19.. TRANSMIT ENQ, RECEIVE ACK0/ACK1 

THE FIRST OPERATION BELOW TAKES PLACE ONLY IF THE DELAY BEFORE 
TRANSMIT OPTION IN EDIT CARD HAS BEEN SPECIFIED AND IS REPEATED 
5 TIMES TO CONSTITUTE A 10 SECOND DELAY. 

I/O OPERATION STARTED - XIO START CONTINUE TIMER 
TABLES USED - NONE 
INTERRUPT EXPECTED - TIMEOUT 
TRANSMITTED DATA - NONE 
EXPECTED RECEIVE DATA - NONE 

T/n OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A TRANSMIT TABLE WITH THE TABLE COMPLETE INTERRUPT 

SUPPRESSED CHAINED TO A RECEIVE TABLE WITH THE TABLE 

COMPLETE INTERRUPT SUPPRESSED. 
INTERRUPT EXPECTED - END-CHARACTER-DECODED 
TRANSMITTED DATA - THE ENQUIRY CONTROL CHARACTER (ENQ). 
EXPECTED RECEIVE DATA - EITHER THE ODD OR THE EVEN ACKNOWDGE CONTROL 

SEQUENCE (ACKO OR ACK1). 

RTN1A.. TRANSMIT TEST MESSAGE, RECEIVE ACK0/ACK1 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A TRANSMIT TABLE WITH THE TABLE COMPLETE INTERRUPT 

SUPPRESSED CHAINED TO A RECEIVE TABLE WITH THE TABLE 
COMPLETE INTERRUPT SUPPRESSED. 
INTERRUPT EXPECTED - END-CHARACTER-DECODED 

TRANSMITTED DATA - A TEST MESSAGE AS DEFINED BY THE REQUEST-FOR- 
TEST MESSAGE. 
EXPECTED RECEIVE DATA - EITHER THE ODD OR THE EVEN ACKNOWDGE CONTROL 

SEQUENCE (ACKO OR ACK1). 

RTN1B. .TRANSMIT ACK0/ACK1, RECEIVE TEST MESSAGE 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A TRANSMIT TABLE WITH THE TABLE COMPLETE INTERRUPT 

SUPPRESSED CHAINED TO A RECEIVE TABLE. 
INTERRUPT EXPECTED - END-CHARACTER-DECODED 
TRANSMITTES DATA - EITHER THE ODD OR THE EVEN ACKNOWLEDGE CONTROL 

SEQUENCE (ACKO OR ACK1). 
EXPECTED RECEIVE DATA - A TEST MESSAGE AS DEFINED BY THE REQUEST-FOR- 
TEST MESSAGE. 

RTN1C. TRANSMIT NAK, RECEIVE TEST MESSAGE 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A TRANSMIT TABLE WITH THE TABLE COMPLETE INTERRUPT 

SUPPRESSED CHAINED TO A RECEIVE TABLE. 
INTERRUPT EXPECTED - END-CHARACTER-DECODED 

TRANSMITTED DATA - THE NEGATIVE ACKNOWLEDGE CONTROL CHARACTER (NAK). 
EXPECTED RECEIVE DATA - A TEST MESSAGE AS DEFINED BY THE REOUEST-FOR- 

TEST MESSAGE. 

RTN1D. .RECEIVE TEST MESSAGE 

I/O OPERATION STARTED - XIO INITIALIZE CA 
TABLES USED - RECEIVE TABLE ONLY, NO CHAINING 
INTERRUPT EXPECTED - END-CHARACTER-DECODED 
TRANSMITTED DATA - NONE 

EXPECTED RECEIVE DATA - A TEST MESSAGE AS DEFINED BY THE REQUEST-FOR- 
TEST MESSAGE. 
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RTN1E.. TRANSMIT ACK0/ACK1, RECEIVE END EOT/DISC 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A TRANSMIT TABLE WITH THE TABLE COMPLETE INTERRUPT 

SUPPRESSED CHAINED TO A RECEIVE TABLE WITH THE TABLE 
COMPLETE INTERRUPT SUPPRESSED. 
INTERRUPT EXPECTED - END-CHARACTER-DECODED 
TRANSMITTED DATA - EITHER THE ODO OR THE EVEN ACKNOWLEDGE CONTROL 

SEQUENCE (ACKO OR ACK1). 
EXPECTED RECEIVE DATA - EITHER THE END OF TRANSMISSION CONTROL 

CHARACTER (EOT) OR THE DISCONNECT CONTROL 
SEQUENCE (DISC). 

RTN1F.. TRANSMIT NAK, RECEIVE END EOT/DISC 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A TRANSMIT TABLE WITH THE TABLE COMPLETE INTERRUPT 

SUPPRESSED CHAINED TO A RECEIVE TABLE WITH THE TABLE 
COMPLETE INTERRUPT SUPPRESSED. 
INTERRUPT EXPECTED - END-CHARACTER-DECODED 

TRANSMITTED DATA - THE NEGATIVE ACKNOWLEDGE CONTROL CHARACTER (NAK). 
EXPECTED RECEIVE DATA - EITHER THE END OF TRANSMISSION CONTROL 

CHARACTER (EOT) OR THE DISCONNECT CONTROL 
SEQUENCE (DISC). 

RECEIVE END EOT/DISC 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - A RECEIVE TABLE ONLY WITH THE TABLE COMPLETE INTERRUPT 

SUPPRESSED. NO CHAINING. 
INTERRUPT EXPECTED - END-CHARACTER-DECODED 
TRANSMITTED DATA - NONE 
EXPECTED RECEIVE DATA - EITHER THE END OF TRANSMISSION CONTROL 

CHARACTER (EOT) OR THE DISCONNECT CONTROL 

SEQUENCE (DISC). 

RTN21. .TRANSMIT EOT 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - TRANSMIT TABLE ONLY, NO CHAINING 

INTERRUPT EXPECTED - TABLE COMPLETE 

TRANSMITTED DATA - THE END OF TRANSMISSION CONTROL CHARACTER (EOT). 

EXPECTED RECEIVE DATA - NONE 

RTN22.. TRANSMIT DISC 

I/O OPERATION STARTED - XIO INITIALIZE CA 

TABLES USED - TRANSMIT TABLE ONLY, NO CHAINING 

INTERRUPT EXPECTED - TABLE COMPLETE 

TRANSMITTED DATA - THE DISCONNECT CONTROL SEQUENCE (DISC). 

EXPECTED RECEIVE DATA - NONE 
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5.7 DIAGNOSTIC MODE 

UNLESS FUNCTION SWITCH 6 IS SELECTED, MOST CA OPERATIONS 
ARE EXECUTED IN DIAGNOSTIC MODE. USE OF DIAGNOSTIC MODE IS 
INHIBITED DURING ANY OPERATION THAT HAS A TRANSMIT OR RECEIVE 
TABLE THAT IS CHAINED BACK TO ITSELF OR THAT TRANSMITS TRANSPARENT 
TEXT OVER 50 CHARACTERS IN LENGTH. 

OPERATION IN DIAGNOSTIC MODE CAUSES THE FOLLOWING CHANGES IN CA 
HARDWARE OPERATION... 

A) ALL CHARACTERS ARE TRANSMITTED FROM OR RECEIVED INTO BIT 
POSITIONS 8-15 IN THE TRANSMIT AND RECEIVE TABLES. 

B) WHEN A RECEIVED CHARACTER IS TRANSFERED TO THE RECEIVE TABLE 
THE BUFFER REGISTER, WHICH SHOULD BE RESET TO ALL ONES, IS 
TRANSFERED INTO BIT POSITIONS 0-7. 

C) IN RECEIVE MODE, AS EACH CHARACTER IS RECEIVED FROM THE LINE, 

A DIAGNOSTIC WORD IS STORED IN THE RECEIVE TABLE. A DIAGNOSTIC 
WORD IS STORED FOR EACH CHARACTER RECEIVED EVEN IF THE 
CHARACTER IS DELETED FROM THE NORMAL RECEIVE TABLE. IF THE 
CHARACTER RECEIVED IS ALSO STORED AS NORMAL DATA (/FFXX), IT 
WILL BE PRECEEDED IN CORE BY THE DIAGNOSTIC WORD. 

D) IN TRANSMIT MODE, THE SEND DATA LINE IS LOOPED BACK TO THE 
INPUT OF THE SERIALIZER-DESERIALIZER, SO THAT TRANSMITTED DATA 
APPEARS BACK IN THE S/D OELAYED BY ONE BIT TIME. 

E) IN TRANSMIT MODE, A DIAGNOSTIC WORD IS STORED IN THE TRANSMIT 
TABLE AFTER EACH COMPLETE CHARACTER IS TRANFERED TO THE SEND DATA 
LINE. -THE DIAGNOSTIC WORD IS STORED FOLLOWING THE CHARACTER IN 
THE TRANSMIT TABLE THAT WAS JUST TRANSMITTED. BITS 7-14 OF THE 
TRANSMIT DIAGNOSTIC WORDS WILL THUS CONTAIN THE CHARACTERS 
TRANSMITTED. DIAGNOSTIC WORDS ARE ALSO INSERTED IN THE TABLE FOR 
EACH CHARACTER INSERTED IN THE DATA STREAM BY THE CA HARDWARE. 

OPERATION IN DIAGNOSTIC MODE CAUSES THE FOLLOWING CHANGES IN CA 
PROGRAM OPERATION... 

A) RECEIVE TABLES ARE PROCESSED BY A SORTING PROCEDURE TO SEPARATE 
THE CHARACTERS RECEIVED FROM THE DIAGNOSTIC WORDS. SORTING IS 
DONE BY EXAMINATION OF BITS 0-7 OF EACH WORD IN THE RECEIVE 
TABLE. BITS 0-7 SHOULD BE ALL ONES FOR DATA WORDS BUT DIAGNOSTIC 
WORDS SHOULD ALWAYS HAVE AT LEAST ONE ZERO IN BITS 0-7. 

B) BITS 8-15 IN EACH DATA WORD IN A RECEIVE TABLE ARE COMPARED TO 
BITS 8-15 OF THE ASSOCIATED DIAGNOSTIC WORD. 

C) TRANSMIT TABLES ARE SET UP TO ALLOW SPACE FOR DIAGNOSTIC WORD 
INSERTION. 

D) BITS 0-7 OF EACH TRANSMIT DATA WORD ARE SET ON (/FF) SO THAT 
TRANSMIT DATA WILL APPEAR IN THE SAME FORMAT AS RECEIVED DATA. 

E) AFTER THE TRANSMIT OPERATION, BITS 7-15 OF EACH TRANSMIT 
DIAGNOSTIC WORD ARE SHIFTED RIGHT ONE POSITION SO THAT BITS 8-15 
OF THE DIAGNOSTIC WORD WILL CONTAIN THE CHARACTER TRANSMITTED. 
BITS 8-15 OF THE DIAGNOSTIC WORD ARE THEN COMPARED TO THE 
CHARACTER THAT SHOULD HAVE BEEN TRANSMITTED. 



5.6 MULTIPLE LINE OPERATION 

ALTHOUGH THE CA TRANSMIT/RECEIVE TEST IS CAPABLE OF OPERATING ONLY 
ONE CA LINE AT A TIME, MULTIPLE LINES CAN BE OPERATED IN OVERLAP BY 
CREATING A SEPARATE PROGRAM FOR EACH LINE. TO DO THIS, NEW PROGRAMS 
MUST BE CREATED AND ASSIGNED DIFFERENT PID'S. THE PROGRAM PID IS 
LOCATED AT ADDRESS /07FF IN CORE AND MAY BE CHANGED BY USE OF A 
PATCH CARD. PID ID IS RECOMMENDED FOR USE WITH THE FIRST EXTRA 
LINE TO BE OPERATED. REFER TO THE DIAGNOSTIC MONITOR DOCUMENTATION, 
SECTION 5.5, FOR DETAILS OF MULTIPLE DEVICE OPERATION. 
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5.8 SERVICE HINTS 

A) BIT POSITIONS 0, It AND 2 OF THE BYTE COUNT DSW ARE CE JUMPERABLE 
AND MAY BE USED TO SAMPLE ANY DESIRED LOGIC POINT AT THE TIME 

OF A CA INTERRUPT. REFER TO THE TABLE BELOW FOR JUMPER POINTS. 

LINE LINE 1 

BIT X2C2G10 X2C2J10 

BIT 1 X2C2J04 X2C2J07 

BIT 2 X2C2G05 X2C2G07 

B) BIT POSITION IN DIAGNOSTIC WORDS STORED IN DIAGNOSTIC MODE 
IS CE JUMPERABLE AND MAY BE USED TO SAMPLE ANY DESIRED LOGIC 
POINT AT CHARACTER TIME INTERVALS DURING A TRANSMIT OR RECEIVE 
OPERATION. 

FOR LINE JUMPER X3C2J07 TO THE DESIRED POINT. 
FOR LINE 1 JUMPER X1C2J07 TO THE DESIRED POINT. 

C) ONCE AN RFT MESSAGE HAS BEEN SUCCESSFULLY TRANSMITTED OR 
RECEIVED AND TEST MODE HAS BEEN ENTERED, NO ATTEMPT IS MADE TO 
RECOVER FROM DETECTED ERRORS. THIS PROVIDES THE CAPABILITY OF 
KEEPING THE CA BUSY LONG ENOUGH FOR USE OF THE SCOPE. TO MAKE 
USE OF THIS SCOPING ABILITY, BYPASS ALL TRACE PRINTOUTS AND 
SELECT A LARGE Y COUNT. 

D) OCCASIONALLY FAILURES OCCUR THAT PREVENT SUCCESSFULL ENTRY 

INTO TEST MODE (RFT MESSAGE CANNOT BE SENT OR RECEIVED). IF THE 
ERROR THAT IS PREVENTING ENTRY INTO TEST MODE IS A DSW ERROR, 
IT IS SOMETIMES POSSIBLE TO FORCE THE PROGRAM TO ACCEPT AN RFT 
MESSAGE. TO TRY THIS, USE A JUMPER TO TIE THE FAILING INDICATOR 
TO GROUND, THUS PREVENTING PROGRAM DETECTION OF THE ERROR. 
THEN ASK THE REMOTE STATION OPERATOR TO SEND AN RFT MESSAGE 
WITH AN X VALUE OF 00 AND A LARGE Y COUNT. 



6. APPENDIX 

6.1 BSC LINE CONTROL CHARACTERS 

FUNCTIONAL MNEMONIC 

EBCDIC CODE IN HEXADECIMAL 

ASCII CODE IN HEXADECIMAL 
* . * . * . * NAME OF FUNCTION 



* * * * 

* DLE * 10 * 10 * DATA LINK ESCAPE * 

* * * * * 

* SOH * 01 * 01 * START OF HEADING * 

* * * * * 

* STX * 02 * 02 * START OF TEXT * 

* * * * * 

* ETB * 26 * 97 * END OF TRANSMISSION BLOCK * 

* * * * * 

* ETX * 03 * 83 * END OF TEXT * 

* * * * * 

* EOT * 37 * 04 * END OF TRANSMISSION (SEE NOTE 1 BELOW) * 

* * * * * 

* ENQ * 2D * 85 * ENQUIRY * 

* * * * * 

* NAK * 3D * 15 * NEGATIVE ACKNOWLEDGEMENT (SEE NOTE 1 BELOW) * 

* * * * * 

* ITB * IF * IF * END OF INTERMEDIATE TRANSMISSION BLOCK * 

* * * * * 

* SYN * 32 * 16 * SYNCHRONOUS IDLE * 

* * * * * 

* ACK * 2E * 86 * POSITIVE ACKNOWLEDGE (SEE NOTE 2 BELOW) * 

* * * * * 

NOTE 1..THE EOT AND NAK CHARACTERS ARE RECOGNOZED AS CONTROL 

CHARACTERS ONLY IF THE FIRST FOUR BITS OF THE TRAILING 

PAD (ALL ONES CHARACTER) ARE SUCCESSFULLY RECEIVED. 

NOTE 2. .ALTHOUGH THE ACK CHARACTER IS DEFINED AS A CONTROL CHARACTER 
AND RESTRICTED FROM USE IN THOSE TEST MESSAGES THAT TRANSMIT 

NORMAL TEXT, THE USE OF ACK AS A POSITIVE ACKNOWLEDGEMENT 
HAS BEEN REPLACED IN BSC PROCEDURES BY THE ACKO AND ACK1 
CONTROL SEQUENCES. 
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6.2 



BSC LINE CONTROL SEQUENCE 



FUNCTIONAL MNEMONIC 

EBCDIC CODE IN HEXADECIMAL 

ASCII CODE IN HEXADECIMAL 
* • * • * . * NAME OF FUNCTION 

* * * * 



* * * * 

* ACKO * 1070 * 10B0 * EVEN ACKNOWLEDGE 

* * * * 

* ACK1 * 1061 * 1031 * ODD ACKNOWLEDGE 

* * * * 

* WACK * 106B * 1038 * WAIT BEFORE TRANSMIT - POSITIVE ACKNOWLEDGE 

* * * * 

* DISC * 1037 * 1004 * MANDATORY DISCONNECT 

* * * * 

* RVI * 107C * 10BC * REVERSE INTERRUPT 

* * * * 

* TTD * 022D * 0285 * TEMPORARY TEXT DELAY 

* * * * 

* XSTX * 1002 * * TRANSPARENT START OF TEXT 

* * * * 

* XETB * 1026 * * TRANSPARENT END OF TRANSMISSION BLOCK 

* * * * 

* XETX * 1003 * * TRANSPARENT END OF TEXT 

* * * * 

* XENO * 102D * * TRANSPARENT BLOCK CANCEL 

* * * * 

* XSYN * 1032 * * TRANSPARENT SYNCHRONOUS IDLE 

* * * * 

* XITB * 101F * * TRANSPARENT END OF INTERMEDIATE TRANSMISSION BLOCK 

* * * * 

* XDLE * 1010 * * DATA OLE IN TRANSPARENT TEXT 

* * * * 
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6.3 CA DSW, BCW, AND DIAGNOSTIC WORD FORMATS 
BYTE COUNT DSW FORMAT 

BITS 0-2. ...C.E. JUMPERABLE - READ AS ONES IF NOT JUMPERED 

BIT 3 ON=TRANSMIT MODE 

BITS 4-15. ..BYTE COUNT IN ONES COMPLEMENT FORM 

OPERATING DSW FORMAT 



BIT 

BIT 

BIT 

BIT 

BIT 

BIT 

BIT 

BIT 

BIT 8 

BIT 9 

BIT 



10 = 



DIAGNOST 



BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 8 = 
BIT 9 = 
BIT 10= 
BIT 11= 
BIT 12= 
BIT 13= 
BIT 14= 
BIT 15= 



CHANNEL STOP INDICATOR - INTERRUPTING CONDITION 
STORAGE PROTECT VIOLATION INDICATOR - INTERRUPTING COND. 
TIMED OUT INDICATOR - INTERRUPTING CONDITION 
END-CHARACTER-DECODED OR RINGING IND - INTERRUPTING COND. 

TABLE COMPLETE INDICATOR - INTERRUPTING CONDITION 
DATA PARITY CHECK INDICATOR 
DATA BCC CHECK INDICATOR 
DATA OVERRUN INDICATOR 
DATA SET READY CONDITION 

COMMAND REJECT INDICATOR - INTERRUPTING CONDITION 
CARRIER ON CONDITION 



C DSW AND DIAGNOSTIC CS WORD FORMAT 

= C.E. JUMPERABLE BIT - ON IF NOT JUMPERED 

= CHARACTER PHASE ON 

= CHARACTER TRIGGER 1 ON 

= NOT CLEAR TO SEND 

= TRANSPARENT TRIGGER ON 

= TEXT TRIGGER ON 

= END TRIGGER ON 

= RECEIVE DATA = MARK 

= S/D BIT ON 

= S/D BIT 1 ON 

= S/D BIT 2 ON 

= S/D BIT 3 ON 

= S/D BIT 4 ON 

= S/D BIT 5 ON 

= S/D BIT 6 ON 

= S/D BIT 7 ON 



6.4 PROGRAM EDIT PROCEDURE 

THE 1800 CA TRANSMIT/RECEIVE TEST REQUIRES THE USE OF TWO PROGRAM 
EDIT CARDS AND AN END EDIT CARD. UP TO FIVE ADDITIONAL CARDS MAY BE 
USED IF THE OPERATOR WISHES TO ENTER THE CONTENT OF TEST MESSAGE 01. 

THE FORMS ON THE FOLLOWING PAGES SHOULD BE USED TO PREPARE THE EDIT 
CARDS. FILL IN THE NECCESSARY ENTRIES IN THE FORMS BEFORE PUNCHING 
THE CARDS. FOR PAPER TAPE LOAD, THE FORMS MAY BE USED TO MANUALLY 
ENTER THE EDIT INFORMATION (SEE DM USE PROCEDURE). ALL ENTRIES ON 
CARDS AND 1 MUST BE USED. CARDS 2 THROUGH 6 ARE OPTIONAL. 
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THE DDEF MUST ALSO BE ENTERED IN THE MONITOR EDIT CARDS ALONG WITH THE CA AREA CODE. 



EDIT CARD (REOUIRED) 

ENTRY I = DEVICE DEFINITION EDIT FIELD. (DDEF). ENTER THE DDEF OF THE CA LINE TO BE TESTED. 

THE AREA CODE ENTRY MUST CONTAIN THE LINE SELECTION MODIFIER BIT. 
ENTRY 2 = EBCDIC OR USASC I I CODE. SPECIFY THE CODE USED ON THE LINE TO BE TESTED. OOOO FOR EBCDIC CODE, 0001 FOR USASC 1 1 . 
ENTRY 3 = NETWORK TYPE. ENTER 0000 FOR A POINT-TO-POINT PRIVATE LINE; 0001 FOR A SWITCHED LINE; OR 0002 FOR A MULTIPOINT NETWORK. 
ENTRY 4 = PRIMARY OR SECONDARY. IF THE LINE TO BE TESTED IS WIRED AS A PRIMARY STATION ENTER 0000, OTHERWISE ENTER 0001. 
ENTRY 5 = ERROR RECOVERY RETRY COUNT. ENTER THE NUMBER OF ATTEMPTS TO TRY A FAILING OPERATION BEFORE ABANDONING THE ATTEMPT. IF 0000 IS ENTERED THE PROGRAM WILL USE A VALUE OF 

8 (7 RETRIES). IT IS RECOMMENDED THAT NO SMALLER VALUE BE USED, EVEN IF THE REMOTE STATION USES A SMALLER VALUE. IF OOON IS ENTERED THE PROGRAM WILL USE THE N VALUE 

(N-l RETRIES). 
ENTRY 6 = TRANSPARENT TEXT, ENABLE/DISABLE. IF THE REMOTE STATION IS CAPABLE OF TRANSMITTING AND RECEIVING TRANSPARENT TEXT, THEN ENTER 0000 TO ALLOW THE LOCAL STATION TO USE 

TRANSPARENT TEXT; OTHERWISE ENTER 0001 TO PREVENT USE OF TEST MESSAGES THAT CONTAIN TRANSPARENT TEXT. TRANSPARENT TEXT WILL BE AUTOMATICALLY DISABLED WHEN USASC I I CODE 

IS SELECTED. 
ENTRY 7 = RINGING INTERRUPT, DISABLE/ENABLE. ENTER 0000 FOR ALL LEASED OR PRIVATE LINES AND FOR THOSE SWITCHED LINES WHERE USE OF THE RINGING INTERRUPT IS NOT DESIRED. AN ENTRY 

OF 0000 IS RECOMMENDED FOR ALL DOMESTIC APPLICATIONS. WHEN 0000 IS ENTERED, AUTO-ANSWER WILL STILL BE ACCOMPLISHED BY HOLDING DATA TERMINAL READY ON WHILE WAITING FOR AN 

INCOMING CALL. AN ENTRY OF 0001 IS REQUIRED IF USE OF THE RINGING INTERRUPT IS DESIRED. THE RINGING INTERRUPT MUST BE USED ON THOSE SYSTEMS THAT REQUIRE DATA TERMINAL 

READY TO BE HELD OFF UNTIL A CALL COMES IN. 
ENTRY 8 = TRANSMIT TONE, DISABLE/ENABLE. AN ENTRY OF 0000 IS REQUIRED ON ALL LEASED OR PRIVATE LINE INSTALLATIONS AND ON THOSE SWITCHED LINE INSTALLATIONS WHERE THE DATA SET 

AUTOMATICALLY TRANSMITS A THREE SECOND TONE WHEN DATA MODE IS ENTERED. ENTER 0001 IF THE DATA SET IN USE DOES NOT TRANSMIT THIS REQUIRED TONE. THE 0001 ENTRY WILL 

CAUSE THE PROGRAM TO PROVIDE THE THREE SECOND TONE TRANSMISSION. 
ENTRY 9 = CYCLE STEAL CHANNEL TIMESHAKE INDICATOR. IF THIS ENTRY IS 0000, THE CA PROGRAM WILL NOT ALLOW ANY DEVICE TO OPERATE WHICH SHARES THE C.S. CHANNEL ASSIGNED TO THE CA. 

THIS IS THE RECOMMENDED MODE OF OPERATION. IF THE DIAGNOSTIC MONITOR LOG DEVICE SHARES THE CA CHANNEL OR IF IT IS DESIRED TO SIMULTANEOUSLY TEST SOME OTHER DEVICE SHARING 

THE CA CHANNEL, THEN THIS ENTRY MUST BE 0001. CHANNEL TIMESHARING MAY CAUSE CA ERRORS IF THE CA PROGRAM IS UNABLE TO OBTAIN CONTROL OF THE CHANNEL WITHIN THE THREE 

SECOND TIMEOUT PERIOD. 
ENTRY A - (SEE FOLLOWING PAGE) 
ENTRY B - (SEE FOLLOWING PAGE) 
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EDIT CARD (CONTINUED) 

ENTRY A - DATA SET TURNAROUND DELAY COUNT. THIS ENTRY IS USED TO SPECIFY 
THE NUMBER OF 3 SECOND TIME PERIOD TO BE ALLOWED FOR DATA SET 
TURNAROUND DELAYS. FOR MOST DATA SETS AND FOR ALL FOUR WIRE 
LINE CONNECTIONS, THE TURNAROUND DELAY IS NEGLIGIBLE AND ENTRY A 
SHOULD BE OOOO. HOWEVER, WHEN SELF EQUALIZING DATA SETS ARE USED 
ON TWO WIRE LINES, THE DATA SET DELAY MAY BE CONSIDERABLE ENTRY 
A SHOULD THEN SPECIFY THE NUMBER OF 3 SECOND TIMEOUTS TO BE 
ALLOWED DURING LINE TURNAROUND. FOR EXAMPLE, IF THE DATA SET 
TURNAROUND TIME IS 20 SECONDS, THEN ENTRY A SHOULD BE 0007 
(3 SEC X7 - 21 SECONDS TURNAROUND TIME). 

ENTRY B - DELAY BEFORE TRANSMIT OF TEST MESSAGES. THIS ENTRY IS USED TO 
CAUSE A TEN SECOND DELAY JUST BEFORE TRANSMITTING TEST MESSAGES 
WHEN PROCESSING A REQUEST-FOR-TEST MESSAGE WITH AN 'X' VALUE OF 
01 OR 02 THRU 98. THIS DELAY IS REQUIRED IN ORDER TO ALLOW FOR 
OPERATOR INTERVENTION WHEN RUNNING WITH CERTAIN DEVICES SUCH AS 
THE 2780 OR 2770. 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 

CA TRANSMIT/RECEIVE TEST 



1800 SYSTEM 



EDIT CARD 1 (REQUIRED) FOR POINT TO POINT (SEE NEXT PAGE FOR MULTI-POINT) 



ENTRY I 



(A) 



(B) 



FOR LEASED 
THIS ENTRY 
IF CA IS W 
GROUND TO 
FOR SWITCH 
THIS ENTRY 
SEQUENCE. 
THEREFORE, 
COUNT THE 
PROGRAM VI 



OR PRIVATE LINE OR SWITCHED LINE OPERATION WITH NO IDENTIFICATION SEQUENCE- 
MUST BE 0000, AND ENTRY 3 IN EDIT CARD MUST SPECIFY POINT TO POINT OPERATION 

IRED FOR OTHER THAN CONTINUOUS CARRIER OPERATION, JUMPER Z-X3L2D04 (MK18D TO 

PROVIDE CA READY INDICATION. l ' 

ED LINE OPERATION USING IDENTIFICATION SEQUENCE- 
MUST CONTAIN THE NUMBER OF CHARACTERS IN THE SWITCHED LINE IDENTIFICATION 

THE IDENTIFICATION SEQUENCE MAY CONTAIN ANYWHERE FROM ONE TO FIFTEEN CHARACTERS 
THIS ENTRY SHOULD RANGE FROM 0001 TO 000 F. WHEN ENTERING THIS COUNT DO NOT ' 

TURNAROUND CHARACTER (ENQ). COUNT ONLY THE LEADING GRAPHIC CHARACTERS THE 

LL ADD THE ENDING CHARACTER. 



ENTRIES 2 THROUGH 9 - THE IDENTIFICATION SEQUENCE LEADING GRAPHIC CHARACTERS. WHEN RUNNING WITHOUT 

S!!M ,C c A on ION SEQUENCE ' AU ENTR,ES MUST BE ° 000 - ,F US,NG IDENTIFICATION SEiuENC E SSsT 
CONTAIN FROM ONE TO FIFTEEN CHARACTERS. PAD REMAINING ENTRIES WITH ZEROES CHARACTERS MUST BE 
ENTERED IN EBCDIC OR ASCII CODE, TWO CHARACTERS PER ENTRY AS FOLLOWS AN EBCDIC 99 WOuTdbI 
ENTERED AS F 9 F9, AND AN ASCI. 99 WOULD BE ENTERED AS B9B9. NONE OF THE ELEVEN DSC \TnE 
CONTROL CHARACTERS (SEE 6.1) MAY BE ENTERED IN THIS FIELD 

ENTRY 10 - THIS ENTRY MUST BE 0000. 



ENTRY I 



ENTRY 2 



COLUMN 



CARD I 



< 

XL U. 

O Z 
O UJ 

oc o 

Ql — 



& 



z < 

< <-> 



o o 

<_> LU 



o 

ec lu 
< <J 



— o 

O LU 
LU lO 



1C 



ft 



I 2 



ENTRY 3 ENTRY 4 



z o 

LU CC 

U.5 
O 

t- 
ec — 

LU O 
CO LU 

3 Z 

z o 



\h 



15 



16 



S 



z 
o 



U. CC (J 
O LU — LU 

►- u. o 

ocu-z 



3 



B«Z3 
t < LU O 
=1 X O LU 

z «_> — to 



17 



18 



19 



20 
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£3 



ENTRY 5 



ENTRY 6 



26 



31 



s 



36 



^ 



k\ 



^ 



PART NO 



PAGE 



CODE CHART FOR ENTERING SWITCHED LINE 
IDENTIFICATION SEQUENCE 



CHARACTER 


EBCD 


A 


CI 


B 


C2 


C 


C3 


D 


C4 


E 


C5 


F 


C6 


G 


C7 


H 


C8 


1 


C9 


J 


Dl 


K 


D2 


L 


D3 


M 


D4 


N 


D5 





D6 


P 


D7 


Q 


D8 


R 


D9 


S 


E2 



ASCII CHARACTER EBCDIC ASCI 

CI T 

C2 U 

43 V 

C4 w 

45 X 

46 Y 
C7 2 
C8 
^9 r \ 
4A 2 
CB 3 
4C 4 
CD 5 
CE 6 
4b 7 
Op 8 

51 9 

52 / 
03 



E3 


54 


Ek 


D5 


E5 


D6 


E6 


57 


E7 


58 


E8 


09 


E9 


DA 


F0 


B? 


Fl 


31 


F2 


32 


F3 


B3 


F4 


34 


E5 


B5 


F6 


B6 


n 


37 


F8 


38 


F9 


B9 


61 


2F 



ENTRY 7 



ENTRY 8 



% 



S 



ENTRY 9 



51 



H 



ENTRY 10 



E 



ETi i I ki 1 1 m I 1 1 M 1 1 1 B 1 1 l H 1 1 1 B i 1 1 t^rrrrR 
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DATE 



14 NOV 69 



i 



1 



M ii itaiiiEa 



El 
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H 



I 



H 



EC NO 431319 



30 JAN 70 
431319A 



I 



20 MAR 70 
431320 



I 



1 



16 DEC 70 
431323 



I 



I 



I 



I 



1 



2279482 



27 
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EDIT CARD 1 (REOUIREO) FOR MULT I -POINT NETWORK ( SEE PRECEEDING PAGE FOR POINT-TO-POINT) 

ENTRY 1 = THE NUMBER OF CHARACTERS IN THE LOCAL STATIONS POLLING ADDRESS. DO NOT COUNT THE END CHARACTER (ENQ). THE POLLING ADDRESS MUST BE FROM 1 TO 7 CHARACTERS IN LENGTH. 

ENTRIES 2 THRU 5 = THE LOCAL STATIONS POLLING ADDRESS. ENTER FROM 1 TO 7 EIGHT BIT CHARACTERS, TWO CHARACTERS PER EDIT ENTRY. NONE 
OF THE ELEVEN BSC LINE CONTROL CHARACTERS (SEE 6.1) MAY BE USED IN THIS FIELD. ENTER ZEROS IN ANY UNUSED ENTRIES. 

ENTRY 6 = THE NUMBER OF CHARACTERS IN THE LOCAL STATIONS SELECTION ADDRESS. DO NOT COUNT THE END CHARACTER (ENQ.) THE SELECTION ADDRESS MUST BE FROM 1 TO 7 CHARACTERS IN LENGTH. 

ENTRIES 7 1HRU 10 = THE LOCAL STATIONS SELECTION ADDRESS. ENTER FROM 1 TO 7 EIGHT BIT CHARACTERS, TWO CHARACTERS PER EDIT ENTRY. 
NONE OF THE ELEVEN BSC LINE CONTROL CHARACTERS (SEE 6.1) MAY BE USED IN THIS FIELD. ENTER ZEROS IN ANY UNUSED ENTRIES. 
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ENTRY J 
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t 8 
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CARD 1 E 


: o d ( 


"1 


E D 


1 


a 





A 


S° 








8 








8 






§ 








§ 










8 


o 





• 8 




| 


S 






8 








8 






1 


8 








$ 










: :::s is:: :i is: :n::::§ :s : § m^ :§ ::^i ::§ ixc: :s - 






""I " 


: :§::::§: 




::§ ::§ :::§::::§: ::n ::§:: : 


1 


8 


S ^ ^> 
X ^ ^ 






8 


a 


: §: ::&: ::§ :::§ 


: :i: : s: in: : 


j§ RS S S IRS 1 






S 


§ 


:::i: 


:::§::::§::: 


:s:::x:::§:::x: 


^ S 5 ^ ^ 
£ £ S ^ £ 



DATE )^nqv69 
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EDIT CARDS 2 THRU 6 (OPTIONAL.) 



wTSJJT ™ ™ , c!^"SJSS?S, , S e Se!S5 S^^SK SSrSTi^-S.IS ^.SiSTS S SE0 " BT BE THE ET * ° R E " C °»"° L «"««««• "su, E WT the mm, 
SS ^TJSrS.SS'' CHECK,NG IS 0ESIRE0 - "°" E " ™" ~ ^^^XJ^^ZZ'^: T^SMt w^rsS 

S™~ 5 ?— -« ms rasa :s: s-jg atys-^-a /vk.otl 
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END OF EDIT CARD (REQUIRED) 
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07FF 



012C 
0120 
012E 
01 2F 
0130 
0131 
0132 



07FF 





ODOO 


.0800 





0000 


0801 





0000 


0802 





0000 


0803 





0000 


0804 





0000 


0805 





0003 


0806 


1 


0866 


0807 


1 


0866 


0808 


1 


086D 


0809 





0000 


080A 





0000 


08 OB 





0000 


08 OC 





0000 


08 OD 





FFFF 


08 OE 


1 


1FFB 



08 OF 



0005 



0814 





0000 


0815 





0000 


0816 





0000 


0817 





0000 


0818 





0000 


0819 





0000 


081A 





0000 


081B 





0000 


08 1C 





0000 


0810 





0000 


08 IE 





0000 



ORG *+/07FF 80D00020 

* 80000030 

* 80D00040 

80000050 

*******************************************»******** 80000060 

* 80D00070 

* MONITOR INTERFACE EQUATE TABLE 80D00080 

* 80000090 

**************************************************** 80000100 



BEGIN EOU 
START EOU 
END EOU 
LOG EOU 
ERROR EOU 
REQDV EOU 
RELOV EOU 
* 
* 



/012C 

BEGIN+1 

START+1 

END+1 

LOG+l 

ERROR* 1 

REODV+1 



MONITOR BEGIN RTN 
MONITOR POLLING RTN 
MONITOR END RTN 
LOG ROUTINE 
ERROR LOG ROUTINE 

RELEASE DEVICE ROUTINE 



80000110 
80000120 
80D00130 
80000140 
80D0C150 
80D00160 
80D00170 
80D00180 
80000190 
80D00200 



*************************************** ************* 80000210 

* 80D00220 

* PROGRAM STATUS TABLE 80000230 

* 80000240 
********************* ******************** *********** 800002 5 



* 

PID 

RIO 

RAO 

SWO 

SHI 

SW2 

SW3 

IPA 

LPA 

EPA 



80D00260 
80000270 
80000280 
80D00290 
80D00300 
80D00310 
80D00320 
80D00330 
80D00340 
80D00350 
80D00360 
80000370 
80D00380 
80000390 
80D00400 
80D00410 
80D00420 
80D00430 
80000440 
80000450 

* 80000460 

* 80000470 
********************* ******************************* 80D00A80 

* 80D00490 

* PROGRAM EDIT FIELD 8OD005O0 

* 80D00510 
********************* ******************************* 80D00520 



DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
MLSCF DC 
DC 
DC 
DC 



TERM 

* 



DC 



BSS 



/ODOO 

*-* 

*-* 

*-* 

*-* 



/0003 

XEQ 

XEO 

OXEO 

*-* 

*-* 

*-* 

*-* 

/FFFF 

PEND 



PROGRAM ID 
ROUTINE ID 
ROUTINE ADDRESS 
PROGRAM CONTROL 
TEST SELECTION 
SW2 NOT USED 
Y SELECTION 
INITIAL PROGRAM ADDR 
LOOP PROGRAM ADDR 
END PROGRAM ADDR 

MAINLINE SEQUENCE 
CONTROL FIELD 

TERMINATOR 

PROGRAM END ADDR 

RESERVED 



* 
* 

DDEF DC 
CODE DC 
NET DC 
SECND DC 
TRIES DC 
TRANS DC 
ANSRQ DC 
TONE OC 
TSSM DC 
TADLY DC 
OLAY OC 
* 

* — 

* 
* 



CA 6 LINE CONFIGURATION PARAMETERS 



*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*_* 
*-* 
*-* 
*-* 



80D00530 
8 ODOO 540 

DEVICE DEFINITION EDIT FLD 80D00550 
0=EBCfrIC, 1=USASCII 80D00560 
0=P-P, 1=P-P SHi 2=MULTI 80D00570 
0=PRIMARY, 1=SEC0NDARY 8ODO0580 
0=8 TRIES, N=N TRIES 80D00590 
©•TRANSPARENT, 1=N0 TRANSP 80D00600 



0=N0 ENABLE, 1=ENABLE 
0=N0 TONE, 1=XMIT TUNE 
TIMESHARE IND 
TURNAROUND DELAY COUNT 
DELAY BEFORE XMIT 



POLLING AND SELECTION ADDRESSES OR 
SWITCHED LINE STATION ID SEQUENCE 



80D00610 
80D00620 
80D00630 
80000640 
80000650 
80000660 
80D00670 
80D00680 
80D00690 



08 IF 0000 


POLIO 


DC 


*-* 


MULTIPOINT POLLING 


80D00710 


0820 0000 




DC 


*-* 


ADDRESS OR 


80D00720 


0821 0000 




DC 


*-* 


SWITCHED LINE 


80D00730 


0822 0000 




DC 


*-* 


ID SEQUENCE 


80D00740 


0823 0000 


* 


DC 


*-* 




80D00750 
80D00760 


0824 0000 


SELID 


DC 


*-* 


MULTIPOINT SELECTION 


80D00770 


0825 0000 




DC 


*-* 


AODRESS OR CONTINUATION 


80D00780 


0826 0000 




DC 


*-* 


OF SWITCHED LINE 


80D00790 


0827 0000 




DC 


*-* 


ID SEQUENCE 


80D00800 


0828 0000 


* 
* 


DC 


*-* 




80000810 
80D00820 
80D00830 



************************************* *************** 80000840 

* 80000850 

* 

* 



TEST MSG 01 FOR USE WITH RFT X=00-01 





* 




0829 0004 


TM01 


DC 


082A 027F 




DC 


082B 8003 




DC 


082C 003A 


* 

* 


BSS 



80D00860 

80D00870 
**************************************************** 80D00880 

80D00890 
4 BYTE COUNT 80D00900 

/027F STX, 7F 80D00910 

/8003 80, ETX 80D00920 

58 RESERVED FOR LONGER MSGS 80000930 

80D00940 
80D00950 
*********************************************** ***** 8 0000960 

* 80D00970 

* EXECUTE PROGRAM 80D00980 

* 80D00990 
**************************************************** 80001000 

* 80D01010 

ENTER TO XEQ PROG 80D01020 

80D01030 
80001040 
80D01050 
80D01060 
80D01070 
80D01080 

80D01090 

**************************************************** 80D(moo 

* 80D01110 

* OE-EXECUTE PROGRAM 80D01120 

* 80D01130 
**************************************************** 8000 j 1 4Q 



0866 





0000 




XEQ 


DC 




*-* 


0867 


1 


6500 


087F 




LDX 


LI 


STRT 


0869 


1 


6D00 


080A 


* 


STX 


LI 


MLSCF 


086B 


1 


4C80 


0866 


BSC 


I 


XEQ 










* 
















* 









SET MLSCF ENTRY TO 
START CA ROUTINE 

RETURN TO MONITOR 











* 












80001150 


086D 





0000 




DXEQ 


DC 


*-* 


ENTER TO END 


PROGRAM 


80D01160 










* 












80001170 


086E 





C093 






LD 


SWO 


RESET 






80D01180 


086F 





1803 






SRA 


3 


TERMINATION 






80D01190 


0870 





1003 






SLA 


3 


OPTIONS 






80D01200 


0871 





D090 




* 


STO 


SWO 








80001210 
80001220 


0872 





1010 






SLA 


16 


' RESET 






80001230 


0873 





D08F 






STO 


SW1 


XMIT RFT SELECTION 


80D01240 


0874 


1 


OCOO 


14E6 


* 


XIO L RESET 


RESET CA 






80D01250 
80001260 










* 












80D01270 


0876 





4480 


0132 




BSI 


[ RELOV 


RELEASE CA 






80D01280 


0878 


1 


0814 






DC 


DDEF 


DDEF ADDRESS 






80001290 


0879 


1 


080D 






DC 


TERM 


TERMINATOR ADDR 




80D01300 


087A 


1 


4C80 


086D 


* 
* 


BSC 1 


DXEQ 


RETURN 






80D01310 
80D01320 
80D01330 
















- 80001340 










* 




END PROGRAM 






80D01350 


087C 





40F0 




* 
QUIT 


BSI 


DXEQ 


END PROG OPTION 


SELECTED 


80001360 
80D01370 



OATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



06N0V70 
431323 



PROG ID 
PAGE 



080D-0 DATE 

1 EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



06N0V70 
431323 



PROG ID 
PAGE 



080D-0 
1A 
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087D 4C80 012E 



BSC I END 



BR TO MONITOR END RTN 



80D01380 
80D01390 

* 80D01400 

***#************************************************ 80001410 
^ 80D01420 

* START CA OPERATION 80D01430 

* 80D01440 
***#********>»***************************************80D01450 



08A7 1 C400 0802 
08A9 1 4C04 087C 

08AB C1FC 
08 AC E9FF 
08AD 1 ECOO 1AC9 
08AF 1 4C20 08CF 

08B1 1 6500 08B7 
08B3 1 6D00 080C 
08B5 4C80 012D 

08B7 I 6500 1545 
08B9 1 7405 1513 



80D01460 
80D01470 
80D01480 
80D01490 
80D01500 
80D01510 
80D01520 
80D01530 
80D01540 
80D01550 
80D01560 
80D01570 
80D01580 
80D01590 
80D01600 
80D01610 
80D01620 
80D01630 
80D01640 
80D01650 
80D01660 
80D01670 
80D01680 
80D01690 
80D01700 
80D01710 
8OD0172O 
80D01730 
80D01740 
80D01750 
80D01760 
80D01770 
80D01780 
80D01790 
80D01800 
80D01810 
80D01820 
80D01830 
80D01840 
9 80 DO 1850 

********************* *******************************80D01860 
^ 80D01870 

* WAIT FOR CA INTERRUPTS 80D01880 

* 80D01890 

i*************************************************** 80001900 

80D01910 

80D01920 

80001930 

80D01940 

80D01950 

80D01960 

80D01970 

80D01980 

80D01990 

80D02000 

80D02010 

80D02020 

80D02030 

80D02040 

80D02050 



087F 1 4C00 1AC0 


* 
STRT 


BSC 


L RTNOO 


0881 1 6500 1545 


* 


LDX 


LI T 


0883 1010 

0884 D1C8 

0885 D1E6 

0886 D1F4 

0887 DIFC 

0888 DIFF 

0889 1 D400 1AC9 
088B D1D2 


4c 


SLA 
STO 
STO 
STO 
STO 
STO 
STO 
STO 


16 
1 PGRDY-T 
1 MASTR-T 
1 ENDSW-T 
1 OPERR-T 
1 STMSG-T 
L ENMSG 
1 X99ID-T 


088C COOO 
088D D1C9 
088E D1F3 


♦ 


LD 

STO 

STO 


* 
1 PGBSY-T 
1 STSW-T 


088F 1 C400 0814 
0891 1 4C28 089F 




LD 
BSC 


L DDEF 

L STRT2.2+ 


0893 1 6500 0899 
0895 1 6D00 080A 
0897 4C80 012D 


LDX 
STX 
BSC 


LI STRTl 
LI MLSCF 
I START 


0899 4480 0131 
089B 1 087F 


STRTl 


BSI 

DC 


I REODV 
STRT 


08 9C 1 0814 
089D 1 0975 




DC 
DC 


DDEF 
DVA 


089E 1 080D 


* 


DC 


TERM 


089F 1 6500 1545 
08A1 1 4C00 0AE4 


STRT2 


LDX 
BSC 


LI T 

L RTN01 


08A3 1 6C00 150D 


STRT3 STX 


L PGRDY 


08 A5 09A1 
08 A6 09 A7 


* 


XIO 
XIO 


1 RESET-T 
1 TIMER-T 



NOP, NOP AFTER 1ST PASS 

XR1=C0NSTANT TABLE ADDR 

RESET INDICATORS 
PROGRAM READY IND 
MASTER STATUS IND 
END OF TEST IND 
OPTION ERR PRINT IND 
START MSG PRINT IND 
END MSG PRINT IND 
X-99 INDICATOR 

SET INDICATORS 
PROGRAM BUSY IND 
START OF TEST IND 

CHECK DDEF APPROVED 
BR IF CA ALREADY REQ 

SET MLSCF ENTRY 

TO REQUEST OEVICE CALL 
GO TO MONITOR 

REQUEST CA 

BUSY RETURN 

DDEF ADDRESS 

INT SERVICE RTN ADDR 

TERMINATOR ADDR 

XR1=C0NSTANT TABLE ADDR 
GO TO CLEAR CA RTN 

SET PROGRAM READY IND 

RESET CA 

START CONTINUE TIMER 



* 
WAIT 


LD 
BSC 


L 
L 


SWO 
QUIT.E 


# 


LD 
OR 
OR 
BSC 


1 
1 

L 

L 


OPERR-T 
STMSG-T 
ENMSG 
PRINT, Z 


# 


LDX 
STX 
BSC 


LI 
LI 

I 


WAITl 

MLSCF+2 

START 


WAITl 


LDX 

MDX 


LI 
L 


T 
INTTM.5 



BR IF TERMINATE PROG OPTN 

CK FOR ANY 
MESSAGE 
TO PRINT 
BR IF ANY MSG TO PRINT 

SET MLSCF ENTRY 

TO RETURN 
GO TO MONITOR 

XR1=C0NSTANT TABLE ADDR 
INCRE INTERRUPT WAIT CNT 



08BB 70EB 




* 


MDX 




WAIT 


BR IF NOT YET FULL COUNT. 


80D02060 
80D02070 


08BC 1010 






SLA 




16 




80D02080 


08BD D1C8 




* 


STO 


1 


PGRDY-T 


RESET PROG READY IND 


80D02090 
80D02100 


08BE 62FF 




EE01 


LDX 


2 


-1 


PREPARE END MSG EE01 


80D02110 


08BF 1 6C00 


152C 




STX 


L 


MXFER 


FORCE MSG TRANSFER STATE 


80D02120 


08C1 1 4400 


11E9 


* 


BSI 


L 


ENPRT 


SET END OF TEST IND 


80D02130 
80D02140 


08C3 1 6600 


1AC7 




LDX 


L2 


ENMSG-2 


XR2=P0INT TO END TEST MSG 


80D02150 


08C5 D202 






STO 


2 


2 


SET END MSG PRINT IND 


80D02160 


08C6 D1C9 




* 


STO 


1 


PGBSY-T 


SET PROGRAM BUSY IND 


80D02170 
80D02180 


08C7 099B 






XIO 


1 


SNSOP-T 


SENSE OPERATING DSW 


80D02190 


08C8 D203 






STO 


2 


3 


SAVE DSW 


80D02200 


08C9 099D 






XIO 


1 


SNSBC-T 


SENSE BYTE COUNT 


80002210 


08CA D204 






STO 


2 


4 


SAVE BYTE COUNT 


80D02220 


08CB C103 






LD 


1 


D2-T 




80D02230 


08CC D200 




* 


STO 


2 





STORE MODIFIER COUNT 


80D02240 
80D02250 


08CD 1 4400 


08 6D 


* 

* 


BSI 


L 


DXEQ 


RELEASE CA LINE 


80D02260 
80D02270 
80D02280 






*************************************************** 


80D02290 






* 










80D02300 






* 






PRINT TEST 


RESULTS 


80D02310 






* 










80D02320 






*************************************************** 


80D02330 






* 










80D02340 


08CF 1 6600 


153F 


PRINT 


LDX 


L2 


OPERR-2 


XR2=0PTI0N ERR MSG ADDR 


80D02350 


08D1 C202 






LD 


2 


2 


CHECK OPTION ERR PRINT IND 


80D02360 


08D2 1 4420 


0946 


* 


BSI 


L 


LGCAL.Z 


PRINT ERROR MESSAGE 


80D02370 
80002380 


08D4 1 6600 


1542 




LDX 


L2 


STMSG-2 


XR2=START MSG STRING ADDR 


80DO239O 


08D6 C202 






LD 


2 


2 


CHECK START MSG PRINT IND 


80D02400 


08D7 1 4420 


0946 


* 


BSI 


L 


LGCAL, Z 


PRINT START MESSAGE 


80D02410 
80D02420 


08D9 1 6600 


1AC7 




LDX 


L2 


ENMSG-2 


XR2=END MSG STRING ADDR 


80D02430 


08DB C202 






LD 


2 


2 


CHECK ENO MSG PRINT IND 


80D02440 


08DC 1 4C18 


0924 


* 


BSC 


L 


PRNT7,+- 


BR IF NO END MESSAGE 


80D02450 
80D02460 


08DE 4051 






BSI 




RDRAD 


BUILD RID, RAD, MID 


80D02470 


08DF D202 






STO 


2 


2 


DEVELOPE 


80D02480 


08E0 1804 






SRA 




4 


AAOX OR EEOX 


80D02490 


08E1 EA02 






OR 


2 


2 


MESSAGE ID 


80D02500 


08E2 D202 






STO 


2 


2 


STORE MID 


80D02510 


08E3 4062 




* 


BSI 




LGCAL 


PRINT END MESSAGE 


80D02520 
80D02530 


08E4 1 6600 


1ABD 




LDX 


L2 


T MODE- 2 


XR2=STATISTICS TBL ADDR 


80D02540 


08E6 C202 






LD 


2 


2 


CHECK IF ANY STATISTICS 


80D02550 


08E7 1 4420 


0946 


* 


BSI 


L 


LGCAL, Z 


PRINT STATISTICS IF REQ 


80D02560 
80D02570 


08E9 1 6600 


1ACA 


* 


LDX 


L2 


TRCTB-2 


XR2=START OF TRACE AREA 


80D02580 
80D02590 


08EB 1 C400 


0802 


PRNT1 LD 


L 


SWO 


CHECK CONTROL OPTIONS 


80D02600 


08ED 1 4C04 


087C 


* 


BSC 


L 


QUIT.E 


BR IF TERM PROGRAM 


80D02610 
80D02620 


08EF 1801 






SRA 




1 




80D02630 


08 FO 1 4C04 


0924 


* 


BSC 


L 


PRNT7,E 


BR IF TERM TRACE 


80D02640 
80D02650 


08F2 1802 






SRA 




2 


RESET 


80D02660 


08F3 1003 






SLA 




3 


TERMINATION 


80D02670 


08F4 1 D400 


0802 


* 


STO 


L 


SWO 


OPTIONS 


80D02680 
80D02690 


08F6 C202 






LO 


2 


! 2 


GET WORD FROM TRACE TBL 


80D02700 


08F7 1 4C18 


0924 


* 


BSC 


L 


PRNT7,+- 


BR IF ZERO — ALL PRINTED 


80D02710 
80D02720 


08F9 1 4C10 


0905 




BSC 


L 


PRNT2,- 


BR IF PLUS — WD IS WORD CNT 80D02730 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



06N0V70 
431323 



PROG ID 


080D-0 


DATE 


14N0V69 


30JAN70 


20MAR70 


06NOV70 


PAGE 


2 


EC NO. 


431319 


431319A 


431320 


431323 



PROG ID 
PAGE 



080D-0 
2A 
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* 








80D02740 


08FB 1001 






SLA 


1 


DELETE MESSAGE ID 


80D02750 


08FC 1801 






SRA 


1 


FLAG BIT 


80D02760 


08FD 4032 






BSI 


RDRAD 


STORE RID/RID — BUILO MID 


80DO2770 


08FE D202 




* 


STO 


2 2 


STORE MID 


80D02780 
80D02790 


08FF 1010 






SLA 


16 




80D02800 


0900 D200 






STO 


2 


SET MESSAGE STRING CONTROl 


. 80D02810 


0901 D201 






STO 


2 1 


WORDS TO ZERO 


80D02820 


0902 4043 




* 


BSI 


LGCAL 


PRINT MESSAGE 


80D02830 
80D02840 


0903 7201 






MDX 


2 1 


POINT TO NEXT TRACE TBL WD 80002850 


0904 70E6 




* 


MDX 


PRNT1 


GO TO PROCESS NEXT ENTRY 


80D02860 
80D02870 


0905 9100 




PRNT2 


S 


1 Dl-T 




80D02880 


0906 E90F 






OR 


1 H8000-T 


SET FIRST LINE IND 


80D02890 


0907 4055 




* 


BSI 


DUMP 


PRINT 0003 MESSAGE 


80D02900 
80D02910 


0908 1010 






SLA 


16 




80D02920 


0909 1 4400 


09 5D 


* 


BSI 


L DUMP 


PRINT BLANK LINE 


80D02930 
80002940 


090B 7201 




PRNT3 


MDX 


2 1 


POINT TO NEXT TRACE TBL WC 


■ 80D02950 


090C C202 






LD 


2 2 


GET WORD FROM TABLE 


80D02960 


090D 1 4C08 


08 EB 


* 


BSC 


L PRNT1.+ 


BR IF NOT WORD COUNT 


80D02970 
80D02980 


090F 9103 






S 


1 D2-T 




80D02990 


0910 D1CB 






STO 


1 WDCNT-T 


SAVE WORD COUNT 


80D03000 


0911 1 4C28 


090B 


* 


BSC 


L PRNT3.Z+ 


BR IF CNT LESS THAN TWO 


80D03010 
80DO3O20 


0913 C100 






LD 


1 Dl-T 


SET UP PRINT MOD COUNT 


80D03030 


0914 4048 




* 


BSI 


DUMP 


PRINT BYTE COUNT WORD 


80D03040 
80D03050 


0915 C1CB 




PR NT 4 


LD 


1 WDCNT-T 


FETCH WORD COUNT 


80D03060 


0916 1 4C08 


090B 


* 


BSC 


L PRNT3,+ 


BR IF COUNT ZERO 


80D03070 
80D03080 


0918 9105 






S 


1 D14-T 


DECRE BY 14 


80D03090 


0919 1 4C08 


091F 


* 


BSC 


L PRNT5t+ 


BR IF 14 OR LESS 


80D03100 
80003110 


091B 01CB 






STO 


1 WDCNT-T 


SAVE REMAINING WORD CNT 


80D03120 


091C C105 






LD 


1 D14-T 




80003130 


091D 403F 






BSI 


DUMP 


PRINT 14 WORDS 


80D03140 


09 IE 70F6 




# 


MDX 


PRNT4 


GO TO PRINT NEXT LINE 


80D03150 
80D03160 


091F C1CB 




PRNT5 


LO 


1 WDCNT-T 


GET WORD COUNT 


80D03170 


0920 403C 




* 


BSI 


DUMP 


PRINT REMAINING WORDS 


80D03180 
80D03190 


0921 1010 






SLA 


16 




80D03200 


0922 40 3A 




* 


BSI 


DUMP 


PRINT BLANK LINE 


80D03210 
80D03220 


0923 70E7 




* 


MDX 


PRNT3 


BR TO PRINT TABLE DUMP 


80 DO 32 30 
80D03240 


0924 1 C400 


0802 


PRNT7 


LD 


L SWO 


RESET PROGRAM 


80003250 


0926 E127 






AND 


1 HFFF9-T 


CONTROL 


80D03260 


09-27 1 D400 


0802 


* 


STO 


L SWO 


OPTIONS 


80D03270 
80D03280 


0929 C1C8 






LD 


1 PGRDY-T 


CHECK PROG READY IND 


80 DO 32 90 


092A 1 4C18 


087F 


* 


BSC 


L STRTt+- 


BR IF NOT READY 


80D03300 
80D03310 


092C 1010 






SLA 


16 




80D03320 


092D D1F4 






STO 


1 ENOSW-T 


RESET END OF TEST IND 


80D03330 


092E 1 4C00 


08A7 


* 


BSC 


L WAIT 




80D03340 
80D03350 












80D03360 






* 




BUILD RID* 


RAD, MID 


80D03370 






* 








80D03380 


0930 0000 




RDRAD 

* 


DC 


*-* 


EP 


80D03390 
80D03400 


0931 1888 






SRT 


8 


SAVE MID IN Q 


80003410 



0932 1 0400 0800 

0934 1 6780 0800 

0936 1 C700 1580 

0938 1 D400 0801 

093A 1090 

09 3B 1 4C10 0942 

093D Fill 
093E 1808 
093F 8100 

0940 E912 

0941 7002 

0942 1808 

0943 E913 

0944 1 4C80 0930 



0946 0000 

0947 6A0F 

0948 COFD 

0949 DOOF 
094A 7006 

094B 1 6500 0951 
094D 1 6D00 08 OA 

094F 4C80 012D 

0951 1 6500 1545 
0953 1 6680 0957 
0955 4480 01 2F 

0957 0000 

0958 1 094B 

0959 0000 

095A 1010 
095B D202 
095C 70F2 



09 5D 





0000 


095 E 





F10F 


095F 





0200 


0960 





1001 


0961 





1801 


0962 





DOOF 


0963 





1010 


0964 





D201 


0965 





C114 


0966 





D202 



0967 1 C400 0802 
0969 1 4C04 087C 

096B 1801 
096C 1 4C04 0924 

096E 100E 
096F 1 4410 0946 





STO 


L RID 


STORE RIO IN PST 


80D03420 




LDX 


13 RID 




80D03430 




LD 


L3 RTTBL 


FETCH RAD 


80D03440 




STO 


L RAD 


STORE IN PST 


80D03450 


* 








80D03460 




SLT 


16 


LEFT JUSTIFY MID IN A 


80D03470 




BSC 


L RDRD1,- 


BR IF AOXX MSG 


80D03480 


* 








80D03490 




EOR 


1 HFFOO-T 


COMPLEMENT MID 


80D03500 




SRA 


8 


RIGHT JUSTIFY MID 


80D03510 




A 


1 Dl-T 


CORRECT FOR TWOS COMP 


80D03520 




OR 


1 HEOOO-T 


INDICATE E MSG IN MID 


80D03530 




MDX 


RDRD2 


BRANCH 


80D03540 


* 








80D03550 


RDRD1 


SRA 


8 


RIGHT JUSTIFY MID 


80D03560 




OR 


1 HAOOO-T 


INDICATE A MSG IN MID 


80D03570 


* 








80D03580 


RDRD2 


: BSC 


I RDRAD 


RETURN 


80D03590 


* 








80D03600 










- 80D03610 


* 

* 




CALL ON MONITOR LOG ROUTINE 


80D03620 








80D03630 


LGCAL 


DC 


*-* 


EP 


80D03640 


* 








80D03650 




STX 


2 LGCL4 


STO LOG STRING ADDR 


80D03660 




LD 


LGCAL 




80D03670 




STO 


LGCL4+2 


STO LOG TERM ADR RETURN 


80D03680 




MDX 


LGCL3 




80D03690 


* 








80D03700 


LGCL1 


LDX 


LI LGCL3 


SET UP MLSCF ENTRY 


80003710 




STX 


LI MLSCF 


FOR RETURN TO LOG CALL 


80D03720 


* 








80D03730 


LGCL2 


BSC 


I START 


GO TO MONITOR 


80D03740 


* 








80D03750 


LGCL3 


LDX 


LI T 


XR1=C0NSTANT TABLE ADDR 


80D03760 




LDX 


12 LGCL4 


RESTORE XR2 


80D03770 




BSI 


I LOG 


CALL MONITOR LOG ROUTINE 


80003780 


LGCL4 


DC 


*-* 


LOG STRING ADDR 


80D03790 




DC 


LGCL1 


BUSY RETURN 


80D03800 




DC 


*-* 


TERMINATION RETURN ADDR 


80D03810 


* 








80D03820 




SLA 


16 




80D03830 




STO 


2 2 


CLEAR MESSAGE PRINT IND 


80D03840 




MDX 


LGCL2 


BRANCH — GO TO MONITOR 


80D03850 


* 








80D03860 


* 




PRINT ONE 


LINE OF XM/RCV TBL DUMP 


80D03870 
80D03880 


* 








80D03890 


DUMP 

* 


DC 


*-* 


EP 


80D03900 








80D03910 




EOR 


1 H8000-T 


CORRECT FIRST LINE BIT 


80D03920 




STO 


2 


STO CONT WD IN LOG STRING 


80D03930 




SLA 


1 




80D03940 




SRA 


1 




80D03950 




STO 


DUMP 1+1 


SAVE FOR NEXT TBL UPDATE 


80D03960 




SLA 


16 




80D03970 




STO 


2 1 


CLEAR HEX/DEC CONTROL WD 


80D03980 


D003 


LD 


1 H0003-T 


FETCH MID 


80D03990 




STO 


2 2 


STO MID IN PRINT STRING 


80004000 


* 








80D04010 




LD 


L SWO 


GET CONTROL OPTIONS 


80004020 




BSC 


L QUIT.E 


BR IF TERM PROGRAM 


80D04030 


* 








80D04040 




SRA 


1 




80D04050 




BSC 


L PRNT7.E 


BR IF TERM TRACE 


80D04060 


* 








80D04070 




SLA 


14 




80D04080 




BSI 


L LGCAL t- 


PRINT UNLESS SKIP SELECTED 


80D04090 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



06N0V70 
431323 



PROG ID 


080D-0 


DATE 


14N0V69 


30JAN70 


20 MAR 70 


06NOV70 


PAGE 


3 


EC NO. 


431319 


431319A 


431320 


431323 



PROG ID 
PAGE 



080D-0 
3A 
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0971 7600 0000 
0973 1 4C80 0950 



r 



0975 0000 

0976 0000 

0977 1 7400 1500 

0979 7004 

097A 1 OCOO 14E6 
097C 1 4C80 0976 

097E 1 6000 1499 

0980 1 6E00 149B 
0982 1 6500 1545 

0984 099B 

0985 D19B 

0986 0990 

0987 D19D 

0088 099B 
0989 F19B 
098A 1 4C20 0984 

098C 0990 
0980 F190 
098E 1 4C20 0984 



0990 





1010 


0991 





DICE 


0992 





D1CF 


0993 





DIDO 


0994 





01D1 


0995 





D1D3 


0996 





D1D4 



0997 C19B 

0998 E125 

0999 F11C 
099A 1 4C20 09B0 

099C C19D 
099D 1003 
099E 1 4C10 09 A6 

09A0 C1F8 
09A1 1 4C08 09B0 

09A3 9100 
09 A4 01 F8 
09A5 7007 

09A6 1010 

09A7 01F8 

09A8 C1F9 

09 A9 1 4C08 09 BO 

09AB 9100 



* 








80D04100 


0UMP1 


MDX 


L2 *-* 


POINT TO NEXT PRINT ADDR 


80D04110 




BSC 


I DUMP 


RETURN 


80D04120 


* 








80D04130 


* 








80D04140 


*************************************************** 


80D04150 


* 








80D04160 


* 




CA INTERRUPT SERVICE 


BOD04170 


* 








80D04180 


*************************************************** 


80D04190 


* 








80D04200 


DVA 


DC 


*-* 


AREA CODE 


80D04210 


* 








8OD04220 


INT 


DC 


*-* 


INTERRUPT ENTRY 


80D04230 


* 








80D04240 




MDX 


L PGRDY 


CK PROG READY IND 


80D04250 




MDX 


INT01 


BR IF PROGRAM READY 


80D04260 


* 








80D04270 




XIO 


L RESET 


RESET CA 


80D04280 




BSC 


I INT 


EXIT INTERRUPT 


80D04290 


* 








80D04300 


INT01 


STX 


LI INTX+1 


SAVE XR1 


80D04310 




STX 


L2 INTX+3 


SAVE XR2 


80D04320 




LOX 


LI T 


XR INCONSTANT TABLE ADDR 


80D04330 


* 








80004340 


SENSE 


XIO 


1 SNSOP-T 


SENSE OPERATING DSW 


80D04350 




STO 


1 SNSOP-T 


SAVE DSW 


80004360 




XIO 


1 SNSBC-T 


SENSE BYTE COUNT 


80D04370 




STO 


1 SNSBC-T 


SAVE BYTE COUNT 


80D04380 


* 








80D04390 




XIO 


1 SNSOP-T 


SENSE DSW AGAIN 


80D04400 




EOR 


1 SNSOP-T 




80D04410 




BSC 


L SENSE.Z 


BR IF DSW CHANGED 


80D04420 


* 








80D04430 




XIO 


1 SNSBC-T 


SENSE BC AGAIN 


80D04440 




EOR 


1 SNSBC-T 




80D04450 




BSC 


L SENSE, Z 


BR IF BC CHANGED 


80D04460 


* 








80 DO 4470 




SLA 


16 




80D04480 




STO 


1 INTTM-T 


RESET INTERRUPT TIMER 


80D04490 




STO 


1 ANYMS-T 


RESET MESSAGE IND 


80D04500 




STO 


1 ANYER-T 


RESET AND ERROR IND 


80D04510 




STO 


1 TEXT-T 


RESET TEXT INDICATOR 


80D04520 




STO 


1 ABORT-T 


RESET ABORT TEXT IND 


80D04530 




STO 


1 NORCV-T 


RESET NOTHING RCVD IND 


80D04540 


* 








80D04550 




LD 


1 SNSOP-T 


FETCH OPERATING DSW 


80004560 




A NO 


I HF840-T 


ISOLATE INTERRUPT BITS 


80D04570 




EOR 


I H2000-T 


CHECK FOR TIMEOUT ONLY 


80D04580 




BSC 


L RDYCKtZ 


BR IF INTRP OTHER THAN TO 


80004590 


* 








80D04600 




LD 


1 SNSBC-T 


FETCH BYTE COUNT DSW 


80004610 




SLA 


3 




80004620 




BSC 


L RCVOLf- 


BR IF RECEIVE MODE 


80D04630 


* 








80D04640 




LD 


1 XMTAC-T 


CHECK XMIT TURNAROUND CNT 


80004650 




BSC 


L RDYCKt* 


BR IF COUNT ZERO 


80D04660 


* 








80004670 




S 


1 Dl-T 


DECREMENT 


80D04680 




STO 


1 XMTAC-T 


XMIT TURNAROUND COUNT 


80D04690 




MDX 


EXIT 


EXIT INTERRUPT 


80D04700 


* 








80D04710 


RCVDl 


. SLA 


16 


SET TRANSMIT 


80D04720 




STO 


I XMTAC-T 


TURNAROUND COUNT TO ZERO 


80D04730 




LD 


1 RCTAC-T 


CHECK RCV TURNAROUND CNT 


80D04740 




BSC 


L RDYCK.+ 


BR IF COUNT ZERO 


80D04750 


* 








80D04760 




S 


1 Dl-T 


DECREMENT 


80D04770 



09 AC 





D1F9 




* 


STO 


1 


RCTAC-T 


RECEIVE TURNAROUND CNT 


80D04780 
80D04790 


09 AD 





09AB 




EXIT 


XIO 


1 


DSWRS-T 


SENSE DSW WITH RESET 


80D04800 


09AE 


1 


4C00 


OACA 




BSC 


L 


INTX1 


EXIT INTERRUPT 


80D04810 


09B0 





C1D5 




RDYCK 


LO 


1 


RDYSW-T 


CK DATA SET READY IND 


80D04820 


09B1 


1 


4C18 


09BE 


* 


BSC 


L 


DSWCK.+- 


BR IF D.S. SHOULD BE RDY 


80D04830 
80D04840 


09B3 





C19B 






LD 


1 


SNSOP-T 


CHECK DSW 


80D04850 


09 B4 





1008 






SLA 




8 




80D04860 


09B5 


1 


4C28 


09B9 


* 


BSC 


L 


*+2.Z+ 


BR IF D.S. READY 


80D04870 
80D04880 


09B7 





C19B 






LD 


1 


SNSOP-T 


FETCH DSW 


80D04890 


09B8 





7007 




* 


MDX 




DSWCK+2 


GO TO CHECK DSW 


80D04900 
80D04910 


09 B9 





1010 






SLA 




16 




80D04920 


09BA 





01D5 




* 


STO 


1 


RDYSW-T 


RESET D.S. READY IND 


80D04930 
80D04940 


09BB 


1 


C400 


0818 




LD 


L 


TRIES 




80D04950 


09BD 





01D6 




* 


STO 


1 


RETRY-T 


SET RETRY COUNT TO N 


80D04960 
80D04970 


09BE 





C19B 




DSWCK 


LD 


1 


SNSOP-T 


FETCH DSW 


80D04980 


09BF 





F11B 




* 


EOR 


1 


H0080-T 


COMPLEMENT D.S. READY BIT 


80D04990 
80D05000 


09C0 





E1CC 






AND 


1 


MASK-T 


MASK ALLOWED BITS 


80DO5O10 


09C1 





63FF 






LDX 


3 


-1 




80D05020 


09C2 





620A 




* 


LDX 


2 


10 


CHECK 10 BITS 


80D05030 
80D05040 


09C3 


1 


4428 


12B8 


EOXX 


BSI 


L 


SVMSG.Z+ 


STORE AN 


80D05050 


09C5 





73FF 






MDX 


3 


-1 


ERROR MSG IN 


80D05060 


09C6 





1001 






SLA 




1 


TRACE TABLE FOR 


80D05070 


09C7 





72FF 






MDX 


2 


-1 


EACH DSW BIT STILL ON 


80D05080 


09C8 





70FA 




* 


MDX 




EOXX 




80D05090 
80D05100 


09C9 





C19B 






LD 


1 


SNSOP-T 


FETCH DSW 


80D05110 


09CA 





E125 






AND 


1 


HF840-T 


CHECK INTERRUPT BITS 


80D05120 


09CB 





63F3 




EOOD 


LDX 


3 


-13 


PREPARE TO STORE EOOD MSG 


80D05130 


09CC 


1 


4418 


12B8 


* 


BSI 


L 


SVMSG.+- 


STO ERR MSG IF NO INT BITS 


80D05140 
80D05150 


09CE 


1 


7400 


151C 




MDX 


L 


CLRSW 




80D05160 


09D0 





7003 




* 


MDX 




INT02 


BR IF CA CLEAR IND ON 


80D05170 
80D05180 


0901 





C1D5 






LD 


1 


RDYSW-T 




80D05190 


09D2 


1 


4C18 


09D8 


* 


BSC 


L 


INT03,+- 


BR IF DS RDY IND IS ZERO 


80D05200 
80D05210 


09D4 





1010 




INT02 


SLA 




16 




80D05220 


09D5 





D1DA 




* 


STO 


1 


RCVBC-T 


NOTHING RECEIVED 


80D05230 
80D05240 


09D6 


1 


4C00 


0AC1 


* 


BSC 


L 


INTEX 


RETURN TO TEST ROUTINE 


80D05250 
80D05260 


09D8 





C1A4 




INT03 


LD 


1 


INITL+1-T 




80D05270 


09D9 





1008 






SLA 




8 




80D05280 


09DA 


1 


4C10 


0A18 


* 


BSC 


L 


RCTCK,- 


BR IF NOT DIAG MODE 


80D05290 
80D05300 


09DC 





1010 






SLA 




16 




80D05310 


09DD 





D1DE 






STO 


1 


TEMP1-T 


RESET ERROR IND 


80D05320 


09DE 


1 


6600 


176B 


XMTCK 


LDX 


L2 


XMRCT 


XR2=P0INT TO XM/RCV TABLE 


80D05330 


09EO 





C1D8 






LD 


1 


XMADR-T 


GET XMIT TABLE ADDR 


80D05340 


09E1 


1 


4C18 


0A18 


* 


BSC 


L 


RCTCK,+- 


BR IF NO XMIT TABLE 


80D05350 
80 DO 53 60 


09E3 





90FB 






S 




XMTCK+1 




80D05370 


09E4 


1 


4C18 


09 E9 


* 


BSC 


L 


XMCK1.+- 


BR IF ONLY ONE XMIT TBL 


80 DO 53 80 
80D05390 


09E6 





9103 






S 


1 


D2-T 


CALCULATE TABLE LENGTH 


80 DO 5400 


09E7 





400 A 






BSI 




CKXMT 


GO TO SHIFT AND CHECK TBL 


80D05410 


09E8 





7202 




* 


MDX 


2 


2 




80D05420 
80D05430 


09E9 





C1D9 




XMCK1 


LD 


1 


RCADR-T 


CALCULATE 


80 DO 5440 


09EA 





91D8 






S 


1 


XMADR-T 


TABLE 


80D05450 



DATE 
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09EB 9103 






S 


1 D2-T 


LENGTH 


80D05460 


09EC 4005 




* 


BSI 


CKXMT 


GO TO SHIFT AND CHECK TBL 


80D05470 
80D05480 


09ED 63F2 




EOOE 


LDX 


3 -14 


PREPARE TO STORE EOOE MSG 


80D05490 


09EE C1DE 






LD 


1 TEMP1-T 




80005500 


09EF 1 4420 


1288 


* 


BSI 


L SVMSGtZ 


STO ERR MSG IF D1AG WD ERR 


! 80D05510 
80D05520 


09F1 7026 




* 
* 


MDX 


RCTCK 


BRANCH 


80D05530 
80D05540 
80D05550 


09F2 0000 




CKXMT 


DC 


*-* 


ENTRY 


80D05560 

80D05570 


09F3 D1CD 




* 


STO 


1 CNTA-T 


SAVE TABLE LENGTH 


80D05580 
80D05590 


09F4 10A0 




CKXM1 


SLT 


32 




80D05600 


09F5 C201 






LD 


2 1 


GET WORD FROM XMIT TBL 


80D05610 


09F6 1889 






SRT 


9 




80D05620 


09F7 F126 






EOR 


1 HFFFF-T 




80D05630 


09F8 1 4C20 


09FF 


* 


BSC 


L CKXM2.Z 


BR IF DIAGNOSTIC WORD 


80D05640 
80D05650 


09FA 108A 






SLT 


10 


POSITION DATA BITS 


S0D05660 


09FB F202 






EOR 


2 2 


COMPARE WITH DIAG WORD 


80D05670 


09FC 1801 






SRA 


1 




80D05680 


09FD 1008 






SLA 


8 




80D05690 


09FE 7005 




* 


MDX 


CKXM3 




80005700 
80D05710 


09FF F126 




CKXM2 


EOR 


1 HFFFF-T 


RESTORE DIAG WORD 


80D05720 


OAOO 1001 






SLA 


1 


SHIFT DIAG WORD BITS 7-14 


80D05730 


0A01 1088 






SLT 


8 


TO BIT 8-15 POSITIONS 


80005740 


0A02 D201 






STO 


2 1 


STORE DIAG WD BACK IN TBL 


80005750 


0A03 10A0 




* 


SLT 


32 




80D05760 
80D05770 


0A04 7201 




CKXM3 


MDX 


2 1 


POINT TO NEXT XM TBL WORD 


80D05780 


0A05 1 7400 


0815 




MDX 


L CODE 


CHECK EDIT 


80005790 


0A07 7006 




* 


MDX 


CKXM5 


BR IF USASCII CODE 


80D05800 
80D05810 


0A08 E9DE 




CKXM4 


OR 


1 TEMP1-T 




80D05820 


0A09 1 74FF 


1512 




MDX 


L CNTA.-l 


OECRE WORD COUNT 


80D05830 


OAOB 700A 




* 


MDX 


CKXM6 




80D05840 
80D05850 


OAOC 1 4C80 


09F2 


* 


BSC 


I CKXMT 


RETURN 


80D05860 
80D05870 


OAOE 1 4C18 


0A08 


CKXM5 

* 


BSC 


L CKXM4,+- 


BR IF COMPARE OK 


80D05880 
80D05890 


0A10 C202 






LD 


2 2 


CHECK IF 


80D05900 


0A11 1801 






SRA 


1 


TWO DIAGNOSTIC 


80D05910 


0A12 F201 






EOR 


2 1 


WORDS 


80005920 


0A13 1008 






SLA 


8 


COMPARE 


80005930 


0A14 1 4C00 


0A08 


* 


BSC 


L CKXM4 


GO TO SET ERR IF NO CMP 


80D05940 
80D05950 


0A16 D1DE 




CKXM6 


STO 


1 TEMP1-T 




80005960 


0A17 70DC 




* 

* 


MDX 


CKXM1 




80D05970 
80D05980 
80D05990 


0A18 C1DA 




RCTCK 


LD 


1 RCVBC-T 




80D06000 


0A19 1 4C18 


0AC1 


* 


BSC 


L INTEX.+- 


EXIT IF NO RECEIVE TABLE 


80D06010 
80006020 


0A1B 63F0 




E010 


LDX 


3 -16 


PREPARE TO STORE E010 MSG 


80006030 


0A1C C190 






LD 


1 SNSBC-T 


FETCH BYTE COUNT SENSED 


80006040 


0A1D 1003 






SLA 


3 


CK XMIT BIT 


80D06050 


0A1E 1 4C28 


0A3A 


* 


BSC 


L NOTHN, Z+ 


BR IF XMIT MODE 


80006060 
80D060 70 


0A20 1001 






SLA 


1 




80D06080 


0A21 F126 






EOR 


1 HFFFF-T 


COMPLEMENT BYTE COUNT 


80D06090 


0A22 1804 






SRA 


4 




80D06100 


0A23 D1DE 




* 


STO 


1 TEMP1-T 


SAVE BYTE COUNT 


80D06110 
80D06120 


0A24 C1DA 






LD 


1 RCVBC-T 


FETCH ORIG RCV BC 


80D06130 



0A25 1004 






SLA 


4 


0A26 1804 






SRA 


4 


0A27 910E 






S 


1 TEMP1-T 


0A28 D1DA 






STO 


1 RCVBC-T 


0A29 1 D400 


1600 




STO 


L RCVTB 


0A2B 63EF 




E011 


LDX 


3 -17 


0A2C 1 4C28 


0A3A 


* 


BSC 


L NOTHN, Z+ 


0A2E 1 4C20 


0A4A 


BSC 


L CKRCV, Z 


0A30 63EE 




E012 


LDX 


3 -18 


0A31 C19B 






LD 


1 SNSOP-T 


0A32 1002 






SLA 


2 


0A33 1 4C10 


0A3A 


£ 


BSC 


L NOTHN, - 


0A35 1 6C00 


1519 


♦ 


STX 


L NORCV 


0A37 C1D0 






LD 


1 ANYER-T 


0A38 1 4C18 


0A3C 


# 


BSC 


L N0THN+2,+ 


0A3A 1 4400 


12B8 


NOTHN 

* 


1 BSI 


L SVMSG 


0A3C 1010 




SLA 


16 


0A3D 01DA 




* 


STO 


1 RCVBC-T 


0A3E C1D0 




LD 


1 ANYER-T 


0A3F 1 4C18 


0AC1 


$ 


BSC 


L INTEX.+- 


0A41 C19B 






LD 


1 SNSOP-T 


0A42 1002 






SLA 


2 


0A43 1 4C10 


0AC1 


a 


BSC 


L INTEX,- 


0A45 63ED 




E013 


LDX 


3 -19 


0A46 1 4400 


12B8 




BSI 


L SVMSG 


0A48 1 4C00 


0AC1 


* 
CKRCV 


BSC 


L INTEX 


0A4A 1 6780 


151E 


LDX 


13 RCADR 


0A4C 1010 






SLA 


16 


0A4D D1CD 






STO 


1 CNTA-T 


0A4E 1 6600 


16D0 


* 


LDX 


L2 RCVTB 


0A50 C1A4 




LD 


1 INITL+1-T 


0A51 1008 






SLA 


8 


0A52 1 4C10 


0A7F 


* 
CKRC 


BSC 


L INT04,- 


0A54 7201 




MDX 


2 1 


0A55 4018 






BSI 


MDATA 


0A56 1010 






SLA 


16 


0A57 D1DE 






STO 


1 TEMP1-T 


0A58 7002 




* 
CKRCl 


MDX 


CKRC1+2 


0A59 7201 




MDX 


2 1 


0A5A 4013 




£ 


BSI 


MOATA 


0A5B 1088 






SLT 


8 


0A5C 1008 






SLA 


8 


0A5D D200 






STO 


2 


0A5E 1 74FF 


151F 




MDX 


L RCVBC-1 


0A60 7001 






MDX 


*+l 


0A61 7007 




* 


MDX 


EOOF 


0A62 400B 




BSI 


MDATA 


0A63 1088 






SLT 


8 


0A64 EAOO 






OR 


2 


0A65 D200 






STO 


2 


0A66 1 74FF 


151F 




MDX 


L RCVBC-1 


0A68 70F0 






MDX 


CKRCl 



subtract end bc 
save number of 
characters received 
prepare to Store eoh msg 
br if char cnt is minus 

br if char cnt is plus 

prepare to store e012 msg 

CHECK 

OPERATION DSW 
BR IF NO TIMEOUT 

SET NOTHING RECEIVED IND 



BR IF ANY ERROR IND OFF 
SAVE ERROR MESSAGE 

SET CHAR RCVD COUNT TO 

EXIT IF NO ERRORS 

CHECK DSW 

EXIT IF NO TIMEOUT 

PREPARE TO STORE E013 MSG 

EXIT TO TEST ROUTINE 

POINT TO RECEIVE TABLE 

CLEAR WORD COUNTER 

POINT TO RCV DATA SAVE TBL 

CK INITIALIZE IOCC 

BR IF NOT DIAG MODE 

ADVANCE SAVE DATA ADDR 
FETCH FIRST DATA WORO 

CLEAR ERROR INDICATOR 



ADVANCE SAVE DATA ADDR 
FETCH ONE DATA WD 



STO DATA IN SAVE TABLE 
DECRE CHAR COUNT 

BR IF ALL DATA MOVED 

FETCH NEXT DATA WD 

COMBINE TWO CHARACTERS 
STO IN SAVE TABLE 
DECRE CHAR COUNT 



80D06140 

80D06150 

80D06160 

80D06170 

80D06180 

80D06190 

80D06200 

80D06210 

80D06220 

80D06230 

80006240 

80D06250 

80006260 

80D06270 

80D06280 

80D06290 

80006300 

80D06310 

80006320 

80D06330 

80D06340 

80D06350 

80D06360 

80D06370 

80D06380 

80D06390 

80D06400 

80D06410 

80D06420 

80D06430 

80D06440 

80D06450 

80D06460 

80006470 

80D06480 

80006490 

80D06500 

80D06510 

80D06520 

80D06530 

80006540 

80D06550 

80D06560 

80D06570 

80D06580 

80006590 

80D06600 

80D06610 

80D06620 

80D06630 

80D06640 

80D06650 

80D06660 

80D06670 

80D06680 

80D06690 

80D06700 

80D06710 

80D06720 

80D06730 

80D06740 

80D06750 

80D06760 

80D06770 

80D06780 

80D06790 

80D06800 

80D06810 



DATE 
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0A69 





63F1 




EOOF 


LDX 


3 


-15 


PREPARE TO STORE EOOF MSG 


80D06820 


0A6A 





C1DE 






LO 


1 


TEMP1-T 


CHECK ERROR INDICATOR 


80D06830 


0A6B 


1 


4420 


12B8 




BSI 


L 


SVMSG.Z 


STORE MSG IF ANY ERROR 


80D06840 


0A60 





7010 




* 
* 


MDX 




I NT 06 


BRANCH 


80D06850 
80D06860 
80D06870 


0A6E 





0000 




MDATA 

* 


DC 




#-# 


ENTRY 


80D06880 
80D06890 


0A6F 


1 


7401 


1512 




MDX 


L 


CNTAtl 


INCRE WORD COUNT 


80D06900 


0A71 





7301 






MDX 


3 


1 


POINT TO NEXT WORD 


80D06910 


0A72 





C300 






LD 


3 





FETCH WORD FROM RCV TBL 


80D06920 


0A73 





1888 






SRT 




8 


SAVE CHAR IN Q 


80D06930 


0A74 





F126 






EOR 


1 


HFFFF-T 




80006940 


0A75 


1 


4C20 


0A6F 


* 


BSC 


L 


MDATA+ltZ 


BR IF DIAG WORD 


80D06950 
80D06960 


0A77 





C300 






LD 


3 





FETCH DATA WORD 


80D06970 


0A78 





F3FF 






EOR 


3 


-1 


COMPARE WITH DIAG WORD 


80D06980 


0A79 





1008 






SLA 




8 




80006990 


0A7A 





E9DE 






OR 


1 


TEMP1-T 




80007000 


0A7B 





D1DE 






STO 


1 


TEMP1-T 


SET ERR INO IF NO COMPARE 


80D07010 


0A7C 





1010 






SLA 




16 




80007020 


0A7D 


1 


4C80 


0A6E 


* 
* 


BSC 


I 


MDATA 


GO TO STORE DATA IN TBL 


80D07030 
80D07040 
80007050 


0A7F 





C1DA 




INT04 


LD 


1 


RCVBC-T 


GET RCV CHAR COUNT 


80D07060 


0A80 





8100 






A 


1 


Dl-T 




80D07070 


0A81 





1801 






SRA 




1 


DIVIDE BY TWO 


80D07080 


0A82 





D1DA 






STO 


1 


RCVBC-T 


SAVE RCV TBL LENGTH 


80007090 


0A83 





D1C0 




* 


STO 


1 


CNTA-T 




80D07100 
80007110 


0A84 





7201 




INT05 


MDX 


2 


1 


POINT TO NEXT RCV TBL WD 


80D07120 


0A85 





7301 






MDX 


3 


1 


POINT TO NEXT SAVE TBL WD 


80D07130 


0A86 





C300 






LD 


3 





MOVE TWO CHARACTERS 


80007140 


0A87 





0200 






STO 


2 





TO SAVE TABLE 


80D07150 


0A88 


1 


74FF 


151F 




MDX 


L 


RCVBC.-l 


OECRE CHAR COUNT 


80D07160 


0A8A 





70F9 




* 


MDX 




INT05 


BR IF MORE TO MOVE 


80D07170 
80D07180 


0A8B 





C1CD 




INT06 


LO 


1 


CNTA-T 




80007190 


0A8C 





8100 






A 


1 


Dl-T 




80D07200 


0A8D 





D1DA 




* 


STO 


1 


RCVBC-T 


SAVE RCV TBL LENGTH 


80D07210 
80007220 


0A8E 





63EC 




E014 


LDX 


3 


-20 


PREPARE TO STORE E014 MSG 


80D07230 


0A8F 





C19B 






LD 


1 


SNSOP-T 


FETCH OSW 


80D07240 


0A90 





1002 






SLA 




2 




80007250 


0A91 


1 


4428 


12B8 


* 


BSI 


L 


SVMSG t Z+ 


SAVE MSG IF TIMEOUT 


80D07260 
80D07270 


0A93 


1 


4C28 


0AC1 


* 


BSC 


L 


INTEX, Z+ 


EXIT IF TIMEOUT 


80D07280 
80007290 


0A95 





1001 






SLA 




1 




80D07300 


0A96 


1 


4C10 


0AC1 


* 


BSC 


L 


INTEX, - 


EXIT IF NO END CHARACTER 


80D07310 
80D07320 


0A98 


1 


C400 


1600 




LD 


L 


RCVTB 


FETCH CHAR RCVD COUNT 


80D07330 


0A9A 





1881 






SRT 




1 


DIVIDE BY TWO 


80D07340 


0A9B 





0001 




* 


STO 




*+l 


STO SAVE TBL LENGTH 


80D07350 
80007360 


0A9C 





6700 


0000 




LDX 


L3 


*-* 


X3 POINT TO END CHAR 


80D07370 


0A9E 





1081 






SLT 




1 




80D07380 


0A9F 


1 


4C04 


0AA8 


* 


BSC 


L 


INT07,E 


BR IF ODD NO OF CHARS 


80D07390 
80D07400 


0AA1 


1 


C700 


16D0 




LD 


L3 


RCVTB 


FETCH END CHAR 


80D07410 


0AA3 





1890 






SRT 




16 


SAVE IN 


80D07420 


0AA4 


1 


C700 


16CF 




LD 


L3 


RCVTB-1 


FETCH PRECEEOING CHAR 


80007430 


0AA6 





1088 






SLT 




8 


COMBINE TWO CHARACTERS 


80D07440 


0AA7 





7002 




* 


MDX 




*+2 




80 DO 74 50 
80D07460 


0AA8 


1 


C700 


16D0 


INT07 


LD 


L3 


RCVTB 


FETCH LAST TWO CHARS RCVD 


80D07470 


OAAA 





D1DB 




* 


STO 


1 


ENDCH-T 


SAVE END CHARACTERS 


80D07480 
80D07490 











* 










80D07500 


OAAB 


1 


C400 


16D1 




LD 


L 


RCVTB+1 


FETCH 1ST 2 CHARS RCVD 


80D07510 


OAAD 


1 


4400 


14A2 


* 


BSI 


L 


DCODE 


BUILD DECODE WORDS 


80D07520 
80D07530 


OAAF 


1 


4C10 


0AB5 


* 


BSC 


L 


INT08,- 


BR IF 1ST CHAR NOT DLE 


80 DO 7 540 
80D07550 


0AB1 





1092 






SLT 




18 




80007560 


0AB2 


1 


4C10 


0AC1 


* 


BSC 


L 


INTEX, - 


EXIT IF NOT DLE STX 


80D07570 
80D07580 


0AB4 





7003 




* 


MDX 




INT09 


BR IF DLE STX 


80D07590 
80D07600 


0AB5 





180D 




INT08 


SRA 




13 




80D07610 


0AB6 


1 


4C08 


0AC1 


* 


BSC 


L 


INTEX, + 


EXIT IF NOT SOH OR STX 


80D07620 
80D07630 


0AB8 





C1DB 




I NT 09 


LD 


1 


ENDCH-T 


FETCH ENO CHARACTER 


80 DO 7640 


0AB9 


1 


4400 


14A2 




BSI 


L 


DCODE 


BUILD DECODE WORDS 


80D07650 


OABB 





1085 






SLT 




5 




80D07660 


OABC 





100E 






SLA 




14 




80D07670 


OABD 





D1D1 






STO 


1 


TEXT-T 


SET TEXT IND IF ETX OR ETB 


80 DO 76 80 


OABE 





1082 






SLT 




2 




80007690 


OABF 





100F 






SLA 




15 




80D07700 


OACO 





D1D3 




* 


STO 


1 


ABORT-T 


SET ABORT IND IF ENQ 


80D07710 
80D07720 


0AC1 


1 


C400 


081C 


INTEX 


LD 


L 


TSSW 




80D07730 


0AC3 


1 


4C98 


12F1 


* 


BSC 


I 


XMRCV, +- 


BR IF NO CHAN TIMESHARE 


80D07740 
80007750 


0AC5 


1 


6700 


OADO 




LDX 


L3 


INTX2 


SET UP MLSCF RETURN 


80007760 


0AC7 


1 


6F00 


0809 


* 


STX 


L3 


MLSCF-1 


TO RELEASE DEVICE 


80D07770 
80D07780 


0AC9 





09 A 1 




* 
* 


XIO 


1 


RESET-T 


RESET CA 


80D07790 
80D07800 
80D07810 


OACA 


1 


6580 


1499 


I NT XI 


LDX 


11 


INTX+1 


RESTORE XR1 


80D07820 


OACC 


1 


6680 


149B 




LDX 


12 


INTX+3 


RESTORE XR2 


80D07830 


OACE 


1 


4C80 


0976 


* 


BSC 


I 


INT 


EXIT INTERRUPT 


80007840 
80007850 


OADO 





4480 


0132 


INTX2 


BSI 


I 


RELOV 


RELEASE DEVICE 


80D07860 


0AD2 


1 


0814 






DC 




ODEF 




80D07870 


0AD3 


1 


08 OD 




* 


DC 




TERM 




80007880 
80007890 


0AD4 


1 


6700 


OADA 


INTX3 


LDX 


L3 


INTX4 


SET UP MLSCF RETURN 


80 0079 00 


0A06 


1 


6F00 


080B 




STX 


L3 


MLSCF+1 


TO REQUEST DEVICE 


80007910 


0AD8 





4C80 


012D 


* 


BSC 


I 


START 


GO TO MONITOR 


80D07920 
80D07930 


OADA 





4480 


0131 


INTX4 


BSI 


I 


REODV 


REQUEST DEVICE 


80007940 


OADC 


1 


0AD4 






DC 




INTX3 




80007950 


OAOD 


1 


0814 






DC 




DDEF 




80D07960 


OADE 


1 


0975 






DC 




OVA 




80D07970 


OADF 


1 


0800 




* 


DC 




TERM 




80 DO 79 80 
80007990 


OAEO 


1 


6500 


1545 




LDX 


LI 


T 


RESTORE XR1 


80D08000 


0AE2 


1 


4C80 


12F1 


* 
* 


BSC 


I 


XMRCV 


RETURN TO TEST ROUTINE 


80008010 
80D08020 
8OD08O30 










A************************************************** 


80D08040 










* 










80D08050 










* 






CLEAR CA 




80 DO 80 60 










* 










80008070 










♦A******************************************* ##♦*** 


80D08080 










* 










80D08090 


0AE4 


1 


6C00 


151A 


RTNOl 


STX 


L 


ROYSW 


SET D.S. NOT READY IND 


80D08100 


0AE6 





1010 






SLA 




16 




80D08110 


0AE7 





D1E5 




* 


STO 


1 


CMODE-T 


RESET CONTROL MODE 


80D08120 
80D08130 


0AE8 


1 


4400 


12F1 




BSI 


L 


XMRCV 


CLEAR CA 


80D08140 


OAEA 





2001 






DC 




/2001 




80008150 


OAEB 





0000 




* 


OC 









80D08160 
80D08170 



DATE 
EC NO. 
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431319A 



20MAR70 
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PROG ID 


080D-0 


DATE 
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06N0V70 
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6 


EC NO. 
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PROG 10 
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0800-0 
6A 
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OAEC 
OAEO 
OAEF 




1 



6306 
7400 
63E8 


1515 


A006 

E018 

* 

RTOIA 

* 


LDX 
MDX 
LDX 


3 
L 
3 


6 

ANYER 

-24 


OAFO 
0AF1 
0AF2 







1010 
01E7 

D1D5 




SLA 
STO 
STO 


1 
1 


16 

MXFER-T 

RDYSW-T 


OAF 3 
0AF5 


1 




7400 
7006 


150E 


MDX 
MDX 


L 


PGBSY 
RT01B 


0AF6 
OAF 7 




1 


C1F4 
4C18 


OAFC 


# 


LD 
BSC 


1 
L 


ENDSW-T 
RT01Bt+ 


0AF9 
OAFA 




1 


E9E9 
D400 


1AC9 


gfc 


OR 

STO 


1 
L 


RTNNO-T 
ENMSG 


OAFC 
OAFE 


1 




C400 
D1D6 


0818 


RT01B 

* 

* 
RT01C 

* 
* 


LD 

STO 


L 
1 


TRIES 
RETRY-T 


OAFF 


1 


4400 


ll.FC 


BSI 


L 


RDSWS 


0B01 
0B03 
0B04 


1 



1 


C400 
1881 
4C20 


0816 
0B36 


LD 

SRT 

BSC 


L 

L 


NET 

1 
AAA1.Z 


0B06 


1 


6C00 


152A 


STX 


L 


CMODE 


0B08 

0B09 




1 


1081 
4C08 


0B26 


SLT 
BSC 


L 


1 

NONSW, + 


OBOB 
OBOC 
OBOD 





1 


C1D7 
E9E8 
4C18 


0B26 


£ 


LD 
OR 
BSC 


1 
1 

L 


CLRSW-T 

IDSW-T 

NONSW.+- 


OBOF 
0B10 






D1D5 
D1E8 




$ 


STO 
STO 


1 
1 


RDYSW-T 
IDSW-T 


0B11 
0B12 
0B13 





1 


C1C9 
E9F4 
4C20 


0B19 


£ 


LD 
OR 
BSC 


1 
1 
L 


PGBSY-T 

ENDSH-T 
AAA6tZ 


0B15 
0B16 
0B18 




1 




6205 
7400 
7009 


1530 


AAA5 

* 
AAA6 

* 
AAA7 

* 

AAA3 
* 
GO 

♦ 


LDX 
MOX 
MDX 


2 

L 


5 

REO 

GO 


0B19 
0B1A 
0B1C 




1 




6206 
7400 
7005 


081A 


LOX 
MDX 
MDX 


2 

L 


6 

ANSRQ 

GO 


0B1D 
0B1E 
0B20 




1 




6207 
7400 
7001 


081B 


LDX 
MDX 
MDX 


2 

L 


7 

TONE 

GO 


0B21 





6203 




LOX 


2 


3 


OB22 
0B24 


1 
1 


4400 
4E80 


1104 
1580 


BSI 
BSC 


L 
12 


STPRT 
RTTBL 


0B26 
0B27 
0B28 





1 


C1C9 
E9F4 
4C20 


0B34 


NONSW 


LD 
OR 
BSC 


1 
1 
L 


PGBSY-T 
ENDSW-T 
AAA2tZ 


0B2A 
0B2B 




1 


C1E6 
4C18 


0B30 


♦ 


LD 
BSC 


1 
L 


MASTR-T 
AAA4.+- 


0B2D 
0B2E 







1010 
D1E6 






SLA 
STO 


1 


16 
MASTR-T 



PREPARE TO STORE A006 MSG 
SKIP IF NO DSW ERROR 
PREPARE TO STORE E018 MSG 



RESET MESSAGE TRANSFER IND 
RESET DATA SET NOT RDY SW 

CK PROG BUSY IND 
BR IF PROGRAM BUSY 

CK END MSG PRINT SW 
BR IF NOT END OF TEST 

COMBINE MID AND RID 
SET END MSG PRINT IND 



SET RETRY COUNT=N 

GO TO READ OPTION SWITCHES 

CK NETWORK TYPE 

BR IF MULTIPOINT 

SET CONTROL MODE 

BR IF NOT SWITCHED LINE 

CK CA CLEAR IND 

CK 10 MODE IND 

BR IF NOT CLEAR OR NOT ID 

SET DATA SET NOT RDY SW 
SET ID MODE 

CK PROGRAM BUSY IND 

CK END OF TEST IND 

BR IF PROG BSY OR END TEST 

PREPARE START MSG AAA5 
CK IF XMIT RFT REQUESTED 
BR IF RFT REQUEST 

PREPARE START MSG AAA6 
CK EDIT - AUTO ANSWER 
BR IF RING WAIT SELECTED 

PREPARE START MSG AAA7 
CK EDIT - TONE OPTION 
BR IF XMIT TONE SELECTED 

PREPARE START MSG AAA3 

GO TO SET START MSG PRT SW 
BR TO STARTING ROUTINE 

CK PROGRAM BUSY IND 
CK END OF TEST IND 
BR IF PROGRAM BUSY 

CK MASTER STATUS IND 
BR IF NOT MASTER STATUS 

RESET MASTER STATUS 



80D08180 
80D08190 
80D08200 
80D08210 
80D08220 
80D08230 
80D08240 
80D082 50 
80D08260 
80D082 70 
80D08280 
80D08290 
80D0B300 
80008310 
80D08320 
80D08330 
80D08340 
80D08350 
80D08360 
80008370 
80D08380 
80008390 
80D08400 
80D08410 
80D08420 
80D08430 
80D08440 
80008450 
80D08460 
80 DO 84 70 
80D08480 
80008490 
80D08500 
80D08510 
80D08520 
80008530 
80D08540 
80008550 
80D08560 
80D08570 
80D08580 
80D08590 
80D08600 
80D08610 
80D08620 
80D08630 
80D08640 
80D08650 
80D08660 
80D08670 
80D08680 
80D08690 
80D08700 
80D08710 
80D08720 
80008730 
80D08740 
80008750 
80008760 
80D08770 
80D08780 
80D08790 
80D08800 
80D08810 
80D08820 
80D08830 
80D08840 
80008850 



0B2F 





7004 




♦ 


MDX 




AAA2 


0B30 
0B31 
0B33 




1 



6204 
7400 
70EE 


1530 


AAA4 

* 
AAA2 

* 


LOX 
MDX 
MDX 


2 

L 


4 
REQ 

GO 


0B34 
0B35 






6202 
70EC 




LDX 
MDX 


2 


2 

GO 


0B36 
OB 37 




1 


6201 
4400 


1104 


AAA1 


LDX 
BSI 


2 

L 


1 
STPRT 


0B39 
0B3A 




1 


C1E5 
4C18 


0C06 


* 

* 


LD 
BSC 


1 
L 


CMODE-T 
RTN08 t 6 


0B3C 


1 


4C00 


OC32 


BSC 


L 


RTN09 










* 









GO TO RECEIVE ENQ 

PREPARE START MSG AAA4 
CK IF XMIT RFT REQUESTED 
8R IF RFT REQUEST 

PREPARE START MSG AAA2 

BRANCH 

PREPARE START MSG AAA1 
SET START MSG PRINT IND 

CK CONTROL MODE IND 
BR IF NOT CONTROL MODE 

BR IF CONTROL MODE 



* 

* RECEIVE INITIAL ENQ 

* 



RECEIVE 4 CHARACTERS 

PREPARE TO STORE E01D MSG 

BR IF DSW OR BCW ERROR 

PREPARE TO STORE A008 MSG 
CK DATA SET READY SW 
BR IF DATA SET NOT RDY 

PREPARE TO STORE A009 MSG 

BR IF NOTHING RECEIVED 

CK FOR EOT OR DISC RCVD 

PREPARE TO STORE AOOA MSG 

CK FOR ENQ RECEIVED 

BR IF ENQ RCVD 

PREPARE TO STORE E01E MSG 

RESET CONTROL MODE 

. GO TO CK RETRY COUNTER 

CK PROG BUSY IND 

BR IF PROGRAM PRINT BUSY 

CK ID MODE IND 

BR IF ID MODE 

BR IF NOT ID MODE 

CK CONTROL MODE IND 
BR IF NOT CONTROL MODE 



0B3E 1 
0B40 
0B41 


4400 
3002 

0004 


12F1 


RTN02 

# 
E01D 


BSI 

DC 

DC 


L 


XMRCV 
/3002 
/0004 


0842 
0B43 1 
0B45 


63E3 
7400 
7011 


1515 


LDX 
MDX 
MDX 


3 

L 


-29 

ANYER 
E01E+1 


0B46 
0B47 1 
0B49 


6308 
7400 
701B 


151A 


A008 


LDX 
MDX 
MDX 


3 

L 


8 

RDYSW 

RT02C 


0B4A 
0B4B 1 
0B40 


6309 
7400 
7014 


1519 


A009 

* 


LDX 
MDX 
MDX 


3 
L 


9 

NORCV 

RT02B 


0B4E 1 


4400 


10A2 


# 


BSI 


L 


ENOCK 


0B50 
0B51 
0B52 
0B53 
0B54 1 


6 30 A 
C1DB 
F1B9 
1008 
4C18 


0B6B 


AOOA 

* 
E01E 

* 
RT02A 

* 


LDX 

LD 

EOR 

SLA 

BSC 


3 

1 

1 

L 


10 

ENDCH-T 

ENQ-T 

8 

RT02D.+- 


0B56 
OB57 
0B58 


63E2 
1010 
D1E5 




LDX 
SLA 
STO 


3 
1 


-30 

16 

CMOOE-T 


0B59 1 


4400 


1084 


BSI 


L 


CKTRY 


0B5B 
085C 1 


C1C9 
4C20 


0B01 


LD 
BSC 


1 
L 


PGBSY-T 
RT01CZ 


0B5E 1 
0B60 
0B61 


7400 
7021 
700C 


152D 


£ 


MDX 
MDX 
MOX 


L 


IDSW 

RTN03 

RTN02 


0B62 
0B63 1 


C1E5 
4C18 


OB 59 


RT02B 

* 
RT02C 

* 


LD 
BSC 


1 
L 


CMODE-T 
RT02A t +- 


0B65 1 


4400 


HFC 


BSI 


L 


ROSWS 


0B67 
0B68 1 


C1EB 
4C20 


OAFO 


LD 
BSC 


1 
L 


REQ-T 
RTOlAtZ 



GO TO READ OPTION SWITCHES 

CK IF XMIT RFT TEQUESTED 
BR IF RFT REQUESTED 



80D08860 
80D08870 
80D08880 
80D08890 
80D08900 
80008910 
80D08920 
80008930 
80D08940 
80D08950 
80D08963 
80D08970 
80D08980 
80008990 
80D09000 
80D09010 
80009020 
80009030 
80D09040 
80D09050 
80D09060 
80D09070 
80D09080 
80D09090 
80D09100 
80D09110 
80009120 
80D09130 
80D09140 
80D09150 
80D09160 
80D09170 
80D09180 
80D09190 
80D09200 
80D09210 
80D09220 
80D09230 
80D09240 
80D09250 
80D09260 
80D09270 
80D09280 
80D09290 
80009300 
80D09310 
80D09320 
80D09330 
80D09340 
80D09350 
80009360 
80D09370 
80009380 
80D09390 
80D09400 
80D09410 
80009420 
80D09430 
80009440 
80D09450 
80009460 
80009470 
80009480 
80D09490 
80009500 
80D09510 
80D09520 
80D09530 



DATE 
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PROG ID 
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DATE 
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7 
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PAGE 
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0B6A 





70EE 




* 
RT02D 

* 


NOX 




RT02A 


BRANCH 


0B6B 
0B6C 



1 


C1D2 
4C18 


OB75 


LD 
BSC 


1 
L 


X99ID-T 
RT02E.+- 


BR IF X=99 
IND NOT ON 


0B6E 
0B70 


1 



C400 
D1D6 


0818 


* 

* 

* 
RT02E 

* 


LD 
STO 


L 
1 


TRIES 
RETRY-T 


SET RETRY COUNT=N 


0B71 
0B72 






C9AF 
D9AD 




LOO 
STO 


1 
1 


ACKO-T 
ACKS-T 


INITIALIZE ACKS 
TO ACK0/ACK1 


0B73 


1 


4C00 


0F55 


BSC 


L 


RTN1B 


GO TO RECEIVE TEST i 


0B75 
0B76 




1 


C1C9 
4C18 


0CA2 


LD 
BSC 


1 
L 


PGBSY-T 
RTNOO.+- 


CK PROG BUSY INO 
BR IF PROG NOT BUSY 


0B78 
0B79 






1010 
D1E5 




* 

* 

* 
* 


SLA 
STO 


1 


16 
CMODE-T 


RESET CONTROL MODE 


0B7A 
0B7C 


1 




C400 
D1D6 


0818 


LD 
STO 


L 
1 


TRIES 
RETRY-T 


SET RETRY COUNT=N 


0B7D 
0B7E 




1 


C1E8 
4C20 


0C8C 


LD 
BSC 


1 
L 


IDSW-T 
RTNOBtZ 


CK ID MODE IND 
BR IF ID MODE 


0B80 


1 


4C00 


0C85 


BSC 


L 


RTNOA 


GO TO XMIT NAK 



0B82 1 4400 12F1 
0B84 3003 
0B85 0012 

0B86 70BB 



*************************************************** 
* 

* RECEIVE INITIAL ID ENQ 
* 

*************************************************** 
* 

RTN03 BSI L XMRCV 

DC /3003 

DC /0012 RECEIVE 18 CHARACTERS 
* 

MDX E01D BRANCH 
* 
* 

*************************************************** 
* 

* XMIT INITIAL ENQ, RECEIVE ACKO 
* 

*************************************************** 
* 



TRANSMIT 

ENQ 
RECEIVE 4 CHARACTERS 



0B87 
0B89 
0B8A 
0B8B 
0B8C 


1 



1 



4400 
3004 
E003 
14FE 
4004 


12F1 


RTN04 

* 
E020 

* 
AOOC 

* 
AOOD 

* 


BSI 

DC 

DC 

DC 

DC 


L 


XMRCV 

/3004 

/E003 

ENQ 

/4004 


0B8D 
0B8E 
0B90 




1 




63E0 
7400 
7014 


1515 


LDX 
MDX 
MDX 


3 
L 


-32 

ANYER 

RT04A 


0B91 
0B92 
0B94 




1 




630C 
7400 
7010 


151A 


LDX 
MDX 
MDX 


3 

L 


12 

RDYSW 
RT04A 


0B95 
0B96 
0B98 




1 




630D 
7400 
700C 


1519 


LDX 
MDX 
MDX 


3 

L 


13 

NORCV 

RT04A 


0B99 


1 


4400 


10A2 


* 


BSI 


L 


ENDCK 



PREPARE TO STORE E020 MSG 
BR IF DSH OR BCW ERROR 
PREPARE TO STORE AOOC MSG 
BR IF DATA SET NOT READY 
PREPARE TO STORE AOOD MSG 
BR IF NOTHING RECEIVED 
CK FOR EOT OR DISC RCVD 



80D09540 

80D09550 

80D09560 

80D09570 

80D09580 

80D09590 

80D09600 

80D09610 

80D09620 

80D09630 

80D09640 

80D09650 

80D09660 

80D09670 

80D09680 

80D09690 

80D09700 

80D09710 

80D09720 

80D09730 

80D09740 

80D09750 

80D09760 

80D09770 

80D09780 

80D09790 

80D09800 

80D09810 

80D09820 

80D09830 

80D09840 

80D09850 

80D09860 

80D09870 

80009880 

80D09890 

80D09900 

80009910 

80D09920 

80D09930 

80D09940 

80D09950 

80D09960 

80D09970 

80D09980 

80D09990 

80D10000 

80010010 

80D10020 

80010030 

80010040 

80D10050 

80D10060 

80D10070 

80D10080 

80D10090 

80D10100 

80010110 

80D10120 

80010130 

80D10140 

80010150 

80D10160 

80D10170 

80D10180 

80D10190 

80D10200 

80D10210 



0B9B C1DB 
0B9C F1B9 
0B9D 1008 
0P9E 1 4C20 OBAB 

OBAO 630E 

Oi 41 1 C400 0817 

0BA3 1 4C20 0CA2 

0BA5 1 4400 1084 

0BA7 1 7400 152D 
0BA9 7013 
OBAA 70DC 

OBAB 630F 
OBAC C1DB 
OBAD F1AF 
OBAE 1 4C18 ODEA 

OBBO 6310 
0BB1 C1DB 
0BB2 F1BA 
0BB3 1008 
0BB4 1 4C18 0BA5 

0BB6 6311 
0BB7 C1DB 
0BB8 F1B1 
0BB9 1 4C18 0BA5 

OBBB 63DF 
OBBC 70E8 



LD 
EOR 
SLA 
BSC 



1 ENDCH-T 
1 ENQ-T 
8 
L AOOF.Z 

3 14 



CK FOR ENQ RCVD 
BR IF NOT ENQ 



PREPARE TO STORE AOOE MSG 
CK EDIT - SECONDARY OPTION 
BR IF SECONDARY STATION 



OBBD C1E2 
OBBE 1 D480 1526 
OBCO C1ED 
0BC1 0003 



AOOE LDX 

LD L SECND 

BSC L RTNOD.Z 
* 

RT04A BSI L CKTRY 
* 

MDX L IDSW 

MDX RTN05 

MDX RTN04 
* 

AOOF LDX 3 15 

LD 1 ENDCH-T 

EOR 1 ACKO-T 

BSC L RTN13,+- 
* 

A010 LDX 3 16 

LD 1 ENDCH-T 

EOR 1 NAK-T 

SLA 8 

BSC L RT04A,+- 
* 

A011 LDX 3 17 

LD 1 ENDCH-T 

EOR 1 WACK-T 

BSC L RT04A.+- 
* 

E021 LDX 3 -33 

MDX RT04A 
* 
* 

*************************************************** 
* 

* XMIT INITIAL ID ENQ, RECEIVE ID ACKO 
* 

*************************************************** 
* 

BUILD ID ENQ 
SEQUENCE 

LD 1 IDCNT-T STORE ID SEQUENCE 

STO *+3 LENGTH IN XMIT/RCV CALL 



GO TO CHECK RETRY COUNTER 

CK ID MODE IND 
BR IF ID MODE 
BR IF NO 10 MODE 

PREPARE TO STORE AOOF MSG 

CK FOR ACKO RCVD 
BR IF ACKO RECEIVED 

PREPARE TO STORE A010 MSG 

CK FOR NAK RECEIVED 

BR IF NAK RCVD 

PREPARE TO STORE A011 MSG 

CK FOR HACK RECEIVED 
BR IF WACK RCVD 

PREPARE TO STORE E021 MSG 
BRANCH 



RTN05 LD 1 IDENQ-T 
STO I IOEND 



0BC2 
0BC4 
0BC5 
0BC6 



4400 12F1 
3005 
0000 
0820 



0BC7 4012 



0BC8 70C4 



BSI 

DC 

DC 

DC 

DC 

MDX 



XMRCV 

/3005 

*-* 

POLID+1 

/4012 

E020 



TRANSMIT 

ID ENQ 
RECEIVE 18 CHARACTERS 

BRANCH 



0BC9 1 4400 12F1 
OBCB 3006 
OBCC FFFF 

OBCD 63DD 
OBCE 1 7400 1515 
OBDO 7009 



* 

* 

*************************************************** 

* 

* WAIT FOR RING INDICATOR 

* 

*************************************************** 

* 

RTN06 BSI L XMRCV 

DC /3006 ENABLE CA AND 

DC /FFFF START CONTINUE TIMER 
* 
E023 LDX 3 -35 PREPARE TO STORE E023 MSG 

MDX L ANYER 

MDX RT06A BR IF DSW ERROR OCCURED 



80D10220 
80D10230 
80D10240 
80D10250 
80D10260 
80010270 
80D10280 
80D10290 
80D10300 
80D10310 
80D10320 
80D10330 
80D10340 
80D10350 
80D10360 
80D10370 
80D10380 
80D10390 
80D10400 
80D10410 
80D10420 
80D10430 
80D10440 
80D10450 
80D10460 
80D10470 
80D10480 
80D10490 
80D10500 
80D10510 
80010520 
80D10530 
80D10540 
80D10550 
80D10560 
80D10570 
80D10580 
80010590 
80D10600 
80D10610 
80D10620 
80D10630 
80D10640 
80D10650 
80D10660 
80010670 
80D10680 
80D10690 
80D10700 
80D10710 
80D10720 
80D10730 
80D10740 
80D10750 
80D10760 
80D10770 
80D10780 
80D10790 
80D10800 
80010810 
80D10820 
80D10830 
80D10840 
80D10850 
80D10860 
80D10870 
80D10880 
80D10890 



DATE 
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06N0V70 
431323 
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* 










80D10900 


0801 6314 




A014 


LOX 


3 


20 


PREPARE TO STORE A014 MSG 


80D10910 


0B02 C105 






LO 


1 


RDYSfcl-T 


CHECK D.S. READY IND 


80D10920 


0BD3 1 4C18 


OBDD 


* 


BSC 


L 


A015+1.+ 


- BR IF DATA SET READY 


80D10930 
80D10940 


0BD5 6313 




A013 


LOX 


3 


19 


PREPARE TO STORE A013 MSG 


80D10950 


0BD6 C19B 






LD 


1 


SNSOP-T 


CK OSW 


80D10960 


0BD7 1003 






SLA 




3 




80D10970 


0BD8 1 4C28 


OBDC 


* 


BSC 


L 


A015.Z+ 


BR IF PHONE RINGING 


80D10980 
80010990 


OBDA 4020 




RT06A 


BSI 




RT07A 


GO TO CK RETRY COUNT 


80D11000 


OBDB 70ED 




* 


MOX 




RTN06 


BR IF CNT NOT YET ZERO 


80011010 
80011020 


OBOC 6315 




A015 


LDX 


3 


21 


PREPARE TO STORE A015 MSG 


80D11030 


OBDD 1 C400 


0818 




LD 


L 


TRIES 




80011040 


OBDF D1D6 




* 


STO 


1 


RETRY-T 


SET RETRY COUNT=N 


80011050 
80DU060 


OBEO 1 7400 


0818 




MDX 


L 


TONE 


CK EDIT - XMIT TONE OPTION 


80011070 


0BE2 7002 






MDX 




RTN07 


BR IF XMIT TONE SELECTED 


80011080 


0BE3 1 4C00 


0B82 


* 
* 


BSC 


L 


RTN03 


GO TO RCV ID ENQ 


80011090 
80D11100 
80011110 






*************************************************** 


80011120 






* 










80011130 






* 






TRANSMIT 


TONE 


80D11140 






* 










80011150 


% 




******** ******************************************* 


80011160 






* 










80D11170 


0BE5 1 4400 


12F1 


RTN07 


BSI 


L 


XMRCV 




80D11180 


0BE7 2007 






DC 




/2007 




80011190 


0BE8 E004 






DC 




/E004 


TRANSMIT 


80011200 


0BE9 1 1501 






DC 




SYN 


SYN CHARACTERS FOR 3 SEC 


80D11210 


OBEA 0000 




* 


DC 









80D11220 
80D11230 


OBEB 63DC 




E024 


LDX 


3 


-36 


PREPARE TO STORE E024 MSG 


80D11240 


OBEC 1 7400 


1515 




MDX 


L 


ANYER 


SKIP IF NO DSW ERROR 


80D11250 


OBEE 7004 




* 


MDX 




A017+1 


BR IF DSW ERROR 


80D11260 
80011270 


OBEF C1D5 






LD 


1 


RDYSW-T 


CK DATA SET READY IND 


80D11280 


OBFO 1 4C18 


0BF5 


* 


BSC 


L 


A018,+- 


BR IF DATA SET READY 


80D11290 
80D11300 


0BF2 6317 




A017 


LDX 


3 


23 


PREPARE TO STORE A017 MSG 


80011310 


0BF3 4007 






BSI 




RT07A 


GO TO CK RETRY COUNT 


80D11320 


0BF4 70F0 




* 


MDX 




RTN07 


8R IF CNT NOT YET ZERO 


80011330 
80D11340 


0BF5 6318 




A018 


LOX 


3 


24 


PREPARE TO STORE A017 MSG 


80D11350 


0BF6 1 C400 


0818 




LD 


L 


TRIES 




80D11360 


0BF8 0106 






STO 


1 


RETRY-T 


SET RETRY COUNT=N 


80D11370 


0BF9 1 4C00 


0B82 


* 
* 


BSC 


L 


RTN03 


GO TO RECEIVE 


80011380 
80D11390 
80011400 


OBFB 0000 




RT07A 

* 


DC 




*-* 


EP 


80D11410 
80011420 


OBFC 1 4400 


1084 




BSI 


L 


CKTRY 


CHECK RETRY COUNT 


80D11430 


OBFE 1 4400 


HFC 




BSI 


L 


RDSWS 


READ OPTION SWITCHES 


80011440 


OCOO C1EB 






LD 


1 


REQ-T 


CK IF XMIT RFT REQUEST 


80011450 


0C01 E9C9 






OR 


1 


PGBSY-T 


CK PROGRAM BUSY IND 


80011460 


0C02 1 4C20 


0AE4 


* 


BSC 


L 


RTN01.Z 


BR IF REQUEST OR PROG BUSY 


80011470 
80011480 


0C04 1 4C80 


OBFB 


* 
* 


BSC 


I 


RT07A 


RETURN 


80D11490 
80011500 
80D11510 






*************************************************** 


80D11520 






* 










80D11530 






* 






RECEIVE PASSIVE STATE 


80D11540 






* 










80D11550 






*************************************************** 


80D11560 






* 










80D11570 



0C06 1 4400 12F1 
0C08 3008 
0C09 C004 

OCOA 63DA 
OCOB 1 7400 1515 
OCOD 700A 

OCOE 631A 
OCOF 1 7400 1519 
0C11 7006 

0C12 631B 
0C13 C1DB 
0C14 F1B8 
0C15 1008 
0C16 1 4C18 0C21 



0C18 
0C19 

0C1A 
0C1B 

0C1D 
0C1F 



1010 
D1E5 

C1C9 

1 4C20 OAFO 

1 74FF 151B 
70E6 



0C20 700D 



0C21 
0C22 
0C24 

0C25 
0C27 

0C28 
0C29 



631C 

1 7400 152A 

7003 

1 6C00 152A 
700A 

C1C9 

1 4C20 OAFO 



0C2B 1 74FF 151B 
0C2D 7004 

0C2E 1 4400 11E9 
0C30 1 4C00 OAFO 



0C32 1 4400 12F1 
0C34 3009 
0C35 COOA 

0C36 63D8 
0C37 1 7400 1515 
0C39 700F 

0C3A 631E 

0C3B 1 7400 1519 

0C3D 7008 

0C3E 1 C400 1601 
0C40 1 4400 14A2 
0C42 4828 
0C43 1090 



L XMRCV 
/3008 
/C004 

3 -38 
L ANYER 
RT08A 

3 26 
L NORCV 
RT08A 

3 27 

1 ENOCH-T 
1 EOT-T 
8 
L A01C+- 

16 
1 CMODE-T 

1 PGBSY-T 
L RTOlAtZ 

L RETRY, -1 
RTN08 

RT08C 

3 28 
L CMODE 
RT08B 

L CMODE 
RTN09 

1 PGBSY-T 
L RT01A,Z 

L RETRY, -1 
RTN09 



RTN08 BSI 

DC 

DC 
* 
E026 LDX 

MDX 

MDX 
* 
A01A LDX 

MDX 

MOX 
* 
A01B LDX 

LD 

EOR 

SLA 

BSC 
* 
RT08A SLA 

STO 

LD 

BSC 
* 

MOX 

MOX 
* 

MDX 
* 
A01C LOX 

MDX 

MDX 
* 

STX 

MDX 
* 
RT08B LD 

BSC 
* 

MDX 

MDX 
* 
RT08C BSI L ENPRT 

BSC L RT01A 
* 
* 

*************************************************** 
* 

* RECEIVE POLL OR SELECTION ADDRESS 

* 

*************************************************** 
* 



RECEIVE 4 CHARS AND CHAIN 
PREPARE TO STORE E026 MSG 
BR IF OSW OR BCW ERROR 
PREPARE TO STORE A01A MSG 
BR IF NOTHING RECEIVED 
PREPARE TO STORE A01B MSG 
CK FOR EOT RECEIVEO 
BR IF EOT RECEIVED 

RESET CONTROL MODE 

CK PROGRAM BUSY IND 
BR IF PROGRAM BUSY 

DECREMENT RETRY COUNTER 
BR IF CNT NOT YET ZERO 

GO TO LINE INITIALIZATION 

PREPARE TO STORE A01C MSG 

CK CONTROL MODE 

BR IF CONTROL MODE SET 

SET CONTROL MODE 

GO TO RCV POLL OR SELECT 

CK PROGRAM BUSY IND 
BR IF PROGRAM BUSY 

DECREMENT RETRY COUNT 
BR IF CNT NOT YET ZERO 

SET END OF TEST IND 
BRANCH 



RTN09 BSI 
DC 
DC 

* 

E028 LDX 
MDX 
MDX 

* 

A01E LDX 
MDX 
MDX 

* 

LD 
BSI 
BSC 
SLT 



L XMRCV 
/3009 
/COOA 

3 -40 
L ANYER 
A01F+1 

3 30 
L NORCV 
A01F+1 



RCVTB+1 
DC ODE 
Z+ 
16 



RCV 10 CHARS AND CHAIN 

PREPARE TO STORE E028 MSG 

BR IF DSW OR BCW ERROR 

PREPARE TO STORE A01E MSG 

BR IF NOTHING RECEIVED 

FETCH 1ST TWO CHARS RCVD 
BUILD DECODE WORDS 
CK FOR 
SOH, STX 



80D11580 
80D11590 
80011600 
80011610 
80D11620 
80D11630 
80D11640 
80D11650 
80D11660 
80D11670 
80D11680 
80D1169O 
80D11700 
80D11710 
80011720 
80D11730 
80D11740 
80011750 
80011760 
80D11770 
80D11780 
80D11790 
80011800 
80D11810 
80D11820 
80011830 
80D11840 
80D11850 
80D11860 
80D11870 
80D11880 
80D11890 
80D11900 
80011910 
80D11920 
80D11930 
80D11940 
80D11950 
80D11960 
80011970 
80011980 
80D11990 
80012000 
80012010 
80D12020 
80012030 
80012040 
80012050 
80D12060 
80D12070 
80D12080 
80012090 
80012100 
80012110 
80D12120 
80012130 
80D12140 
80D12150 
80D12160 
80012170 
80D12180 
80D12190 
80D12200 
80D12210 
80012220 
80012230 
80012240 
80012250 
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0C44 





1001 






SLA 




1 


OR OLE STX 


80D12260 


0C45 





180E 






SRA 




14 


RECEIVED 


80D12270 


0C46 


1 


4C08 


0C4A 




BSC 


L 


RT09A,+ 


BR IF NOT SOH, STX, DLE STX80D12280 










* 










80D12290 


0C48 





631F 




A01F 


LDX 


3 


31 


PREPARE TO STORE A01F MSG 


80D12300 


0C49 





70CE 




* 


MDX 




RT08A 


GO TO RCV PASSIVE 


80D12310 
80D12320 


0C4A 


1 


6700 


08 IF 


RT09A 


LDX 


L3 


POL ID 


X3=P0LLING SEQUENCE ADDR 


80D12330 


0C4C 





4019 






BSI 




ADRCK 


GO TO CK POLL RECEIVED 


80D12340 


0C4D 





700C 




* 


MDX 




RT09B 


BR IF NOT POLL RECEIVED 


80D12350 
80D12360 


0C4E 





6320 




A020 


LDX 


3 


32 


PREPARE TO STORE A020 MSG 


80D12370 


0C4F 





C1C9 






LD 


1 


PGBSY-T 


CK PROGRAM BUSY IND 


80D12380 


0C50 


1 


4C20 


0C57 


* 


BSC 


L 


RT09CZ 


BR IF PROGRAM BUSY 


80D12390 
80D12400 


0C52 


1 


4400 


11FC 


* 


BSI 


L 


RDSWS 


READ OPTION SWITCHES 


80D12410 
80D12420 


0C54 





C1EB 






LD 


1 


REO-T 




80D12430 


OC55 


1 


4C20 


ODEA 


* 


BSC 


L 


RTN13tZ 


BR IF XMIT RFT REQUESTED 


80D12440 
80D12450 


0C57 


1 


4400 


1067 


RT09C 


BSI 


L 


RTN21 


GO TO XMIT EOT 


80D12460 


0C59 





70CE 




* 


MDX 




RT08B 


GO TO CK RETRY COUNT 


80D12470 
80D12480 


0C5A 


1 


6700 


0824 


RT09B 


LDX 


L3 


SELID 


X3=SELECTI0N SEQUENCE ADDR 


80D12490 


0C5C 





4009 






BSI 




ADRCK 


GO TO CK ADDR 


80D12500 


0C5D 





7006 




* 


MDX 




A022 


BR IF NOT SELECT 


80D12510 
80D12520 


0C5E 





6321 




A021 


LDX 


3 


33 


PREPARE TO STORE A021 MSG 


80D12530 


0C5F 





C1C9 






LD 


1 


PGBSY-T 


CK PROGRAM BUSY IND 


80D12540 


0C60 


1 


4C20 


0C9A 


% 


BSC 


L 


RTNOCZ 


BR IF PROGRAM BUSY 


80D12550 
80D12560 


0C62 


1 


4C00 


0CA2 


* 


BSC 


L 


RTNOD 


GO TO XMIT ACKO, RCV RFT 


80D12570 
80D12580 


0C64 





6322 




A022 


LDX 


3 


34 


PREPARE TO STORE A022 MSG 


80D12590 


0C65 





70C2 




* 


MDX 




RT08B 


GO TO CK RETRY COUNT 


80D12600 
80D12610 
80D12620 


0C66 





0000 




ADRCK 
* 


DC 




*-* 


ENTRY 


80D12630 
80D12640 


0C67 





C300 






LD 


3 





FETCH ADDR CHAR COUNT 


80D12650 


0C68 





1881 






SRT 




1 


DIVIDE BY TWO 


80D12660 


0C69 





D1CD 






STO 


1 


CNTA-T 


SAVE TABLE LENGTH 


80D12670 


0C6A 





1081 






SLT 




1 




80D12680 


0C6B 


1 


4C04 


0C7C 


* 


BSC 


L 


ADCK2.E 


BR IF ODD CHAR CNT 


80D12690 
80D12700 


0C6D 


1 


66 00 


16D1 


A0CK1 


LDX 


L2 


RCVTB+1 


COMPARE ADDR RECEIVED 


80D12710 


0C6F 





C301 






LD 


3 


1 


TO ADDR IN POLL 


80D12720 


0C70 





F200 






EOR 


2 





OR SELECT ADDR TABLE 


80D12730 


0C71 


1 


4CA0 


0C66 


* 


BSC 


I 


ADRCK, Z 


RETURN IF NOT EQUAL CMP 


80D12740 
80D12750 


0C73 





7301 






MDX 


3 


1 




80D12760 


0C74 





7201 






MDX 


2 


1 




80D12770 


0C75 


1 


74FF 


1512 




MDX 


L 


CNTA.-l 




80D12780 


0C77 





70F7 




* 


MDX 




ADCK1+2 




80D12790 
80D12800 


0C78 


1 


7401 


0C66 




MDX 


L 


ADRCK, 1 


EQUAL CMP - INCRE RETURN 


80012810 


0C7A 


1 


4C80 


0C66 


* 


BSC 


I 


ADRCK 


RETURN TO CALLING RTN 


80D12820 
80D12830 


0C7C 


1 


6680 


1512 


ADCK2 


LDX 


12 


CNTA 


X2=ADDRESS LENGTH 


80D12840 


0C7E 


1 


C600 


1602 




LD 


L2 


RCVTB+2 


FETCH END CHAR 


80D12850 


OC80 





F1B9 






EOR 


1 


ENO-T 


CK FOR ENQ END 


80D12860 


0C81 





1808 






SRA 




8 




80D12870 


0C82 


1 


4CA0 


0C66 


* 


BSC 


I 


ADRCK, Z 


EXIT IF NOT ENQ END 


80D12880 
80D12890 


0C84 





70E8 




* 

* 


MDX 




ADCK1 


GO TO CK ADDR SEQUENCE 


80D12900 
80D12910 
80D12920 










*************************************************** 


80D12930 



0C85 1 4400 12F1 
0C87 080A 
0C88 2003 
0C89 1 14FF 

0C8A 1 4C00 0B34 



0C8C C1E4 
0C8D 1 D480 1526 
0C8F C1ED 
0C90 1002 
0C91 1802 
0C92 D003 



0C93 
0C95 
0C96 
0C97 



4400 12F1 
080B 
0000 
0820 



0C98 1 4C00 0B21 



0C9A 


1 


4400 


12F1 


0C9C 





300C 




0C9D 





E003 




0C9E 


1 


14FF 




0C9F 





0004 




OCAO 


1 


4C00 


OCOA 



0CA2 1 C400 0818 
0CA4 D1D6 

0CA5 1 6C00 152C 

0CA7 C1E8 
0CA8 1 4C20 0DA2 

OCAA 1 4400 12F1 
OCAC 300D 
OCAD E004 
OCAE 1 14F4 
OCAF 0190 



* 










80D12940 


* 






XMIT NAK 




80D12950 


* 










80D12960 


*************************************************** 


80D12970 


* 










80D12980 


RTNOA 


BSI 


L 


XMRCV 




80D12990 




DC 




/080A 




80D13000 




DC 




/2003 


TRANSMIT 


80D13010 




DC 




NAK 


NAK 


80D13020 


* 










80D13030 




BSC 


L 


AAA2 


BRANCH 


80D13040 


* 










80D13050 


* 










80D13060 


*************************************************** 


80D13070 


* 










80D13080 


* 






XMIT ID NAK 


80D13090 


* 










80D13100 


*************************************************** 


80D13110 


* 










80D13120 


RTNOB 


LD 


1 


IDNAK-T 


BUILD ID NAK 


80D13130 




STO 


I 


IDEND 


SEQUENCE 


80D13140 




LD 


1 


IDCNT-T 


FETCH ID SEQ CHAR COUNT 


80D13150 




SLA 




2 




80D13160 




SRA 




2 


DELETE CHAIN BITS 


80D13170 




STO 




*+3 


STO CNT IN XMIT/RCV CALL 


80D13180 


* 










80D13190 




BSI 


L 


XMRCV 




80D13200 




DC 




/080B 




80D13210 




DC 




*-* 


TRANSMIT 


80D13220 




DC 




POLID+1 


ID NAK 


80D13230 


* 










80D13240 




BSC 


L 


AAA3 


BRANCH 


80D13250 


* 










80D13260 


# 










80D13270 


********************* ************* ***************** 


80D13280 


* 










80D13290 


* 






TRANSMIT 


NAK, RECEIVE EOT 


80D13300 


* 










80D13310 


*************************************************** 


80D13320 


* 










80D13330 


RTNOC 


BSI 


L 


XMRCV 




80D13340 




DC 




/300C 




80D13350 




DC 




/E003 


TRANSMIT 


80D13360 




DC 




NAK 


NAK 


80D13370 




DC 




/0004 


RECEIVC 4 CHARACTERS 


80D13380 


* 










80D13390 




BSC 


L 


E026 


BRANCH 


80D13400 


* 










80D13410 


* 










80D13420 


*************************************************** 


80D13430 


* 










80D13440 


* 






XMIT ACKO, RECEIVE REQUEST-FOR-TEST 


80D13450 


* 










80D13460 


*************************************************** 


80D13470 


* 










80D13480 


RTNOD 


LD 


L 


TRIES 




80D13490 




STO 


1 


RETRY-T 


SET RETRY COUNT=N 


80D13500 


* 










80D13510 




STX 


L 


MXFER 


SET MESSAGE TRANSFER STATE 


80D13520 


* 










80D13530 




LD 


1 


IDSW-T 


CK ID MODE IND 


80D13540 




BSC 


L 


RTNOE,Z 


BR IF ID MODE 


80D13550 


* 










80D13560 


RT0D1 


BSI 


L 


XMRCV 




80D13570 




DC 




/300D 




80D13580 




DC 




/E004 


TRANSMIT 


80013590 




DC 




ACKO 


ACKO 


80D13600 




DC 




/0190 


RECEIVE 400 CHARACTERS 


80D13610 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



06NOV70 
431323 



PROG ID 


080D-0 


DATE 


14N0V69 


30JAN70 


20MAR70 


06NOV70 


PAGE 


10 


EC NO. 


431319 


431319A 


431320 


431323 



PROG ID 
PAGE 



080, 



II II II II II II I II 
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* 












80D13620 


OCBO 





1010 




RT0D2 


SLA 




16 






80013630 


0CB1 





D1EE 






STO 


1 


NKLST-T 


RESET NAK LAST XMIT IND 


80D13640 










* 












80D13650 


0CB2 


1 


7400 


1515 


RT0D3 


MDX 


L 


ANYER 






80D13660 


0CB4 





702E 






MDX 




E02C 


BR IF DSW OR BCW ERROR 


80D13670 










* 












80D13680 


0CB5 


1 


7400 


1519 




MDX 


L 


NORCV 






80D13690 


0CB7 





7026 






MDX 




E02B 


BR IF NOTHING RECEIVED 


80D13700 










* 












80D13710 


0CB8 





63D3 




E02D 


LDX 


3 


-45 


PREPARE TO STORE E02D 


MSG 


80D13720 


0CB9 


1 


7400 


1518 




MDX 


L 


ABORT 






80D13730 


OCBB 





7037 




* 


MDX 




E032+1 


BR IF END CHAR IS ENQ 




80D13740 
80D13750 


OCBC 


1 


7400 


1516 




MDX 


L 


TEXT 






80D13760 


OCBE 





703A 




* 


MDX 




RT004 


BR IF TEXT RECEIVED 




80D13770 
80D13780 


OCBF 


1 


4400 


10A2 




BSI 


L 


ENDCK 


CK FOR EOT OR DISC RCVD 


80D13790 










* 












80D13800 


0CC1 


1 


C400 


1601 




LD 


L 


RCVTB+1 






80D13810 


0CC3 





F1B9 






EOR 


1 


ENQ-T 


CK FOR ENQ RECEIVED 




80D13820 


0CC4 





1808 






SRA 




8 






80D13830 


0CC5 


1 


4C20 


OCDO 


* 


BSC 


L 


E030,Z 


BR IF NOT ENQ 




80D13840 
80013850 


0CC7 





63D2 




E02E 


LDX 


3 


-46 


PREPARE TO STORE E02E 


MSG 


80D13860 


0CC8 





1010 






SLA 




16 






80D13870 


0CC9 





D1E8 






STO 


1 


IDSW-T 


RESET ID MODE 




80D13880 


OCCA 


1 


4400 


1084 


* 


BSI 


L 


CKTRY 


GO TO CK RETRY COUNT 




80D13890 
80D13900 


OCCC 





C1EE 




RTD2A 


LD 


1 


NKLST-T 


CK NAK LAST XMIT IND 




80013910 


OCCD 


1 


4C20 


ODDA 




BSC 


L 


RTN11.Z 


BK IF NAK SENT LAST TRY 


80D13920 










* 












80D1393O 


OCCF 





700A 




* 


MOX 




RT0D1 


GO TO XMIT ACKO AGAIN 




80013940 
80D13950 


OCDO 





63D0 




E030 


LDX 


3 


-48 


PREPARE TO STORE E030 


MSG 


80D13960 


0CD1 





C1E8 






LD 


1 


IDSW-T 


CK ID MODE IND 




80D13970 


0CD2 


1 


4C18 


OCEB 


* 


BSC 


L 


E02A+1.+- 


BR IF NOT ID MODE 




80D13980 
80D13990 


0CD4 





C1DB 






LD 


1 


ENOCH-T 






80014000 


0C05 





F1B9 






EOR 


1 


ENQ-T 


CK FOR ID ENQ RCVD 




80D14010 


0CD6 





1008 






SLA 




8 






80D14020 


0C07 


1 


4C20 


OCEB 


* 


BSC 


L 


E02A+1,Z 


BR IF NOT ID ENQ 




80014030 
8 OD 14040 


0C09 





63CF 




E031 


LDX 


3 


-49 


PREPARE TO STORE E031 


MSG 


80D14050 


OCOA 


1 


4400 


1084 




BSI 


L 


CKTRY 


GO TO CK RETRY COUNT 




80D14060 


OCDC 


1 


4C00 


00A2 




BSC 


L 


RTNOE 


GO TO SEND ID ACKO AGAIN 


80D14070 










* 












80D14080 


OCDE 





63D5 




E02B 


LDX 


3 


-43 


PREPARE TO STORE E02B 


MSG 


80D14090 


OCDF 


1 


4400 


1084 




BSI 


L 


CKTRY 


GO TO CK RETRY COUNT 




80D14100 


0CE1 


1 


4C00 


0DE4 


* 


BSC 


L 


XTN12 


GO TO RCV RFT AGAIN 




80D14110 
80D14120 


0CE3 





63D4 




E02C 


LDX 


3 


-44 


PREPARE TO STORE E02C 


MSG 


80D14130 


0CE4 


1 


7400 


1516 




MDX 


L 


TEXT 


CK IF TEXT RECEIVED 




80D14140 


0066 





700C 




* 


MDX 




E032+1 


BR IF TEXT RECEIVED 




80D14150 
80014160 


0CE7 


1 


7400 


1518 




MDX 


L 


ABORT 






80D14170 


0CE9 





7009 




* 


MOX 




E032+1 


BR IF END CHAR IS ENQ 




80014180 
8001 41 90 


OCEA 





6306 




E02A 


LDX 


3 


-42 


PREPARE TO STORE E02A 


MSG 


80D14200 


OCEB 


1 


4400 


1084 




BSI 


L 


CKTRY 


GO TO CK RETRY COUNT 




80D14210 


OCED 





C1E8 






LD 


1 


IDSW-T 


CK ID MODE IND 




80D14220 


OCEE 


1 


4C18 


ODBO 


* 


BSC 


L 


RTNOF ,+- 


BR IF NOT ID MOOE 




80D14230 
80D14240 


OCFO 


1 


4C00 


0D05 


* 


BSC 


L 


RTN10 


GO TO RCV ID ENQ 




80D14250 
80D14260 


0CF2 





63CE 




E032 


LDX 


3 


-50 


PREPARE TO STORE E032 


MSG 


80D14270 


0CF3 





1010 






SLA 




16 






80D14280 


0CF4 





D1E8 






STO 


1 


IDSW-T 


RESET ID MODE 




80014290 



0CF5 


1 


4400 


1084 




BSI 


L 


CKTRY 


GO TO CK RETRY COUNT 


80D14300 


0CF7 


1 


4C00 


ODDA 


* 


BSC 


L 


RTN11 


GO TO XMIT NAK, RCV RFT 


80D14310 
80014320 


0CF9 





1010 




RT004 


SLA 




16 




80014330 


OCFA 





01E8 




* 


STO 


1 


IDSW-T 


RESET ID MODE 


80D1434C 
80014350 


OCFB 


1 


6600 


1600 




LDX 


L2 


RCVTB 


XR2=RECEIVE TABLE ADDRESS 


80D14360 


OCFO 





C201 






LD 


2 


1 




80D14370 


OCFE 


1 


F400 


1632 




EOR 


L 


RFT 


CK FOR RFT RECEIVED 


80014380 


ODOO 


1 


4C20 


0CF2 


* 


BSC 


L 


E032,Z 


BR IF NOT VALID RFT 


80D14390 
80D14400 


0D02 





C202 






LD 


2 


2 


FETCH X VALUE FROM RFT 


80D14410 


0D03 


1 


4400 


128C 




BSI 


L 


DECHX 


CONVERT TO HEX 


80D14420 


0D05 


1 


D400 


1AC1 


* 


STO 


L 


XHEX 


SAVE X VALUE 


80014430 
80D14440 


0D07 





C203 






LD 


2 


3 


FETCH Y VALUE FROM RFT 


80D14450 


0D08 


1 


4400 


128C 




BSI 


L 


DECHX 


CONVERT TO HEX 


80D14460 


OOOA 


1 


D400 


1AC2 




STO 


L 


YHEX 


SAVE Y VALUE 


80D14470 


ODOC 





D1F1 






STO 


1 


YCNT-T 


SET Y COUNT 


80 Dl 4480 


ODOD 





910C 






S 


1 


D99-T 




80D14490 


ODOE 


1 


4C30 


0CF2 


* 


BSC 


L 


E032,Z- 


BR IF Y INVALID - OVER 99 


80D14500 
80D14510 


0D10 





7204 






MDX 


2 


4 


GET RFT ADOR 


80D14520 


0D11 





C201 






LD 


2 


1 


FIELD IN Q REG 


80D14530 


0012 





1890 






SRT 




16 


AND N FIELD 


80D14540 


0D13 





C200 






LD 


2 





IN A REG 


80014550 


0014 





1004 






SLA 




4 




80D14560 


0015 





1804 






SRA 




4 


DELETE ZONE 


80D14570 


0D16 





1888 






SRT 




8 




80D14580 


0D17 


1 


4C18 


0D1F 


* 


BSC 


L 


RT005,+- 


BR IF N=0 


80D14590 
80014600 


0019 





9103 






S 


1 


D2-T 




80D14610 


0D1A 


1 


4C20 


0CF2 


* 


BSC 


L 


E032.Z 


BR IF N=OTHER THAN OR 2 


80014620 
80D14630 


0D1C 





7201 






MDX 


2 


1 




80D14640 


0D1D 





1090 






SLT 




16 


SHIFT ADDR FIELD TO A REG 


80D14650 


0D1E 





7003 




* 


MDX 




*+3 


BRANCH 


80014660 
80014670 


0D1F 


1 


7402 


16D0 


RT0D5 


MDX 


L 


RCVTB, 2 


CORRECT RCV CNT FOR N=0 


80D14680 


0D21 





C1BC 






LD 


1 


SYN-T 


FETCH SYN CHARACTERS 


80D14690 


0D22 





D1F5 




* 


STO 


1 


RMADR-T 


SAVE ADDR FIELD 


80D14700 
80D14710 


0D23 


1 


C400 


1AC1 




LD 


L 


XHEX 


CK X VALUE 


80D14720 


0D25 


1 


4C18 


0D8C 


* 


BSC 


L 


A025,+- 


BR IF X=00 


80D14730 
80014740 


0D27 





B10C 






CMP 


1 


D99-T 




80D14750 


0D28 





1000 






NOP 








80014760 


0D29 





7001 






MDX 




*+l 




80D14770 


0D2A 





706E 




* 


MDX 




X99 


BR IF X=99 


80D14780 
80D14790 


0D2B 


1 


C400 


0816 




LD 


L 


NET 


CK NETWORK TYPE 


80D14800 


0D20 





1801 






SRA 




1 




80014810 


0D2E 


1 


4C20 


0CF2 


* 


BSC 


L 


E032.Z 


BR IF MULTIPOINT 


80D14820 
80D14830 


0D30 


1 


C400 


1AC1 




LD 


L 


XHEX 


CK X VALUE 


80D14840 


0032 





1881 






SRT 




1 




80D14850 


0D33 


1 


4C20 


0D6D 


* 


BSC 


L 


RT0D6.Z 


BR IF X GREATER THAN 01 


80D14860 
80D14870 


0D35 


1 


C400 


16D0 




LD 


L 


RCVTB 


FETCH CHARS RCVD COUNT 


80D14880 


0D37 





9106 






S 


1 


D8-T 


SUBTRACT RFT LENGTH 


80D14890 


0D38 


1 


4C08 


0CF2 


* 


BSC 


L 


E032.+ 


BR IF SHORT COUNT 


80 Dl 49 00 
80D14910 


0D3A 





E912 






OR 


1 


HE 000- T 


ADD XMIT BITS 


80D14920 


0D3B 


1 


D400 


0F1D 




STO 


L 


TMCNT 


STORE IN XMIT CALL 


80014930 


0D3D 





6700 


FF6A 


* 


LDX 


L3 


-150 




80D14940 
80D14950 


0D3F 





C201 




RT0D8 


LD 


2 


1 


MOVE TEST 


80D14960 


0040 





1890 






SRT 




16 


MESSAGE 


80D14970 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



06NOV70 
431323 



PROG ID 


080D-0 


1 DATE 


14N0V69 


30JAN70 


20MAR70 


06N0V70 


PAGE 


n 


EC NO. 


431319 


431319A 


431320 


431323 



PROG ID 
PAGE 



0800-0 
11A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
TCA TRANSMIT/RECEIVE TEST 



PART NO. 2279480 
PAGE 12 



IiM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
TCA TRANSMIT/RECEIVE TEST 



PART NO. 2279480 
PAGE 12A 



0D41 





C200 






LD 


2 





TO TEST 


80D14980 


0D42 





1088 






SLT 




8 


MESSAGE 


80D14990 


0D43 


1 


0700 


16CF 




STO 


L3 


TM+150 


TRANSMIT 


80D15000 


0D45 





7201 






MOX 


2 


1 


TABLE 


80D15010 


0046 





7301 






MDX 


3 


1 




80015020 


0D47 





70F7 




* 


MDX 




RT0D8 




80D15030 
80D15040 


0048 


1 


C400 


1639 




LO 


L 


TM 


FETCH 1ST WORD OF TEST MSG 


80D15050 


004A 





F1B3 






EOR 


1 


DLE-T 




80D15060 


004B 





1808 






SRA 




8 




80D15070 


0D4C 


1 


4C20 


008C 


* 


BSC 


L 


A025.Z 


BR IF NOT OLE 


80D15080 
80D15090 


0D4E 


1 


C400 


0F1D 




LD 


L 


TMCNT 


INCREMENT 


80D15100 


0050 





8100 






A 


1 


Dl-T 


TEST MESSAGE 


80D15110 


0DS1 


1 


D400 


0F1D 




STO 


L 


TMCNT 


COUNT BY ONE 


80D15120 


0DS3 





1004 






SLA 




4 




80D15130 


0054 





1885 






SRT 




5 




80D15140 


0055 





0001 






STO 




*+l 




80D15150 


0056 





6700 


0000 




LDX 


L3 


*-* 


XR3=TEST MSG LENGTH 


80015160 


OD58 





1081 






SLT 




1 




80D15170 


0059 


1 


4C04 


0D63 


* 


BSC 


L 


RTODA tE 


BR IF ODD NO. OF CHARS 


80D15180 
80D15190 


0D5B 


1 


C700 


1637 




LD 


L3 


TM-2 


INSERT 


80D15200 


0D50 





1890 






SRT 




16 


OLE AHEAD 


80015210 


0D5E 





C1B3 






LD 


1 


DLE-T 


OF END CHARACTER 


80D15220 


005F 





1088 






SLT 




8 


IN TEST 


80D15230 


0060 


1 


0700 


1637 




STO 


L3 


TM-2 


MESSAGE 


80D15240 


0062 





7029 




* 


MDX 




A025 


BRANCH 


80D15250 
80D15260 


0063 


1 


C700 


1637 


RTODA 


LD 


L3 


TM-2 


INSERT 


80D15270 


0065 





1808 






RTE 




24 


DLE AHEAD 


80D15280 


0D66 


1 


D700 


1638 




STO 


L3 


TM-1 


OF END 


80D15290 


0068 





C1B3 






LD 


1 


OLE-T 


CHARACTER 


80D15300 


0069 





18C8 






RTE 




8 


IN TEST 


80D15310 


0D6A 


1 


D700 


1637 




STO 


L3 


TM-2 


MESSAGE 


80D15320 


006C 





701F 




* 


MDX 




A025 


BRANCH 


80D15330 
80D15340 


006D 


1 


6700 


1573 


RT0D6 


LDX 


L3 


TMVLD 


XR3=TEST MSG NO. TBL ADDR 


80D15350 
80D15360 


0D6F 





C300 






LD 


3 





FETCH TEST MSG NUMBER 


80D15370 


0070 


1 


4C18 


0CF2 


* 


BSC 


L 


E032t+- 


BR IF ENO OF TABLE 


80015380 
80D15390 


0072 


1 


F400 


1AC1 




EOR 


L 


XHEX 


COMPARE TO X VALUE BCVD 


80015400 


0074 


1 


4C18 


0D78 


* 


BSC 


L 


RT0D7,+- 


BR IF NUMBER FOUND 


80D15410 
80D15420 


0D76 





7301 






MDX 


3 


1 


POINT TO NEXT NUMBER 


80D15430 


0D77 





70F7 




* 


MDX 




RT006+2 


GO TO TRY NEXT NUMBER 


80D15440 
80D15450 


0078 


1 


C400 


1AC1 


RT0D7 


LD 


L 


XHEX 


FETCH X VALUE 


80D15460 


0D7A 


1 


4400 


10D1 


* 


BSI 


L 


GENTM 


GENERATE TEST MSG 


80D15470 
80D15480 


0D7C 


1 


C400 


163A 




LD 


L 


TM+1 


CK FOR 


80015490 


0D7E 





1890 






SRT 




16 


SYN CHARACTERS 


80D15500 


0D7F 


1 


C400 


1639 




LD 


L 


TM 


IN 2ND + 3RD CHAR 


80015510 


0D81 





18D8 






RTE 




24 


POSITIONS IN 


80D15520 


0D82 





F1BC 






EOR 


1 


SYN-T 


TEST MESSAGE 


80D15530 


0D83 


1 


4C20 


0D8C 


* 


BSC 


L 


A025.Z 


BR IF NO SYN SYN SEQUENCE 


80D15540 
80D15550 


0085 





C1F5 






LD 


1 


RMADR-T 


INSERT 


80D15560 


0086 





18C8 






RTE 




8 


UNIT SELECTION 


80D15570 


0D87 


1 


0400 


1639 




STO 


L 


TM 


ADDRESS 


80D15580 


0089 





1090 






SLT 




16 


IN TEST 


80D15590 


0D8A 


1 


D400 


163A 


* 


STO 


L 


TM+1 


MESSAGE 


80015600 

80015610 


0D8C 





6325 




A025 


LDX 


3 


37 


PREPARE TO STORE A025 MSG 


80015620 


0080 


1 


C400 


08 18 




LD 


L 


TRIES 




80D15630 


0D8F 





D1D6 




* 


STO 


1 


RETRY-T 


SET RETRY COUNT=N 


80015640 
80D15650 



OD90 1 C400 1AC1 
0D92 1 4C20 0E70 

0D94 C9AF 
0095 18D0 
0D> -3 D9AD 
00' 1 1 4C00 OF 55 

OD » 6325 

0D9A 1 7400 1AC2 
0D9C D1D2 

0D9D C9AF 
0D9E 18D0 
0D9F D9AD 

ODAO 1 4C00 1017 



* 
X99 

* 



LD 
BSC 

LDD 
RTE 
STD 
BSC 

LDX 

MDX 

STO 

LDD 
RTE 
STD 

BSC 



L XHEX 

L RTN15.Z 

1 ACKO-T 

16 
1 ACKS-T 
L RTN1B 

3 37 

L YHEXfO 
1 X99ID-T 

1 ACKO-T 

16 
1 ACKS-T 

L RTN1E 



CK X VALUE 

BR IF X NOT EQUAL 00 

INITIALIZE 
ACKS TO 
ACK1/ACK0 
GO TO RECEIVE TEST MSGS 

PREPARE TO STORE A025 MSG 

SK IF Y-COUNT=ZERO 
SET X=99 IND 

INITIALIZE 
ACKS TO 
ACK1/ACK0 

GO XMIT ACK1. RECEIVE EOT 



0DA2 





C1E3 




RTNOE 


LD 


1 


IDACK-T 


0DA3 


1 


D480 


1526 




STO 


I 


IDEND 


0DA5 





C1ED 






LD 


1 


I DC NT- T 


0DA6 





8100 






A 


1 


Dl-T 


0DA7 





0003 




* 


STO 




*+3 


0DA8 


1 


4400 


12F1 




BSI 


L 


XMRCV 


ODAA 





300E 






DC 




/300E 


ODAB 





0000 






DC 




*-* 


ODAC 


1 


0820 






DC 




POLID+1 


ODAD 





0190 




£ 


DC 




/0190 


ODAE 


1 


4C00 


OCBO 


* 
* 


BSC 


L 


RT0D2 



ODBO 1 4400 12F1 
0DB2 300F 
0DB3 0004 

0DB4 63CC 
0DB5 C1D0 
0DB6 1 4C20 OCEB 

0DB8 63CB 
0DB9 C1D4 
ODBA 1 4C20 OCEB 

ODBC 1 4400 10A2 

ODBE 1 7400 1518 
ODCO 700A 

0DC1 6327 
0DC2 1 C400 16D1 
0DC4 F1B9 
0DC5 1808 



* 
* 
*************************************************** 

* 

* XMIT ID ACKO, RECV REQUEST-FOR-TEST 

* 

*************************************************** 

* 

SET UP 
ID SEQUENCE 
AND COUNT 
TO TRANSMIT 
ID ACKO 



TRANSMIT 
ID ACKO 
RECEIVE 400 CHARACTERS 

GO TO ANALYZE OPERATION 



*************************************************** 

* 

* RECEIVE ENQ - RETRY 

* 

*************************************************** 

* 



RECEIVE 4 CHARACTERS 
PREPARE TO STORE E034 MSG 
BR IF DSW OR BCM ERROR 
PREPARE TO STORE E035 MSG 
BR IF ANYTHING RECEIVED 
CK FOR EOT OR DISC RCVD 

BR IF END CHAR IS ENQ 
PREPARE TO STORE A027 MSG 
CK FOR ENQ RECEIVED 



RTNOF 


BSI 


L 


XMRCV 




DC 




/300F 


♦ 


DC 




/0004 


E034 


LDX 


3 


-52 




LD 


1 


ANYER-T 


* 
E035 


BSC 


L 


E02A+ltZ 


LDX 


3 


-53 




LD 


1 


NORCV-T 




BSC 


L 


E02A+ltZ 


* 










BSI 


L 


ENDCK 


* 










MDX 


L 


ABORT 




MDX 




E036 


* 








A027 


LDX 


3 


39 




LD 


L 


RCVTB+1 




EOR 


1 


ENQ-T 




SRA 




8 



80D15660 

80015670 

80D15680 

80D15690 

80D15700 

80D15710 

80D15720 

80D15730 

80D15740 

80D15750 

80D15760 

80D15770 

80D15780 

80D15790 

80D15800 

80D15810 

80D15820 

80D15830 

80D15840 

80D15850 

80D15860 

80D15870 

80D15880 

80D15890 

80D15900 

80D15910 

80015920 

80D15930 

80015940 

80D15950 

80D15960 

80D15970 

80D15980 

80D15990 

80D16000 

80D16010 

80D16020 

80016030 

80D16040 

80D16050 

80D16060 

80016070 

80D16080 

80D16090 

80D16100 

80D16110 

80016120 

80D16130 

80D16140 

80D16150 

80016160 

80016170 

80D16180 

80D16190 

80D16200 

80D16210 

80D16220 

80D162 30 

80D16240 

80D162 50 

80D16260 

80D16270 

80D16280 

80D16290 

80D16300 

80D16310 

80D16320 

80D16330 
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0DC6 1 4C18 OCCC 

0DC8 1 7400 1520 
OOCA 7003 

ODCB 63CA 
ODCC 1 4C00 0CE8 



BSC L RTD2A.+- 



MDX 
MDX 



L IDSW 
A028 



BR IF ENQ RECEIVED 

CK ID MODE INDICATOR 
BR IF ID MODE 



ODCE 





6328 




ODCF 





C1DB 




ODDO 





F1B9 




0DD1 





1008 




0DD2 


1 


4C18 


0DA2 



0D04 70F6 



3 -54 
L E02A+1 

3 40 

1 ENDCH-T 
1 ENQ-T 
8 
L RTN0E,+- 

E036 



PREPARE TO STORE E036 MSG 
GO TO CHECK RETRY COUNT 

PREPARE TO STORE A028 MSG 

CK FOR ENQ RECEIVED 

BR IF ENQ RECEIVED 

BRANCH 



0DD5 1 4400 12F1 
0DD7 3010 
0DD8 0012 

0DD9 70DA 



E036 LDX 
BSC 

A028 LDX 
ID 
EOR 
SLA 
BSC 

MDX 

* 

*************************************************** 
* 

* RECEIVE ID ENQ - RETRY 

********************************************* ****** 

* 

RTN10 BSI L XMRCV 

DC /3010 

DC /0012 RECEIVE 18 CHARACTERS 
* 

MDX E034 BRANCH 

* 

* 

*************************************************** 

* 

* XMIT NAK, RECEIVE REQUEST-FOR-TEST 
* 

*************************************************** 
* 



TRANSMIT 

NAK 
RECEIVE 400 CHARACTERS 



ODDA 


1 


4400 


12F1 


RTN11 


BSI 


L 


XMRCV 


ODDC 





3011 






DC 




/3011 


ODDD 





E003 






DC 




/E003 


ODDE 


1 


14FF 






DC 




NAK 


ODDF 





0190 




* 


DC 




/0190 


ODEO 


1 


6C00 


1533 


STX 


L 


NKLST 


0DE2 


1 


4C00 


0CB2 


* 
* 


BSC 


L 


RT0D3 



0DE4 1 4400 12F1 
0DE6 3012 
0DE7 0190 

0DE8 1 4C00 0CB2 



ODEA 1 C400 0818 
ODEC D1D6 



SET NAK LAST XMIT IND 
GO TO ANALYZE OPERATION 



*************************************************** 
* 

* RECEIVE REQUEST-FOR-TEST- RETRY 
* 

*************************************************** 
* 

RTN12 BSI L XMRCV 

DC /3012 

DC /0190 RECEIVE 400 CHARACTERS 
* 

BSC L RT0D3 GO TO ANALYZE OPERATION 

* 

******************************************** ******* 

* 

* XMIT REQUEST-FOR-TEST, RECEIVE ACK1 
* 

*************************************************** 
* 

RTN13 LD L TRIES 

STO 1 RETRY-T SET RETRY COUNT=N 
* 



80D16340 
80D16350 
80D16360 
80D16370 
80D16380 
80D16390 
80D16400 
80D16410 
80016420 
80D16430 
80D16440 
80016450 
80D16460 
80D16470 
80D16480 
80D16490 
80D16500 
80016510 
80D16520 
80D16530 
80D16540 
80D16550 
80D16560 
80D16570 
80016580 
80D16590 
80D16600 
80D16610 
80D16620 
80D16630 
80D16640 
80D16650 
80D16660 
80D16670 
80D16680 
80D16690 
80D16700 
80D16710 
80D16720 
80016730 
80D16740 
80016750 
80016760 
80D16770 
80016780 
80016790 
80016800 
80016810 
80016820 
80016830 
80D16840 
80016850 
80D16860 
80016870 
80016880 
80016890 
80016900 
80D16910 
80016920 
80016930 
80016940 
80016950 
80D16960 
80016970 
80D16980 
80D16990 
80017000 
80D17010 



ODED 1 6C00 


152C 




STX 


L 


MXFER 


SET MESSAGE TRANSFER 


STATE 80D17020 


ODEF 1 6C00 


1535 




STX 


L 


HACKS 


SET WACK RECEIVED IMD 




80D17030 


0DF1 1 6C00 


1534 


* 


STX 


L 


TOSW 


SET TIMEOUT IND 




80D17040 
80D17050 


0DF3 1010 






SLA 




16 






80D17060 


0DF4 01E8 




* 


STO 


1 


IDSW-T 


RESET ID MODE 




80017070 
80017080 


0DF5 1 C400 


1634 




LD 


L 


YDEC 


FETCH Y VALUE 




80D17090 


0DF7 1 4400 


128C 




BSI 


L 


DECHX 


CONVERT TO HEX 




80D17100 


0DF9 1 0400 


1AC2 




STO 


L 


YHEX 


SAVE Y HEX 




80017110 


ODFB D1F1 




* 


STO 


1 


YCNT-T 


SET Y COUNT 




80D17120 
80017130 


ODFC C115 






LD 


1 


HE004-T 






80D17140 


ODFD D015 




* 


STO 




RFTCT+2 


SET RFT TEXT COUNT TO 


TWO 


80D17150 
80017160 


ODFE C1C0 






LD 


1 


STETX-T 






80017170 


ODFF 1 D400 


16 39 




STO 


L 


TM 


STO STX ETX IN TM TABLE 


80017180 






* 












80D17190 


0E01 1 C400 


1633 




LD 


L 


XDEC 


FETCH X VALUE 




80D17200 


0E03 1 4400 


128C 




BSI 


L 


DECHX 


CONVERT TO HEX 




80017210 


0E05 1 D400 


1AC1 




STO 


L 


XHEX 


SAVE X HEX 




80D17220 


0E07 9100 






S 


1 


Dl-T 






80017230 


0E08 1 4C20 


OEOE 




BSC 


L 


RT13A.Z 


BR IF TYPE 00 OR 02 RFT 


80D17240 






* 












80D17250 


OEOA C1EB 






LD 


1 


REQ-T 


FETCH TEST MSG NUMBER 




80D17260 


OEOB 1 4400 


10D1 




BSI 


L 


GENTM 


GENERATE TEST MESSAGE 




80017270 


OEOD D005 






STO 




RFTCT+2 


STORE IN XMIT/RCV CALL 


80017280 






* 












80D17290 


OEOE 1 4400 


12F1 


RT13A 


BSI 


L 


XMRCV 






80D17300 


0E10 3013 






DC 




/3013 






80D17310 


0E11 E009 




• RFTCT 


DC 




/E009 


TRANSMIT 




80D17320 


0E12 1 1632 






DC 




RFT 


REQUEST-FOR-TEST 




80D17330 


0E13 0000 






DC 




*-* 


TRANSMIT 




80017340 


0E14 1 1639 






DC 




TM 


TEST MESSAGE 




80D17350 


0E15 4014 




* 


DC 




/4014 


RECEIVE 20 CHARACTERS 




80D17360 
80017370 


0E16 63C8 




E038 


LDX 


3 


-56 


PREPARE TO STORE E038 


MSG 


80D17380 


0E17 1 7400 


1515 




MDX 


L 


ANYER 






80D17390 


0E19 704A 




* 


MDX 




E03C+1 


BR IF DSW OR BCW ERROR 


» 


80D17400 
80017410 


0E1A C1D4 






LD 


1 


NORCV-T 






80017420 


0E1B 1 4C18 


0E26 




BSC 


L 


RT13B.+- 


BR IF ANYTHING RECEIVED 


80017430 






* 












80D17440 


0E1D 63C7 




E039 


LDX 


3 


-57 


PREPARE TO STORE E039 


MSG 


80D17450 


0E1E C1D6 






LD 


1 


RETRY-T 






80D17460 


0E1F 1 F400 


0818 




EOR 


L 


TRIES 


CK RETRY CNT=N 




80017470 


0E21 1 4C20 


0E64 


* 


BSC 


L 


E03C+1.Z 


BR IF CNT NOT=N 




80017480 
80017490 


0E23 1010 






SLA 




16 






80017500 


0E24 D1EF 






STO 


1 


TOSW-T 


RESET TIMEOUT IND 




80017510 


0E25 7040 




* 


MDX 




E03C+3 


BRANCH 




80017520 
80D17530 


0E26 1 4400 


10A2 


RT13B 


BSI 


L 


ENDCK 


GO TO CK FOR EOT OR DISC 


80017540 






* 












80017550 


0E28 1 C400 


16D1 




LD 


L 


RCVTB+1 






80D17560 


0E2A F1B1 






EOR 


1 


WACK-T 


CK FOR WACK RECEIVED 




80D17570 


0E2B 1 4C20 


0E31 


* 


BSC 


L 


E03A.Z 


BR IF NOT WACK 




80D17580 
80D17590 


0E2D 632A 




A02A 


LDX 


3 


42 


PREPARE TO STORE A02A 


MSG 


80D17600 


0E2E 1010 






SLA 




16 






80D17610 


0E2F D1F0 






STO 


1 


WACKS-T 


RESET WACKS IND 




80D17620 


0E30 7033 




* 


MDX 




E03C+1 


BRANCH 




80D17630 
80D17640 


0E31 63C6 




E03A 


LDX 


3 


-58 


PREPARE TO STORE E03A 


MSG 


80017650 


0E32 C1DB 






LD 


1 


ENDCH-T 






80D17660 


0E33 F1AF 






EOR 


1 


ACKO-T 


CK FOR ACKO RECEIVED 




80017670 


0E34 1 4C20 


0E3E 


* 


BSC 


L 


E03B t Z 


BR IF NOT ACKO 




80017680 
80D17690 
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0E69 


1 


4400 


12F1 


0E6B 





3014 




0E6C 





E003 




0E6D 


1 


14FE 




0E6E 





4014 





0E6F 70A6 



0E70 1 4400 12F1 
0E72 3015 



CK TIMEOUT INDICATOR 

BR IF NO PREVEIOUS TIMEOUT 

SET TIMEOUT INDICATOR 
GO TO CHECK RETRY COUNT 
GO TO XMIT RFT AGAIN 

PREPARE TO STORE E03B MSG 

CK FOR NAK RECEIVED 

BR IF NOT NAK 

CK WACK RCVD INDICATOR 
BR IF NO PREVIOUS WACK 
BR IF PREVIOUS WACK 

PREPARE TO STORE A02B MSG 

CK FOR BVI RECEIVED 
BR IF RVI RECEIVED 



CK FOR ACK1 RECEIVED 
BR IF NOT ACK1 

PREPARE TO STORE A02C MSG 

SET RETRY COUNT=N 

SAVE TEST MSG NUMBER 
GENERATE TEST MSG 

RESET XMIT RFT REQUEST IND 

CK X VALUE 

BR IF X NOT EQUAL 00 

GO TO XMIT TEST MESSAGE 

PREPARE TO STORE E03C MSG 
SET TIMEOUT INDICATOR 
GO TO CHECK RETRY COUNT 
GO TO XMIT ENQ, RCV ACK1 

* 

. * 
*************************************************** 
* 

* XMIT ENQ, RECEIVE ACK1 - RETRY 
* 

*************************************************** 
* 

RTN14 BSI L XMRCV 

DC /3014 

DC /E003 

DC ENQ 

DC /4014 
* 

MDX E038 

* 

*************************************************** 
* 

* XMIT ACK1, RECEIVE EOT 

*************************************************** 
* 

RTN15 BSI L XMRCV 
DC /3015 



0E36 


1 


7400 


1534 




MDX 


L 


TOSW 


0E38 





702B 




g 


MDX 




E03C+1 


0E39 


1 


6CO0 


1534 


RT13C 


STX 


L 


TOSW 


0E3B 


1 


4400 


1084 




BSI 


L 


CKTRY 


0E3D 





70D0 




* 


MDX 




RT13A 


0E3E 





63C5 




E03B 


LDX 


3 


-59 


0E3F 





C10B 






LD 


1 


ENDCH-T 


0E40 





F1BA 






EOR 


1 


NAK-T 


0E41 





1008 






SLA 




8 


0E42 


1 


4C20 


0E48 


* 


BSC 


L 


A02B.Z 


0E44 


1 


7400 


1535 




MDX 


L 


WACKS 


0E46 





70F2 






MDX 




RT13C 


0E47 





701C 




* 
A02B 


MDX 




E03C+1 


0E48 





632B 




LDX 


3 


43 


0E49 


1 


C400 


16D1 




LD 


L 


RCVTB+1 


0E4B 





F1B2 






EOR 


1 


RVI-T 


0E4C 


1 


4C18 


0E53 


* 


BSC 


L 


A02C+1,+ 


0E4E 





F1B2 




EOR 


1 


RVI-T 


0E4F 





F1B0 






EOR 


1 


ACK1-T 


0E50 


1 


4C20 


0E63 


* 
A02C 


BSC 


L 


E03CZ 


0E52 





632C 




LDX 


3 


44 


0E53 


1 


C400 


0818 




LD 


L 


TRIES 


0E55 





D1D6 






STO 


1 


RETRY-T 


0E56 





C1EB 






LD 


1 


REQ-T 


0E57 


1 


D400 


1AC0 




STO 


L 


TMHEX 


0E59 


1 


4400 


10D1 




BSI 


L 


GENTM 


0E5B 





1010 






SLA 




16 


0E5C 





D1EB 






STO 


1 


REQ-T 


0E5D 


1 


C400 


1AC1 




LD 


L 


XHEX 


0E5F 


1 


4C20 


0E9F 


* 


BSC 


L 


RTN17,Z 


0E61 


1 


4C00 


0F14 


* 
E03C 


BSC 


L 


RTN1A 


0E63 





63C4 




LDX 


3 


-60 


0E64 


1 


6C00 


1534 




STX 


L 


TOSW 


0E66 


1 


4400 


1084 




BSI 


L 


CKTRY 


0E68 





7000 






MDX 




RTN14 



TRANSMIT 

ENQ 
RECEIVE 20 CHARACTERS 

BRANCH 



80D17700 
80D17710 
80D17720 
80D17730 
80D17740 
80D17750 
80bl7760 
80D17770 
80D17780 
80D17790 
80D17800 
80D17810 
80D17820 
80D17830 
80D17840 
80D17850 
80D17860 
80D17870 
80D17880 
80D17890 
80D17900 
80D17910 
80D17920 
80D17930 
80D17940 
80D17950 
80D17960 
80D17970 
80D17980 
80D17990 
80D18000 
80D18010 
80D18020 
80D18030 
60D18040 
80D18050 
80D18060 
80D18070 
80D18080 
80D18090 
80D18100 
80D18110 
80D18120 
80D18130 
80018140 
80D18150 
80D18160 
80D18170 
80D18180 
80D18190 
80D18200 
80D18210 
80D18220 
80D18230 
80D18240 
80D18250 
80D18260 
80D182 70 
80D18280 
80D18290 
80D18300 
80D18310 
80D18320 
80D18330 
80D18340 
80D18350 
80D18360 
80D18370 



0E73 E004 






DC 




/E004 


TRANSMIT 


80D18380 


0E74 1 14F5 






DC 




ACK1 


ACK1 


80D18390 


0E75 0004 




* 


DC 




/0004 


RECEIVE 4 CHARACTERS 


80D18400 
80018410 


0E76 63C2 




E03E 


LDX 


3 


-62 


PREPARE TO STORE E03E MSG 


80D18420 


0E77 1 7400 


1515 




MDX 


L 


ANYER 




80D18430 


0E79 701D 




* 


MDX 




E041+1 


BR IF DSW OR BCW ERROR 


80D18440 
80D18450 


0E7A 63C1 




E03F 


LDX 


3 


-63 


PREPARE TO STORE E03F MSG 


80D18460 


0E7B 1 7400 


1519 




MDX 


L 


NORCV 




80D18470 


0E7D 7019 




* 


MDX 




E041+1 


BR IF NOTHING RECEIVED 


80D18480 
80D18490 


0E7E 1 C400 


16D1 




LD 


L 


RCVTB+1 




80D18500 


0E80 F1B9 






EOR 


1 


ENQ-T 


CK FOR ENQ RECEIVED 


80D18510 


0E81 1808 






SRA 




8 




80D18520 


0E82 1 4C20 


0E88 


* 


BSC 


L 


A02E,Z 


BR IF NOT ENQ 


80D18530 
80D18540 


0E84 63C0 




E040 


LDX 


3 


-64 


PREPARE TO STORE E040 MSG 


80D18550 


0E85 1 4400 


1084 




BSI 


L 


CKTRY 


GO TO CK RETRY COUNTER 


80D18560 


0E87 70E8 




* 


MDX 




RTN15 


GO TO XMIT ACK1 AGAIN 


80D18570 
80018580 


0E88 632E 




A02E 


LDX 


3 


46 


PREPARE TO STORE A02E MSG 


80D18590 


0E89 1 C400 


16D1 




LD 


L 


RCVTB+1 




80D18600 


0E8B F1B8 






EOR 


1 


EOT-T 


CK FOR EOT RCVD 


80D18610 


0E8C 1808 






SRA 




8 




80D18620 


0E8D 1 4C20 


0E94 


* 


BSC 


L 


E041-2.Z 


BR IF NOT EOT 


80D18630 
80D18640 


0E8F 1 C400 


0818 




LD 


L 


TRIES 




80D18650 


0E91 D1D6 






STO 


1 


RETRY-T 


SET RETRY COUNT=N 


80D18660 


0E92 1 4C00 


OEDC 


* 


BSC 


L 


RTN19 


GO TO XMIT ENQ, RCV ACK 


80D18670 
80D18680 


0E94 1 4400 


10A2 


* 


BSI 


L 


ENDCK 


CK FOR EOT OR DISC RCVD 


80D18690 
80D18700 


0E96 63BF 




E041 


LDX 


3 


-65 


PREPARE TO STORE E041 MSG 


80D18710 


0E97 1 4400 


1084 




BSI 


L 


CKTRY 


GO TO CHECK RETRY COUNT 


80D18720 


0E99 7000 




* 
* 


MDX 




RTN16 


GO TO TRY RCV AGAIN 


80D18730 
80D18740 
80D18750 






*************************************************** 


80D18760 






* 










80D18770 






* 






RECEIVE EOT - RETRY 


80D18780 






* 










80D18790 






*************************************************** 


80D18800 






* 










80018810 


0E9A 1 4400 


12F1 


RTN16 


BSI 


L 


XMRCV 




80D18820 


0E9C 3016 






DC 




/3016 




80D18830 


0E9D 0004 




* 


DC 




/0004 


RECEIVE 4 CHARACTERS 


80D18840 
80D18850 


0E9E 70D7 




* 
* 


MDX 




E03E 


BRANCH 


80018860 
80D18870 
80D18880 






*************************************************** 


80D18890 






* 










80D18900 






* 






XMIT EOT, 


RECEIVE SELECT 


80D18910 






* 










80D18920 






*************************************************** 


■ 80D18930 






* 










80D18940 


0E9F 1 4400 


12F1 


RTN17 


' BSI 


L 


XMRCV 




80D18950 


0EA1 3017 






DC 




/3017 




80D18960 


0EA2 E003 






DC 




/E003 


TRANSMIT 


80D18970 


0EA3 1 14FD 






DC 




EOT 


EOT 


80D18980 


0EA4 OOOA 




* 


DC 




/OOOA 


RECEIVE 10 CHARACTERS 


80D18990 
80D19000 


0EA5 63BD 




E043 


LDX 


3 


i -67 


PREPARE TO STORE E043 MSG 


80D19010 


0EA6 1 7400 


1515 




MDX 


L 


ANYER 




80D19020 


0EA8 701C 




* 


MDX 




E045+1 


BR IF DSW OR BCW ERROR 


80D19030 
80D19040 


0EA9 63BC 




E044 


LDX 


2 


t -68 


PREPARE TO STORE E044 MSG 


80D19050 



DATE 
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PROG ID 


080D-0 


DATE 


14N0V69 


30JAN70 


20MAR70 


06N0V70 


PAGE 


14 


EC NO. 
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OEAA 1 7400 1519 
OEAC 7018 

OEAD 1 C400 0816 
OEAF 1801 
OEBO 1 4C08 OEBC 

0EB2 1 6700 0824 
0EB4 1 4400 0C66 
0EB6 7018 

0EB7 6331 
0EB8 C9AF 
0EB9 D9A0 
OEBA 1 4C00 OF55 

OEBC 1 4400 10A2 
OEBE 1 C400 1601 
OECO FIB9 
0EC1 1808 
0EC2 1 4C18 0EB7 

0EC4 63BB 
0EC5 1 74FF 151B 
0EC7 700F 

0EC8 1010 
0EC9 D1E5 

OECA 62FE 
OECB 1 4400 11E9 

OECD 1 4C00 0AE4 



OECF 





6330 




OEDO 


1 


C400 


16D1 


0ED2 





F1B8 




0ED3 





1808 




0ED4 


1 


4C20 


0EC4 



0ED6 7000 



0ED7 1 4400 12F1 
0ED9 3018 
OEOA OOOA 

0EDB 70C9 



OEDC 1 C400 08 IE 
OEDE 1 4C18 OEED 

OEEO C104 
0EE1 D1E0 
0EE2 1 4400 12F1 





MDX 


L 


NORCV 




MDX 




E045+1 


* 










LD 


L 


NET 




SRA 




1 




BSC 


L 


RT17A»+ 


* 










LDX 


L3 


SELID 




BSI 


L 


ADRCK 


* 


MDX 




A030 


A031 


LDX 


3 


49 




LDD 


1 


ACKO-T 




STD 


1 


ACKS-T 




BSC 


L 


RTN1B 


* 








RT17A 


BSI 


L 


ENDCK 




LD 


L 


RCVTB+1 




EOR 


1 


ENQ-T 




SRA 




8 




BSC 


L 


A031,+- 


* 








E045 


LDX 


3 


-69 




MDX 


L 


RETRY, -1 




MDX 




RTN18 




SLA 




16 


* 


STO 


1 


CMODE-T 


EE02 


LDX 


2 


-2 


♦ 


BSI 


L 


ENPRT 


•*■ 


BSC 


L 


RTN01 


A030 


LDX 


3 


48 




LD 


L 


RCVTB+1 




EOR 


1 


EOT-T 




SRA 




8 




BSC 


L 


E045.Z 



BR IF NOTHING RECEIVED 

CK NETWORK TYPE 

BR IF NOT MULTIPOINT 

X3=ADR OF SELECTION SEQ 
GO TO CK SELECTION ADR. 
BR IF NOT SELECT RCVD 

PREPARE TO STORE A031 MSG 
INITIALIZE ACKNOWLEDGE 

TO ACK0/ACK1 
GO TO XMIT ACK, RCV TM 

CK FOR EOT OR DISC RCVD 

CK FOR ENQ RCVD 

BR IF ENQ RECEIVED 

PREPARE TO STORE E045 MSG 

DECRE RETRY COUNT 

BR IF COUNT NOT YET ZERO 

RESET CONTROL MODE 

PREPARE END MSG EE02 
GO TO SET END MSG SW 

GO TO CLEAR CA 

PREPARE TO STORE A030 MSG 



BR IF NOT EOT RECEIVED 

* 

MDX RTN18 GO TO TRY RCV AGAIN 

* 

* 

*************************************************** 

* 

* RECEIVE SELECT - RETRY 

* 

*************************************************** 
* 

RTN18 BSI L XMRCV 
DC /3018 
DC /OOOA RECEIVE 10 CHARACTERS 



MDX 



E043 



BRANCH 



* 
* 
*************************************************** 

* XMIT ENQ, RECEIVE ACK0/ACK1 

****************************** ********************* 

* 

RTN19 LD L DLAY BR IF NO 

BSC L RT19B.+- DELAY BEFORE TRANSMIT 
* 

LD 1 D5-T 

STO 1 TEMP3-T 

RT19A BSI L XMRCV START CONTINUE TIMER 



80D1906Q 

80D19070 

80D19080 

80D19090 

80D19100 

80D19110 

80D19120 

80D19130 

80D19140 

80D19150 

80D19160 

80D19170 

80D19180 

80D19190 

80D19200 

80D19210 

80D19220 

80D19230 

80D19240 

80D19250 

80D19260 

80D19270 

80D19280 

80D19290 

80D19300 

80D19310 

80D19320 

80D19330 

80D19340 

80019350 

80D19360 

80D19370 

80D19380 

80D19390 

80D19400 

80D19410 

80D19420 

80D19430 

80D19440 

80D19450 

80D19460 

80D19470 

80D19480 

80D19490 

80D19500 

80D19510 

80D19520 

80D19530 

80D19540 

80D19550 

80D19560 

80D19570 

80D19580 

80D19590 

80D19600 

80D19610 

80D19620 

80D19630 

80D19640 

80D19650 

80019660 

80D19670 

80D19680 

80D19690 

80019700 

80D19710 

80D19720 

80019730 



0EE4 2019 
0EE5 0000 

0EE6 6341 
0EE7 1 7400 1515 
0EE9 63E8 

OEEA 1 74FF 1525 
OEEC 70F5 

OEEO 1 4400 12F1 
OEEF 3019 
OEFO E003 
0EF1 1 14FE 
0EF2 4004 

0EF3 1 7400 1ABF 
0EF5 702A 

0EF6 63B9 
0EF7 1 7400 1515 
0EF9 7017 

OEFA 63B8 
OEFB 1 7400 1519 
OEFD 7013 

OEFE 1 4400 10A2 

OFOO 6333 
0F01 1 C400 16D1 
0F03 F1B1 
0F04 1 4C18 OF 11 

0F06 F1B1 
0F07 F1AF 
0F08 1 4C18 OFOE 

OFOA F1AF 
OFOB F1B0 
OFOC 1 4C20 OF 10 

OFOE 6334 
OFOF 7004 

OF 10 6387 
0F11 1 4400 1084 
OF 13 70D9 



0F14 C124 
0F15 1 D400 1ABF 

0F17 1 C400 0818 
OF 19 D1D6 

0F1A 1 4400 12F1 
0F1C 301A 
OF ID 0000 
0F1E 1 1639 
0F1F 4014 



DC 
DC 

* 

LDX 
MDX 
LDX 

* 

MDX 
MDX 

* 

RT19B BSI 
DC 
DC 
DC 
DC 

* 

MDX 
MDX 

* 

E047 LDX 
MDX 
MDX 

* 

E048 LDX 
MDX 
MDX 

* 

BSI 

* 

A033 LDX 
LD 
EOR 
BSC 

* 

EOR 
EOR 
BSC 

EOR 
EOR 
BSC 



/2019 



3 65 
L ANYER 
3 -24 

L TEMP3.-1 
RT19A 

L XMRCV 
/3019 
/E003 
ENQ 
/4004 

L TMODE 
E04B 

3 -71 
L ANYER 
E049+1 

3 -72 
L NORCV 
E049+1 

L ENDCK 



10 SECOND DELAY 



PREPARE TO STORE A041 MSG 
SKIP IF NO DSW ERROR 
PREPARE TO STORE E018 MSG 



TRANSMIT 

ENQ 
RECEIVE 4 CHARACTERS 



BR IF TEST MOOE IS SET 
PREPARE TO STORE E047 MSG 
BR IF DSW OR BCW ERROR 
PREPARE TO STORE E048 MSG 
BR IF NOTHING RECEIVED 
CK FOR EOT OR DISC RCVD 
PREPARE TO STORE A033 MSG 



3 51 
L RCVTB+1 

1 WACK-T 
L E049+l,+- BR IF WACK RECEIVED 



1 WACK-T 

1 ACKO-T 

L A034,+- 

1 ACKO-T 

1 ACK1-T 

L E049.Z 



BR IF ACKO RECEIVED 



BR IF NOT ACK1 RECEIVED 



PREPARE TO STORE A034 MSG 
GO TO XMIT TEST MESSAGE 

PREPARE TO STORE E049 MSG 
GO TO CHECK RETRY COUNT 
GO TO XMIT ENO AGAIN 



A034 LDX 3 52 

MDX RTN1A 
* 
E049 LDX 3 -73 

BSI L CKTRY 

MDX RT19B 
* 
* 

*************************************************** 
* 

* XMIT TEST MESSAGE, RECEIVE ACK0/ACK1 

* 

*************************************************** 
* 



RTN1A 


LD 


1 


HD002- 


•T 


PREPARE D002 MSG 


D002 


STO 


L 


TMODE 




SET TEST MODE 


RT1A1 


LD 


L 


TRIES 






* 


STO 


1 


RETRY- 


T 


SET RETRY COUNT=N 




BSI 


L 


XMRCV 








DC 




/301A 






TMCNT 


DC 




*-* 




TRANSMIT 




DC 




TM 




TEST MESSAGE 


* 


DC 




/4014 




RECEIVE 20 CHARACTERS 



80019740 
80D19750 
80D19760 
80D19770 
80D19780 
80D19790 
80D19800 
80D19830 
80D19820 
80D19830 
80D19H40 
80D19850 
80D19860 
80D19870 
80D19880 
80D19890 
80D19900 
80D19910 
80D19920 
80D19930 
80D19940 
80D19950 
80D19960 
80D19970 
80D19980 
80D19990 
80020000 
80D20010 
80D20020 
80D20030 
80D20040 
80D20050 
80D20060 
80D20070 
80D20080 
80D20090 
80D20100 
80D20110 
80D20120 
80D20130 
80020140 
80D20150 
80D20160 
80D20170 
80D20180 
80D20190 
80D20200 
80D20210 
80D20220 
80D20230 
80D20240 
80D20250 
80020260 
80D20270 
80D20280 
80D20290 
80D20300 
80D20310 
80D20320 
80D20330 
80D20340 
80020350 
80D20360 
80D20370 
80020380 
80D20390 
80D20400 
80D20410 



DATE 
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PAGE 
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r 



PREPARE TO STORE E04B MSG 
BR IF DSW OR BCM ERROR 

BR IF ANYTHING RECEIVED 

PREPARE TO STORE E04C MSG 
INCREMENT TIMEOUT COUNT 
GO TO DECREMENT Y COUNT 

CK FOR EOT OR DISC RCVD 

CK FOR NAK RECEIVED 

BR IF NOT NAK RECEIVED 

PREPARE TO STORE E04D MSG 
IMCRE NAK RECEIVED COUNT 
GO TO DECREMENT Y COUNT 



BR IF ACKO RECEIVED 



BR IF ACK1 NOT RECEIVED 

PREPARE TO STORE A037 MSG 
IMCRE GOOD TEST MSG COUNT 
BR TO DECRE Y CNT 

PREPARE TO STORE A036 MSG 



PREPARE TO STORE E04E MSG 
IMCRE INVALID RESPONSE CNT 

DECREMENT Y COUNTER 

BR IF Y CNT NOT YET ZERO 

GO TO XMIT EOT 

PREPARE END MSG AA02 
GO TO SET END MSG SW 
BRANCH 



**************** *^* *********** ********************* 

* 

* XMIT ACKO/ACKli RECEIVE TEST MESSAGE 

* 

*************************************************** 

* 



0F20 
0F21 
0F23 




1 



63B5 
7400 
7025 


1515 


E04B 

* 

* 
E04C 


LDX 
MDX 
MDX 


3 

L 


-75 

ANYER 

E04E+1 


0F24 
OF 25 




1 


C1D4 
4C18 


0F2B 


CD 
BSC 


1 
L 


NORCV-T 
RTIA2.+- 


0F27 
0F28 
0F2A 




1 




63B4 
7401 
7020 


1AC5 


LDX 

MDX 
MDX 


3 

L 


-76 

TMTO»l 

RT1A4 


0F2B 


1 


4400 


10A2 


RT1A2 

E04D 
RT1A3 

* 


BSI 


L 


ENDCK 


OF 2D 
0F2E 
0F2F 
OF 30 






1 


C1DB 
F1BA 
1008 
4C20 


0F36 


LD 
EOR 
SLA 
BSC 


1 

1 

L 


ENDCH-T 
NAK-T 
8 
RT1A3.Z 


OF 32 
OF 33 
OF 35 




1 




63B3 
7401 
7015 


1AC4 


LDX 
MDX 
MDX 


3 

L 


-77 

TMBDtl 

RT1A4 


OF 36 
0F37 
OF 38 





1 


C1DB 
F1AF 
4C18 


0F3E 


LD 

EOR 

BSC 


1 
1 
L 


ENDCH-T 

ACKO-T 

A037,+- 


0F3A 
0F3B 
0F3C 





1 


F1AF 
F1B0 
4C20 


0F42 


A037 

* 
A036 


EOR 
EOR 
BSC 


1 
1 
L 


ACKO-T 
ACK1-T 
A036,Z 


0F3E 
0F3F 
0F41 




1 




6337 
7401 
7009 


1AC3 


LDX 
MDX 
MDX 


3 

L 


55 

TMGDf 1 
RT1A4 


0F42 
0F43 
0F45 
0F46 




1 



1 


6336 
C400 
F1B1 
4C18 


16D1 
0F11 


LDX 
LD 
EOR 
BSC 


3 
L 

1 
L 


54 

RCVTB+1 
WACK-T 
E049+1.+ 


0F48 
0F49 




1 


63B2 
7401 


1AC6 


E04E 

* 
RT1A4 


LDX 
MDX 


3 
L 


-78 
TMINVtl 


0F4B 

0F4D 


1 




74FF 
70C9 


1536 


MDX 
MDX 


L 


YCNT.-l 
RT1A1 


0F4E 


1 


4400 


1067 


* 


BSI 


L 


RTN21 


0F50 
0F51 
0F53 




1 
1 


6202 
4400 
4C00 


11E9 
OAFO 


AA02 

* 


LDX 
BSI 
BSC 


2 

L 
L 


2 

ENPRT 

RT01A 



OF 55 1 4400 12F1 
0F57 301B 
0F58 E004 
OF59 1 14F2 
0F5A 0190 

0F5B C1D2 
0F5C 1 4C18 OF 60 
0F5E C107 
0F5F D1F1 



RTN1B BSI 


L XMRCV 




DC 


/301B 




DC 


/E004 


TRANSMIT 


DC 


ACKS 


ACKO OR ACK1 


DC 


/0190 


RECEIVE 400 CHARACTERS 


RT1B1 LD 


1 X99ID-T 


BR IF X 


BSC 


L *+2,+- 


NOT 99 


LD 


1 D10-T 


RESET 


STO 


1 YCNT-T 


Y COUNT 



80D20420 
80D20430 
80D20440 
80D20450 
80D20460 
60D20470 
80D20480 
80D20490 
80D20500 
80D20510 
80020520 
80D20530 
80D20540 
80D20550 
80D20560 
80D20570 
80D20580 
80D20590 
80D20600 
80020610 
80D20620 
80D20630 
80D20640 
80D20650 
80D20660 
80D20670 
80D20680 
80D20690 
80D20700 
80D20710 
80D20720 
80D20730 
80D20740 
80D20750 
80D20760 
80D20770 
80D20780 
80D20790 
80D20800 
80D20810 
80D20820 
80D20830 
80D20840 
80D20850 
80D20860 
80D20870 
86D20880 
80D20890 
80D20900 
80D20910 
80D20920 
80D20930 
80D20940 
80D20950 
80D20960 
80D20970 
80D20980 
80020990 
80D21000 
80D21010 
80021020 
80D21030 
80D21040 
80D21050 
80D21060 
80D21070 
80D21080 
80D21090 



0F60 1 7400 1ABF 
0F62 7035 

0F63 I C400 16D1 
0F65 1 4400 14A2 

0F67 4828 
JF68 1090 
0F69 1001 
0F6A 180E 
0F6B 1 4C20 0F95 

0F6D 63B0 
0F6E 1 7400 1515 
0F70 7020 

0F71 63AF 
OF72 I 7400 1519 
0F74 701C 

0F75 1 7400 1AC1 
0F77 7005 

0F78 1 C400 0816 
0F7A 1801 
0F7B 1 4C20 0F89 

0F7D 1 4400 10A2 

0F7F 1 C400 16DI 

0F81 F1B9 

0F82 1808 

0F83 1 4C20 0F90 

0F85 63AE 

OF 86 1 4400 1084 

0F88 70CC 

0F89 63AC 
0F8A 1 C400 16D1 
0F8C F1B8 
0F8D 1808 
0F8E 1 4C18 0ED7 

0F90 63AD 
0F91 1 4400 1084 
0F93 1 4C00 100C 

0F95 C123 

OF 96 1 D400 1ABF 

0F98 C1D0 
0F99 1 4C18 OFAB 

0F9B 1 7400 1516 
0F9D 7008 

0F9E 1 7400 1518 
OFAO 7005 

0FA1 63AB 
0FA2 1 7401 1AC6 
0FA4 1 4C00 100C 

0FA6 63AA 
0FA7 1 7401 1AC4 
0FA9 1 4C00 OFFF 





MDX 


L TMODE 




MDX 


D001+3 


* 








LD 


L RCVTB+1 




BSI 


L DC ODE 


♦ 


BSC 


Z+ 




SLT 


16 




SLA 


1 




SRA 


14 




BSC 


L 0001,7 


* 






E050 


LDX 


3 -80 




MDX 


L ANYER 




MDX 


E053+1 


* 






E051 


LDX 


3 -81 




MDX 


L NORCV 




MDX 


E053+1 


* 








MDX 


L XHEX 




MDX 


RT1B2 


* 








LD 


L NET 




SRA 


1 




BSC 


L E054,Z 


* 






RT1B2 


BSI 


L ENDCK 


* 








LD 


L RCVTB+l 




EOR 


1 ENQ-T 




SRA 


8 




BSC 


L E053,Z 


* 






E052 


LDX 


3 -82 




BSI 


L CKTRY 




MDX 


RTN1B 


* 






E054 


LDX 


3 -84 




LD 


L RCVTB+1 




EOR 


1 EOT-T 




SRA 


8 




BSC 


L RTN18.+- 


* 






E053 


LDX 


3 -83 




BSI 


L CKTRY 




BSC 


L RTN1D 


* 






D001 


LD 


1 HD001-T 




STO 


L TMODE 


* 








LD 


1 ANYER-T 




BSC 


L E05A.+- 


* 








MDX 


L TEXT 




MDX 


E056 


* 








MDX 


L ABORT 




MDX 


E056 


* 






E055 


LDX 


3 -85 




MDX 


L TMINV.l 




BSC 


L RTN1D 


* 






E056 


LDX 


3 -86 




MDX 


L TMBD.l 




BSC 


L RTN1C 



CHECK TEST MODE 

BR IF TEST MODE IS SET 

FETCH 1ST TWO CHARS RCVD 
BUILD DECODE WORDS 

SKIP IF 1ST CHAR NOT OLE 
SHIFT IN 2ND CHAR DECODE 

CK FOR SOH OR STX 

BR IF SOH, STX, OR DLE STX 

PREPARE TO STORE E050 MSG 

BR IF DSW OR BCW ERROR 

PREPARE TO STORE E051 MSG 

BR IF NOTHING RECEIVED 

CK X VALUE 

BR IF X NOT EQUAL 00 

CK NETWORK TYPE 

BR IF MULTIPOINT 

CK FOR EOT OR DISC RCVD 

FETCH 1ST CHAR RCVD 
CK FOR ENQ 

BR IF NOT ENO RECEIVED 

PREPARE TO STORE E052 MSG 
GO TO CHECK RETRY COUNTER 
GO TO XMIT ACK, RCV TM 

PREPARE TO STORE E054 MSG 
FETCH 1ST CHAR RCVD 
CK FOR EOT 

BR IF EOT RECEIVED 

PREPARE TO STORE E053 MSG 
GO TO CK RETRY COUNTER 
GO TO RECEIVE TEST MSG 

PREPARE FOR D001 MSG 
SET TEST MODE 



BR IF NO DSW OR BCW ERRORS 



BR IF TEXT RECEIVED 



BR IF END CHAR IS ENQ 

PREPARE TO STORE E055 MSG 
INCRE INVALID TEST MSG CNT 
GO TO RCV NEXT TEST MSG 

PREPARE TO STORE E056 MSG 
INCRE BAD TEST MSG COUNT 
GO TO XMIT NAK, RCV TM 



80D21100 

80D21110 

80D21120 

80D21130 

80D21140 

80D21150 

80D21160 

80D21170 

80021180 

80D21190 

80D21200 

80D21210 

80D21220 

80D21230 

80021240 

80D21250 

80021260 

80D21270 

80D21280 

80D21290 

80D21300 

80D21310 

80D21320 

80D21330 

80D21340 

80D21350 

80D21360 

80D21370 

80D21380 

80D21390 

80D21400 

80D21410 

80D21420 

80D21430 

80 D2 1440 

80D21450 

80D21460 

80D21470 

80D21480 

80D21490 

80D21500 

80D21510 

80D21520 

80D21530 

80D21540 

80D21550 

80D21560 

80D21570 

80021580 

80D21590 

80D21600 

80D21610 

80D21620 

80D21630 

80D21640 

80D21650 

80D21660 

80D21670 

80D21680 

80D21690 

80021700 

80D21710 

80D21720 

80021730 

80D21740 

80D21750 

80D21760 

80D21770 
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* 










80D21780 


OFAB 





63A6 




E05A 


LOX 


3 


-90 


PREPARE TO STORE E05A MSG 


bOD21790 


OF AC 





C1D4 






ID 


1 


NORCV-T 




80021800 


OF AD 


1 


4C18 


0FB2 


* 


BSC 


L 


RT183.+- 


BR IF SOMETHING RECEIVED 


80D21810 
8QD21820 


OFAF 


1 


7401 


1AC5 




MDX 


L 


TMTOtl 


INCREMENT TIMEOUT COUNT 


80021830 


0FB1 





705A 




* 


MDX 




RTN1D 


GO TO RCV NEXT TEST MSG 


60D21840 
80D21850 


0FB2 


1 


4400 


10A2 


RT1B3 

* 


BSI 


L 


ENDCK 


CK FOR EOT OR DISC RCVD 


80D21860 
80D21870 


0FB4 


1 


C400 


16D1 




LD 


L 


RCVTB+1 




80D21880 


0FB6 





F1BE 






EOR 


1 


TTD-T 




80D21890 


0FB7 


1 


4C20 


OFBD 




BSC 


L 


*+4,Z 


BR IF NOT TTD 


80021900 


0FB9 





6342 






LOX 


3 


66 


PREPARE TO STORE A042 MSG 


80D21910 


OFBA 





D1D3 






STO 


1 


ABORT-T 


RESET ABORT IND 


80D21920 


OFBB 


1 


4C00 


OFFF 


* 


BSC 


L 


RTN1C 


GO XMIT NAK, RECEIVE TM 


80D21930 
80D21940 


OFBD 


1 


7400 


1516 




MDX 


L 


TEXT 




80D21950 


OFBF 





7006 




* 


MDX 




RT1B4 


BR IF TEXT RECEIVED 


80D21960 
80D21970 


OFCO 





63A7 




E059 


LOX 


3 


-89 


PREPARE TO STORE E059 MSG 


80D21980 


0FC1 


1 


7400 


1518 




MDX 


L 


ABORT 




80D21990 


0FC3 





70E3 




* 


MDX 




E056+1 


BR IF ENQ END 


80D22000 
80D22010 


0FC4 





63A8 




E058 


LOX 


3 


-88 


PREPARE TO STORE E058 MSG 


80D22020 


0FC5 





70DC 




* 


MDX 




E055+1 


BRANCH 


80D22030 
80D22040 


0FC6 





C102 




RT1B4 


LD 


1 


X99ID-T 


CHECK X VALUE 


80D22050 


0FC7 


1 


4C20 


OFCC 




BSC 


L 


*+3,Z 


BR IF X=99 


80D22060 


0FC9 


1 


7400 


1AC1 




MDX 


L 


XHEX 




80D22070 


OFCB 





700A 




* 


MDX 




RT1B5 


BR IF X NOT EQUAL 00 


80022080 
80022090 


OFCC 





6339 




A039 


LDX 


3 


57 


PREPARE TO STORE A039 MSG 


80D22100 


OFCD 


1 


7401 


1AC3 


* 


MDX 


L 


TNGD 1 1 


INCRE GOOD TEST MSG CNT 


80022110 
80022120 


OFCF 





C9AD 






LDD 


1 


ACKS-T 


REVERSE 


80D22130 


OFDO 





1800 






RTE 




16 


POSITIVE 


80D22140 


0FD1 





D9AD 






STD 


1 


ACKS-T 


ACKNOWLEDGEMENTS 


80D22150 


0FD2 


1 


74FF 


1536 




MDX 


L 


YCNTt-1 


DECRE Y COUNTER 


80D22160 


OF 04 





7080 






MDX 




RTN1B 


BR IF COUNT NOT YET ZERO 


80D22170 


0FD5 





7041 




* 


MDX 




RTN1E 


BR IF COUNT ZERO 


80D22180 
80D22190 


0FD6 


1 


C400 


0F1D 


RT1B5 


LD 


L 


TMCNT 


FETCH TEST MSG CHAR CNT 


80D22200 


0F08 





1004 






SLA 




4 


CALCULATE 


80D22210 


0FD9 





1805 






SRA 




5 


TABLE 


80D22220 


OFDA 





9103 






S 


1 


D2-T 


LENGTH 


80D22230 


OFOB 





D1CD 




* 


STO 


1 


CNTA-T 


SAVE WORD COUNT 


80D22240 
80D22250 


OFDC 


1 


6600 


1639 




LOX 


L2 


TM 


XR2=TEST MSG ADDRESS 


80D22260 


OFDE 


1 


6700 


1601 


* 


LDX 


L3 


RCVTB+1 


XR3=RECEIVE TABLE ADDR 


80022270 
80D22280 


OFEO 





C200 




RT1B6 


LD 


2 





FETCH WORD FROM TM TABLE 


80022290 


0FE1 





F300 






EOR 


3 





COMPARE WITH DATA RECVD 


80D22300 


0FE2 


1 


4C20 


OFEA 


* 


BSC 


L 


RT1B8.2 


BR IF NOT EQUAL 


80D22310 
80D22320 


0FE4 





7301 




RT1B7 


MDX 


3 


1 


INCRE RCV TBL ADDR 


80D22330 


0FE5 





7201 






MDX 


2 


1 


INCRE TEST MSG TBL ADDR 


80D22340 


0FE6 


1 


74FF 


1512 




MDX 


L 


CNTA.-l 


DECRE WORD COUNT 


80D22350 


0FE8 





70F7 






MDX 




RT1B6 


BR IF CNT NOT ZERO 


80D22360 


0FE9 





70E2 




* 


MDX 




A039 


BR IF CNT ZERO 


80D22370 
80D22380 


OFEA 





1888 




RT1B8 


SRT 




8 


CK LEFT CHARACTER 


80D22390 


OFEB 


1 


4C18 


0FF3 


* 


BSC 


L 


RT1B9.+- 


BR IF LEFT COMPARE OK 


80U22400 
80D22410 


OFED 





1008 






SLA 




8 




80D22420 


OFEE 





F300 






EOR 


3 







80D22430 


OFEF 





F1BC 






EOR 


1 


SYN-T 


CK IF LEFT CHAR IS SYN 


80D22440 


OFFO 





1808 






SRA 




8 




80022450 



0FF1 


1 


4C20 


OFFD 


* 


BSC 


L 


E057.Z 


BR IF NOT SYN 


80D22460 
80D22470 


0FF3 





1088 




RT1B9 


SLT 




8 


CK RIGHT CHAR 


80D22480 


0FF4 





1008 






SLA 




8 




80D22490 


0FF5 


1 


4C18 


0FE4 


* 


BSC 


L 


RT1B7.+- 


BR IF RT COMPARE OK 


80D22500 
80D22510 


0FF7 





1808 






SRA 




8 




80D22520 


0FF8 





F300 






EOR 


3 







80D22530 


0FF9 





F1BC 






EOR 


1 


SYN-T 


CK IF RT CHAR IS SYN 


80D22540 


OFFA 





1008 






SLA 




8 




80D2255O 


OFFB 


1 


4C18 


0FE5 


* 


BSC 


L 


RT1B7+1,+- 


- BR IF SYN 


80D22560 
80D22570 


OFFD 





63A9 




E057 


LDX 


3 


-87 


PREPARE TO STORE E057 MSG 


80D22580 


OFFE 





70A8 




* 

* 


MDX 




E056+1 


BRANCH 


80D22590 
80D22600 
80D22610 










*************************************************** 


80022620 










* 










80D22630 










* 






XMIT NAK, 


RECEIVE TEST MESSAGE 


80D22640 










* 










80D22650 










*************************************************** 


80D22660 










* 










80D22670 


OFFF 


1 


74FF 


1536 


RTN1C 


MDX 


L 


YCNT,-1 


DECREMENT Y COUNTER 


80D22680 


1001 





7002 




* 


MDX 




*+2 


BR IF COUNT NOT YET ZERO 


80D22690 
80D227C0 


1002 


1 


4C00 


105B 


* 


BSC 


L 


RTN1F 


GO TO XMIT NAK, RCV EOT 


80D22710 
80D22720 


1004 


1 


4400 


12F1 




BSI 


L 


XMRCV 




8OD22730 


1006 





30 1C 






DC 




/301C 




80D22740 


1007 





E003 






DC 




/E003 


TRANSMIT 


80D22750 


1008 


1 


14FF 






DC 




NAK 


NAK 


80D22760 


1009 





0190 




* 


DC 




/0190 


RECEIVE 400 CHARACTERS 


80D22770 
80D22780 


100 A 


1 


4C00 


0F5B 


* 
* 


BSC 


L 


RT1B1 


GO TO ANALYZE OPERATION 


80022790 
80D22800 
60D22813 










*************************************************** 


80D22820 










* 










80D22830 










* 






RECEIVE TEST MESSAGE 


80D22840 










* 










80D22850 










***************************************** ********** 


80D22860 










* 










80D22870 


100C 


1 


74FF 


1536 


RTN1D 


MDX 


L 


YCNT.-l 


DECREMENT Y COUNTER 


80D22880 


100E 





7002 




* 


MDX 




*+2 


BR IF COUNT NOT YET ZERO 


80D22890 
80D22900 


100F 


1 


4C00 


1062 


* 


BSC 


L 


RTN20 


GO TO RECEIVE EOT 


80D22910 
80022920 


1011 


1 


4400 


12F1 




BSI 


L 


XMRCV 




80D22930 


1013 





301D 






OC 




/301D 




80022940 


1014 





0190 




* 


DC 




/0190 


RECEIVE 400 CHARACTERS 


80D22950 
80D22960 


1015 


1 


4C00 


0F5B 


* 

* 


BSC 


L 


RT1B1 


GO TO ANALYZE OPERATION 


80D22970 
80D22960 
80D22990 










*************************************************** 


80023000 










* 










80D23010 










* 






XMIT ACK0/ACK1, RECFIVF END EOT/DISC 


80D23020 










* 










80D23030 










********** ********* ******************************** 


80023040 










* 










80023050 


1017 


1 


4400 


12F1 


RTN1E 


BSI 


L 


XMRCV 




80D23060 


1019 





301E 






DC 




/301E 




80D23070 


101A 





E004 






DC 




/E004 


TRANSMIT 


80 D2 30 80 


101B 


1 


14F2 






DC 




ACKS 


ACKO OR ACK1 


80023090 


101C 





4004 




* 


DC 




/4004 


RECEIVE 4 CHARACTERS 


80D23100 
80D23110 


101D 





63A4 




E05C 


LDX 


3 


-92 


PREPARE TO STORE E05C MSG 


80D23120 


101E 


1 


7400 


1515 




MDX 


L 


ANYER 


CK FOR DSW OR BCW ERROR 


80D23130 
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1020 





702B 




* 


MDX 




E05E+1 


BR IF ERROR OCCURED 




80D23140 
80D23150 


1021 





63A3 




E050 


LDX 


3 


-93 


PREPARE TO STORE E05D 


MSG 


80D23160 


1022 


1 


7400 


1519 




MDX 


L 


NORCV 


CK IF ANYTHING RECEIVED 


80D23170 


1024 





7027 






MDX 




E05E+1 


BR IF NOTHING RECEIVED 


80D2318O 










* 












80D23190 


1025 





1010 






SLA 




16 






80D23200 


1026 





D1E6 






STO 


1 


MASTR-T 


RESET MASTER STATUS 




80D23210 


1027 


1 


C400 


16D1 




LD 


L 


RCVTB+1 


FETCH 1ST CHAR RCVD 




80D23220 


1029 





F1B8 






EOR 


1 


EOT-T 


CK FOR EOT 




80D232 30 


102A 





1808 






SRA 




8 






80D23240 


102B 


1 


4C18 


1030 


* 


BSC 


L 


EOTRC, +- 


BR IF EOT RECEIVED 




80023250 
80D23260 


102D 


1 


C400 


0816 




LD 


L 


NET 


CK NETWORK TYPE 




80D23270 


102F 





9100 






S 


1 


Dl-T 






80D23280 


1030 


1 


4C20 


104B 




BSC 


L 


E05E.Z 


BR IF NOT SWITCHED LINE 


80D23290 










* 












80D23300 


1032 


1 


C400 


16D1 




LD 


L 


RCVTB+1 


FETCH 1ST TWO CHARS RCVD 


80D23310 


1034 





F1BF 






EOR 


1 


DISC-T 


CK FOR DISC 




80D23320 


1035 


1 


4C20 


104B 




BSC 


L 


E05E t Z 


BR IF NOT DISC RECEIVED 


80D23330 










* 












80D2 3340 


1037 





633C 




A03C 


LDX 


3 


60 


PREPARE TO STORE A03C 


MSG 


80D23350 


1038 





6201 




AA01 


LDX 


2 


1 


PREPARE END MSG AA01 




80D23360 


1039 


1 


4400 


11E9 




BSI 


L 


ENPRT 


GO TO SET ENO MESSAGE 


SW 


80023370 


1038 


1 


4C00 


0AE4 


* 


BSC 


L 


RTN01 


GO TO CLEAR CA 




80D23380 
80D23390 


1030 





6340 




EOTRC 
* 


LDX 


3 


64 


PREPARE TO STORE A040 


MSG 


80D234O0 
80D23410 


103E 





C1D2 






LD 


1 


X99ID-T 


BR IF X=99 




80D23420 


103F 


1 


4C18 


1043 


* 


BSC 


L 


A03B,+- 


IND NOT ON 




80D23430 
80023440 


1041 


1 


4C00 


0B3E 


* 


BSC 


L 


RTN02 


GO RECEIVE ENQUIRY 




80D23450 
80D23460 


1043 





633B 




A03B 


LDX 


3 


59 


PREPARE TO STORE A03B 


MSG 


80D23470 


1044 





6201 




AA01A 


LDX 


2 


1 


PREPARE ENO MSG AA01 




80D23480 


1045 


1 


4400 


11E9 




BSI 


L 


ENPRT 


GO TO SET END MESSAGE 


SW 


80D23490 


1047 


1 


6C00 


152A 




STX 


L 


CMODE 


SET CONTROL MODE 




80D23500 


1049 


1 


4C00 


OAFO 




BSC 


L 


RT01A 


RETURN TO INITIALIZATION 


80D23510 










* 












80D23520 


104B 





63A2 




E05E 


LDX 


3 


-94 


PREPARE TO STORE E05E 


MSG 


80D23530 


104C 


1 


C400 


0816 




LD 


L 


NET 


CHECK NETWORK TYPE 




80D23540 


104E 





9100 






S 


1 


Dl-T 






80023550 


104F 


1 


4C18 


1054 


* 


BSC 


L 


RTlEl, +- 


BR IF SWITCHED LINE 




80D23560 
80D23570 


1051 


1 


4400 


1067 




BSI 


L 


RTN21 


GO TO XMIT EOT 




80D23580 


1053 





7002 




* 


MDX 




EE03 


BRANCH 




80D23590 
80D23600 


1054 


1 


4400 


1078 


RTlEl 

* 


BSI 


L 


RTN22 


GO TO XMIT DISC 




80D23610 
80D23620 


1056 





62FD 




EE03 


LDX 


2 


-3 


PREPARE END MSG EE03 




80D23630 


1057 


1 


4400 


11E9 




BSI 


L 


ENPRT 


GO TO SET END MESSAGE 


SW 


80D23640 


1059 


1 


4C00 


0AE4 


* 
* 


BSC 


L 


RTN01 


GO TO CLEAR CA 




80023650 
80D23660 
80023670 










*************************************************** 


80D23680 










* 












80D23690 










* 






XMIT NAKt 


RECEIVE END EOT/DISC 




80D23700 


1 








* 












80D23710 










*************************************************** 


80D23720 










* 












80D23730 


105B 


1 


4400 


12F1 


RTN1F 


BSI 


L 


XMRCV 






80D23740 


105D 





301F 






DC 




/301F 






80D23750 


105E 





E003 






DC 




/E003 


TRANSMIT 




80D23760 


105F 


1 


14FF 






DC 




NAK 


NAK 




80D23770 


1060 





4004 




* 


DC 




/4004 


RECEIVE 4 CHARACTERS 




80D23780 
80D23790 


1061 





70BB 




* 


MDX 




E05C 


BRANCH 




80023800 
80023810 



1062 1 4400 12FI 

1064 3020 

1065 4004 

1066 70B6 



*************************************************** 

* 

* RECEIVE END EOT/DISC 

* 

*************************************************** 

* 

RTN20 BSI L XMRCV 

DC /3020 

DC /4004 RECEIVE 4 CHARACTERS 
* 

MDX E05C BRANCH 
* 
* 

*************************************************** 
* 

XMIT EOT 

>***** ************************* ******************* 

ENTRY 



TRANSMIT 
EOT 











* 

* 

***** 

* 

RTN21 






XMIT EOT 










***************** 


1067 





0000 




DC 




*-* 


1068 


1 


4400 


12F1 




BSI 


L 


XMRCV 


106A 





0821 






DC 




/0821 


106B 





2003 






DC 




/2003 


106C 


1 


14FD 




* 


DC 




EOT 


106D 





63A0 




E060 


LDX 


3 


-96 


106E 


1 


7400 


1515 




MDX 


L 


ANYER 


1070 





7001 




* 
A03E 


MDX 




*+l 


1071 





633E 




LDX 


3 


62 


1072 


1 


6C00 


152B 




STX 


L 


MASTR 


1074 


1 


6C00 


152A 




STX 


L 


CMODE 


1076 


1 


4C80 


1067 


* 
* 


BSC 


I 


RTN21 



1084 0000 

1085 1 74FF 151B 

1087 7001 

1088 7002 



PREPARE TO STORE E060 MSG 
CHECK FOR DSW ERROR 
BR IF ERROR OCCURED 

PREPARE TO STORE A03E MSG 
SET MASTER STATUS 
SET CONTROL MODE 
RETURN 



*************************************************** 

* 

* XMIT DISC 

* 

*************************************************** 

* 

ENTRY 



TRANSMIT 
DISCONNECT 

PREPARE TO STORE A03F MSG 
SKIP IF NO DSW ERROR 
PREPARE TO STORE E061 MSG 

RETURN 



*************************************************** 

* 

* CHECK RETRY COUNTER 

* 

*************************************************** 

* 

CKTRY DC *-* ENTRY 

* 

MDX L RETRY, -1 DECREMENT RETRY COUNTER 
MDX *+l BR IF NOT YET ZERO 
MDX *+2 BR IF ZERO 



1078 





0000 




RTN22 

* 


DC 




*-* 


1079 


1 


4400 


12F1 


BSI 


L 


XMRCV 


107B 





0822 






DC 




/0822 


107C 





2004 






DC 




/2004 


107D 


1 


1504 




$ 


DC 




DISC 


107E 





633F 




A03F 


LDX 


3 


63 


107F 


1 


7400 


1515 




MDX 


L 


ANYER 


1081 





639F 




E061 


LDX 


3 


-97 


1082 


1 


4C80 


1078 


* 
* 


BSC 


I 


RTN22 



80D23820 

80D23830 

80D23840 

80023850 

80D23860 

80D23870 

80D23880 

80D23890 

80 D2 39 00 

80D23910 

80D23920 

80D23930 

80023940 

80D23950 

80D23960 

80D23970 

80D23980 

80D23990 

80024000 

80D24010 

80D24020 

80D24030 

80D24040 

80D24050 

80D24060 

80D24070 

80D24080 

80D24090 

80D24100 

80D24110 

80D24120 

80D24130 

80024140 

80D24150 

80D24160 

80024170 

80D24180 

80D24190 

80D24200 

80D24210 

80D24220 

80024230 

80D24240 

80D24250 

80D24260 

80024270 

80D24280 

80024290 

80024300 

80D24310 

80D24320 

80D24330 

80024340 

80D24350 

80D24360 

80024370 

80D24380 

80024390 

80D24400 

80D24410 

60D24420 

80D24430 

80D24440 

80D24450 

80D24460 

80D24470 

80024480 

80D24490 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



06N0V70 
431323 



PROG ID 


080D-0 


DATE 


14N0V69 


30JAN70 


20MAR70 


06N0V70 
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EC NO. 
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431320 


431323 



PROG ID 
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0800-0 
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1089 1 4C80 1084 

108B 1810 
108C D1D2 

108D C1D5 

108E 1 4C20 109D 

1090 1 C400 0802 

1092 1005 

1093 1 4C10 109D 

1095 1 C400 0816 

1097 9100 

1098 1 4C20 109C 

109A 40DD 
109B 7001 

109C 40CA 

109D 62FC 
109E 1 4400 11E9 
10A0 1 4C00 0AE4 






10A2 0000 

10A3 1 C400 0816 
10A5 9100 
10A6 1 4C20 10B6 

10A8 1 C400 1601 
10AA F1BF 
10AB 1 4C20 10B6 

10AD 6304 
10AE 1 7400 152C 
10B0 63E6 

10B1 62FA 
10B2 1 4400 11E9 
10B4 1 4C00 0AE4 

10B6 1 C400 16D1 
10B8 F1B8 
10B9 1808 
10BA 1 4CA0 10A2 

10BC 1 6C00 152A 
10BE 1010 
10BF D1E6 
10C0 O D1E8 

10C1 C1D2 
10C2 1 4C18 10C8 
10C4 1810 
10C5 D1D2 
10C6 1 4C00 1043 

10C8 6303 



* 












80D24500 




BSC 


I 


CKTRY 


RETURN IF CNT NOT YET 


ZERO 


80D24510 


* 












80D24520 




SRA 




16 


RESET X=99 INDICATOR 




80D24530 




STO 


1 


X99ID-T 






80D24540 


* 












80D24550 




LD 


1 


RDYSW-T 


CK DATA SET READY IND 




80D24560 




BSC 


L 


EE04tZ 


BR IF DATA SET NOT READY 


80D24570 


* 












80D24580 




LD 


L 


SWO 


GET SW FNC INFO 




80D24590 




SLA 




5 


CHECK EOT BYPASS SW t 


FNC 


80D24600 




BSC 


L 


EE04,- 


BR IF ZERO OR PLUS 




80D24610 


* 












80D24620 




LD 


L 


NET 


CHECK NETWORK TYPE 




80D24630 




S 


1 


Dl-T 






80D24640 




BSC 


L 


CKTRltZ 


BR IF NOT SWITCHED LINE 


80D24650 


* 












80D24660 




BSI 




RTN22 


GO TO XMIT DISCONNECT 




80D24670 




MDX 




EE04 


BRANCH 




80D24680 


* 












80D24690 


CKTR1 


BSI 




RTN21 


GO TO XMIT EOT 




80D24700 


* 












80D24710 


EE04 


LDX 


2 


-4 


PREPARE END MSG EE04 




80D24720 




BSI 


L 


ENPRT 


GO TO SET END TEST IND 


80D24730 




BSC 


L 


RTN01 


GO TO CLEAR CA 




80D24740 


* 












80D24750 


* 












80D24760 


*************************************************** 


80D24770 


* 












80D24780 


* 






CHECK FOR 


EOT OR DISC RECEIVED 




80D24790 


* 












80D24800 


*************************************************** 


80D24810 


* 












80D24820 


ENDCK 


DC 




*-* 






80D24830 


* 












80D24840 




LD 


L 


NET 


CK NETWORK TYPE 




80D24850 




S 


1 


Dl-T 






80D24860 




BSC 


L 


ENCKI,/ 


BR IF NOT SWITCHED LINE 


80D24870 


* 












80D24880 




LD 


L 


RCVTB+1 






80D24890 




EOR 


1 


DISC-T 


CK FOR DISC RECEIVED 




80D24900 




BSC 


L 


ENCKI, Z 


BR IF NOT DISC 




80D24910 


* 












80D24920 


A004 


LDX 


3 


4 


PREPARE TO STORE A004 


MSG 


80D24930 




MDX 


L 


MXFER 


SKIP IF NOT MSG XFER STATE 


80D24940 


E01A 


LDX 


3 


-26 


PREPARE TO STORE E01A 


MSG 


80D24950 


* 












80D24960 


EE06 


LDX 


2 


-6 


PREPARE END MSG EE06 




80D24970 




BSI 


L 


ENPRT 


SET END-OF-TEST IND 




80D24980 




BSC 


L 


RTN01 


GO TO CLEAR CA 




80D24990 


* 












80D25000 


ENCKI 


LD 


L 


RCVTB+1 






80D25010 




EOR 


1 


EOT-T 


CK FOR EOT RECEIVED 




80D25020 




SRA 




8 






80D25030 


* 


BSC 


I 


ENDCK, Z 


RETURN IF NOT EOT 




80D25040 
80D25050 




STX 


L 


CMODE 


SET CONTROL MODE 




80D25060 




SLA 




16 






80D25070 




STO 


1 


MASTR-T 


RESET MASTER STATUS 




80D25080 




STO 


1 


IDSM-T 


RESET ID MODE 




80D25090 


* 












80D25100 




LD 


1 


X99ID-T 


BR IF X 




80D25110 




BSC 


L 


*+4,+- 


NOT 99 




80D25120 




SRA 




16 


CLEAR 




80D25130 




STO 


1 


X99ID-T 


X=99 INDICATOR 




80D25140 




BSC 


L 


A03B 


END TEST 




80D25150 


* 












80D25160 


A003 


LDX 


3 


3 


PREPARE TO STORE A003 


MSG 


80D25170 



10C9 


1 7400 


152C 




MDX 


L 


MXFER 


SKIP IF 1 


HOT MSG 


XFER STATE 


80D251C0 


10CB 


63E5 




EOIB 

* 


LDX 


3 


-27 


PREPARE 


TO STORE 


EOIB MSG 


80D25190 
80D25200 


10CC 


62FB 




EE05 


LDX 


2 


-5 


PREPARE 1 


END MSG 


EE05 


80D25210 


10CD 


1 4400 


11E9 




BSI 


L 


ENPRT 


SET END 1 


3F TEST 


IND 


80D25220 


10CF 


1 4C00 


OAFO 




BSC 


L 


RT01A 


GO TO INITIALIZE 


LINE 


80D25230 








* 














80D25240 








* 














80D25250 








*********** **************************************** 


80D25260 








* 














80D25270 








* 




GENERATE TEST MESSAGE 






80 02 5? 80 








* 














80D25290 








*************************************************** 


80D25300 








* 














80D25310 


10D1 


0000 




GENTM 

* 


DC 




*-* 








80D25320 
80D25330 


10D2 


1 6F00 


11C1 




STX 


L3 


GNTMX+3 


SAVE XR3 






80D25340 


10D4 


1 6600 


1639 




LDX 


L2 


TM 


XR2=P0INT TO TEST MSG TBL 


80D25350 


10D6 


1 6700 


10DB 




LDX 


L3 


*+3 


SET UP BRANCH TO 


PROPER 


80D25360 


10D8 


D001 






STO 




*+l 


TEST MESSAGE GENERATION 


80D25370 


10D9 


4F80 


0000 


* 


BSC 


13 


*-* 








80D25380 
80D25390 


10DB 


1 115F 






DC 




SPECL 


NOT USED 






80D25400 


10DC 


1 115F 






DC 




SPECL 


TEST MSG 


01 




80D25410 


10DD 


1 10F2 






DC 




TM2 


TEST MSG 


02 




80D25420 


10DE 


1 115F 






DC 




SPECL 


NOT USED 






80D25430 


10DF 


1 1102 






DC 




TM45 


TEST MSG 


04 




80 D2 5440 


10E0 


1 1102 






DC 




TM45 


TEST MSG 


05 




80D25450 


10E1 


1 1113 






DC 




TM614 


TEST MSG 


06 




80D25460 


10E2 


1 1118 






DC 




TM712 


TEST MSG 


07 




80D25470 


10E3 


1 HID 






DC 




TM813 


TEST MSG 


08 




80 02 54 80 


10E4 


1 115F 






DC 




SPECL 


NOT USED 






80D25490 


10E5 


1 115F 






DC 




SPECL 


NOT USED 






80D25500 


10E6 


1 115F 






DC 




SPECL 


NOT USED 






80D25510 


10E7 


1 1118 






DC 




TM712 


TEST MSG 


12 




80D25520 


10E8 


1 HID 






DC 




TM813 


TEST MSG 


13 




80D25530 


10E9 


1 1113 






DC 




TM614 


TEST MSG 


14 




80D25540 


10EA 


1 112B 






DC 




TM15 


TEST MSG 


15 




80D25550 


10EB 


1 113C 






DC 




TM16 


TEST MSG 


16 




80025560 


10EC 


1 115F 






DC 




SPECL 


NOT USED 






80D25570 


10ED 


1 115F 






DC 




SPECL 


NOT USED 






80D25580 


10EE 


1 1152 






DC 




TM19 


TEST MSG 


19 




80D25590 


10EF 


1 116A 






DC 




TM20 


TEST MSG 


20 




80D25600 


10F0 


1 11S3 






DC 




TM21 


TEST MSG 


21 




80D25610 


10F1 


1 HAi 




* 


DC 




TM22 


TEST MSG 


22 




80D25620 
80D25630 






















80D25640 








* 






GENERATE 


TEST MESSAGE 02 




80D25650 








* 














80D25660 


10F2 


C1C6 




TM2 


LD 


1 


DLSTX-T 


STORE DLE 


: STX IN 




80D25670 


10F3 


D200 






STO 


2 





TEST MESSAGE 




80D25680 








* 














80D25690 


10F4 


6700 


0080 


TWO 


LDX 


L3 


128 


STORE HEX 






80D25700 


10F6 


C100 






LD 


1 


Dl-T 


CHARACTERS 




80D25710 


10F7 


D201 




TWOA 


STO 


2 


1 


/OOOO THRU /OOFF 


80D25720 


10F8 


8116 






A 


1 


H0202-T 


IN TEST 




80D25730 


10F9 


7201 






MDX 


2 


1 


MESSAGE 




80 D2 5 740 


10FA 


73FF 






MDX 


3 


-1 








80D25750 


10FB 


70FB 




* 


MDX 




TWOA 








80D25760 
80D25770 


10FC 


C1C7 






LD 


1 


DLETX-T 


STORE DLE 


ETX 




80D25780 


10FD 


D201 




* 


STO 


2 


1 


IN TEST 


MESSAGE 




80D25790 
80D25800 


10FE 


6700 


0106 




LDX 


L3 


262 


XR3=TEST 


MESSAGE 


LENGTH 


80D25810 


1100 


1 4C00 


11BE 




BSC 


L 


GNTMX 


GO TO EXIT 




80D25820 








* 














80D25830 






















80D25840 








* 






GENERATE 


TEST MESSAGE 04 OR 


05 


80D25850 



DATE 
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OATE 
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20MAR70 
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* 












80D25860 


1102 C1C1 




TM45 


LD 


1 


STSYN-T 


STORE STX SYN 




80D25870 


1103 D200 




* 


STO 


2 





IN TEST MESSAGE 




80D25880 
80D25890 


1104 1 6780 


15A3 




LDX 


13 


TM4 


XR3=TEST MESSAGE LENGTH 


80D25900 


1106 6200 






LOX 


2 





MOVE TEST 




60D25910 


1107 1 C600 


15A4 


TM45A 


LD 


L2 


TM4+1 


MESSAGE FOUR 




80D25920 


1109 1 D600 


163A 




STO 


L2 


TM+1 


OR FIVE TO 




80 D2 59 30 


HOB 7201 






MDX 


2 


1 


TEST MESSAGE 




80025940 


HOC 73FE 






MDX 


3 


-2 


TABLE 




80D25950 


HOD 70F9 




* 


MDX 




TM45A 






80D25960 
80D25970 


HOE 1 6780 


15A3 




LDX 


13 


TM4 


XR3=TEST MESSAGE LENGTH 


80D25980 


1110 7304 






MDX 


3 


4 






80D25990 


1111 1 4C00 


11BE 


* 


BSC 


L 


GNTMX 


GO TO EXIT 




8 002 6000 
80D26010 
80D26020 




* 






GENERATE 


TEST MESSAGE 06 OR 14 




80D26030 






* 












80D26040 


1113 C1C1 




TM614 


LD 


1 


STSYN-T 


STORE STX SYN 




80D26050 


1114 D200 




* 


STO 


2 





IN TEST MESSAGE 




80D26060 
80D26070 


1115 C1C3 






LD 


1 


SYNAA-T 


STORE SYN A 




80D26080 


1116 D201 




* 


STO 


2 


1 


IN TEST MESSAGE 




80D26090 
80D26100 


1117 7009 




* 


MDX 




TMOVE 






80D26110 
80D26120 
80D26130 




* 






GENERATE 


TEST MESSAGE 07 OR 12 




80D26140 






* 












80D26150 


1118 C1C2 




TM712 


LD 


1 


STESC-T 


STORE STX ESC 




80D26160 


1119 D200 




* 


STO 


2 





IN TEST MESSAGE 




80D26170 
80026180 


111A C1C4 






LD 


1 


PRNTA-T 


STORE UNIT ADR AND A 


CHAR 


80D26190 


H1B D201 




* 


STO 


2 


1 


IN TEST MESSAGE 




80D26200 
80D26210 


111C 7004 




* 


MDX 




TMOVE 






80D26220 
80D26230 
80D26240 






* 






GENERATE 


TEST MESSAGE 08 OR 13 




80D262 50 






* 












80D26260 


HID C1C2 




TM813 


LD 


1 


STESC-T 


STORE STX ESC 




80D26270 


HIE 0200 




* 


STO 


2 





IN TEST MESSAGE 




80D26280 
80 D2 62 90 


111F C1C5 






LD 


1 


PNCHA-T 


STORE UNIT ADR AND A 


CHAR 


80D26300 


1120 0201 




* 


STO 


2 


1 


IN TEST MESSAGE 




80026310 
80D26320 


1121 63EE 




TMOVE 


LDX 


3 


-18 


MOVE TEST 




80D26330 


1122 1 C700 


1632 




LD 


L3 


TM12+18 


MESSAGE 6, 7, 8, 




80D26340 


1124 0202 






STO 


2 


2 


12, 13, OR 14 




80D26350 


1125 7201 






MDX 


2 


1 


TO TEST 




80D26360 


1126 7301 






MDX 


3 


1 


MESSAGE 




80D26370 


1127 70FA 




* 


MDX 




TMOVE+1 


AREA 




80D26380 
80D26390 


1128 632A 






LDX 


3 


42 


XR3=TEST MESSAGE LENGTH 


80D26400 


1129 1 4C00 


11BE 


* 


BSC 


L 


GNTMX 


GO TO EXIT 




80D26410 

80D26420 

- 80D26430 




* 






GENERATE 


TEST MESSAGE 15 




UV \J^ V~ i^V/ 

80D26440 






* 












80D26450 


112B C1C1 




TM15 


LD 


1 


STSYN-T 


STORE STX SYN 




80D26460 


112C 0200 




* 


STO 


2 





IN TEST MESSAGE 




80D26470 
80D26480 


1120 632fc 






LDX 


3 


38 


STORE 74 ZEROS AND 4 


SYNS 


80D26490 


112E 1 4400 


11C9 


* 


BSI 


L 


ZEROS 


IN TEST MESSAGE 




80D26500 
80026510 


1130 1008 






SLA 




8 


STORE SYN 00 




80D26520 


1131 1 D400 


163A 




STO 


L 


TM+1 


IN TEST MESSAGE 




80D26530 



1133 1808 

1134 D200 




SRA 
STO 


8 
2 

16 
1 ETX-T 

8 


STORE 00 SYN 
IN TEST MESSAGE 


80D26540 
80D26550 
80D26560 


1135 18D0 

1136 C1B7 

1137 18C8 




RTE 

LD 

RTE 


STORE SYN ETX 
IN TEST MESSAGE 


80D26570 
80D26580 
80D26590 


1138 D203 


£ 


STO 


2 3 




80D26600 


1139 6356 
113A 1 4C00 11BE 


* 


LOX 
BSC 


3 86 
L GNTMX 


XR3=TEST MSG LENGTH 
GO TO EXIT 


80D26610 
80D26620 
80D26630 
80D26640 




* 




GENERATE 


TEST MESSAGE 16 


80D26650 




* 








80026660 


11 3C C1C1 


TM16 


LD 


1 STSYN-T 


STORE STX SYN 


80D26670 


113D D200 


* 


STO 


2 


IN TEST MESSAGE 


80026680 
80D26690 


113E C121 
113F D201 




LD 
STO 


1 H32AA-T 

2 1 


STORE SYN AA 
IN TEST MSG 


80D26700 
80D26710 


1140 6313 




LDX 


3 19 


STORE 38 


80D26720 


1141 C120 




LD 


1 HAAAA-T 


/AA CHARACTERS 


80D26730 


1142 D202 


TM16A 


STO 


2 2 


IN TEST 


80D26740 


1143 7201 

1144 73FF 

1145 70FC 


* 


MDX 
MDX 
MDX 


2 1 

3 -1 
TM16A 


MESSAGE 


80026750 
80D26760 
80D26770 
80026780 


1146 CHF 




LD 


1 HAA55-T 


STORE /AA /55 


80D26790 


1147 D202 


* 


STO 


2 2 


IN TEST MESSAGE 


80D26800 
80D26810 


1148 6313 




LDX 


3 19 


STORE 38 


80D26820 


1149 CHE 




LD 


1 H5555-T 


/55 CHARACTERS 


80D26830 


114A D203 


TM16B 


STO 


2 3 


IN TEST 


80D26840 


114B 7201 
114C 73FF 




MDX 
MDX 


2 1 

3 -1 


MESSAGE 


80D26850 
80D26860 


114D 70FC 


* 


MDX 


TM16B 




80D26870 
80026880 


114E C11D 




LD 


1 H5503-T 


STORE /55 ETX 


80D26890 


114F D203 


* 


STO 


2 3 


IN TEST MSG 


80026900 
80D26910 


1150 6356 




LDX 


3 86 


XR3=TEST MSG LENGTH 


80D26920 


1151 706C 


* 


MDX 


GNTMX 




80D26930 

80D26940 

- 80D26950 




* 




GENERATE 


TEST MESSAGE 19 


80D26960 




* 








80D26970 


1152 C1C6 


TM19 


LD 


1 DLSTX-T 


STORE OLE STX 


80D26980 


1153 D200 


* 


STO 


2 


IN TEST MESSAGE 


80026990 
80027000 


1154 6700 008C 




LDX 


L3 140 


STORE 280 ZEROS AND 4 SYNS 80D27010 


1156 4072 


* 


BSI 


ZEROS 


IN TEST MESSAGE 


80D270Z0 
80027030 


1157 D203 




STO 


2 3 


STORE 6 


80D27040 


1158 D204 




STO 


2 4 


SYNS IN 


80D27050 


1159 D205 




STO 


2 5 


TEST MSG 


80D27060 


115A C1C7 




LD 


1 DLETX-T 


STORE OLE ETX 


80D27070 


115B D206 


* 


STO 


2 6 


IN TEST MSG 


80D27080 
80D27090 


115C 6700 0128 




LDX 


L3 296 


XR3=TEST MSG LENGTH 


80D27100 


115E 705F 


* 


MDX 


GNTMX 




80D27110 
80D27120 


115F 63C4 


SPECL LDX 


3 -60 


MOVE TEST 


80D27130 


1160 1 C700 0866 




LD 


L3 TM01+61 


MESSAGE 01 


80D27140 


1162 D200 




STO 


2 


TO TEST 


80D27150 


1163 7201 




MDX 


2 1 


MESSAGE 


80D27160 


1164 7301 




MDX 


3 1 


AREA 


80D27170 


1165 70FA 


* 


MDX 


SPECL+1 




80D27180 
80D27190 


1166 1 6780 0829 
1168 7302 




LDX 
MDX 


13 TM01 
3 2 


XR3=TEST MESSAGE LENGTH 


80027200 
80D27210 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



06NOV70 
431323 



PROG ID 


080D-0 


1 DATE 


14N0V69 


30JAN70 


20MAR70 


06N0V70 


PAGE 


20 


EC NO. 


431319 


431319A 


431320 


431323 



PROG ID 
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20A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
TCA TRANSMIT/RECEIVE TEST 



1169 7054 



MOX 



GNTMX 











* 
* 
TM20 






GENERATE 


TEST MESSAGE 20 


116A 





C1C6 




LD 


1 


DLSTX-T 


STORE OLE STX IN 


116B 





D200 




* 


STO 


2 





TEST MESSAGE 


116C 





63F8 




LDX 


3 


-8 


MOVE U THRU Z AND 


116D 


1 


C700 


1632 


TM20A 


LD 


L3 


TM12+18 


THRU 9 TO 


116F 





1890 






SRT 




16 


TEST MESSAGE 


1170 


1 


C700 


1631 




LD 


L3 


TM12+17 




1172 





1088 






SLT 




8 




1173 





D201 






STO 


2 


1 




1174 





7201 






MDX 


2 


1 




1175 





7301 






MDX 


3 


1 




1176 





70F6 




* 


MDX 




TM20A 




1177 





6320 




LDX 


3 


32 


STORE HEX 00 THRU 3F 


1178 





C100 






LD 


1 


Dl-T 


IN TEST MESSAGE 


1179 





D201 




TM20B 


STO 


2 


1 




117A 





8116 






A 


1 


H0202-T 




117B 





7201 






MDX 


2 


1 




117C 





73FF 






MDX 


3 


-1 




117D 





70FB 




* 


MOX 




TM20B 




'117E 





C1C7 




LO 


1 


DLETX-T 


STORE OLE ETX 


117F 





0201 




* 


STO 


2 


1 


IN TEST MESSAGE 


1180 





6700 


0056 


LDX 


L3 


86 


XR3=TEST MESSAGE LENGTH 


1182 





703B 




* 


MDX 




GNTMX 






* 
* 
TM21 






GENERATE 


TEST MESSAGE 21 


1183 





C1C6 




LD 


1 


OLSTX-T 


STORE DLE STX IN 


1184 





D200 




* 


STO 


2 





TEST MESSAGE 


1185 





6700 


C1C2 


LDX 


L3 


/C1C2 


STORE A THRU Z AND 


1187 


1 


6F00 


163A 




STX 


L3 


TM+1 


THRU 9 IN 


1189 





7201 






MDX 


2 


1 


TEST MESSAGE 


118A 





63EF 






LDX 


3 


-17 




118B 


1 


C700 


1632 


TM21A 


LD 


L3 


TM12+18 




118D 





1890 






SRT 




16 




118E 


1 


C700 


1631 




LD 


L3 


TM12+17 




1190 





1088 






SLT 




8 




1191 





0201 






STO 


2 


1 




1192 





7201 






MDX 


2 


1 




1193 





7301 






MOX 


3 


1 




1194 





70F6 




* 


MOX 




TM21A 




1195 





632A 




LDX 


3 


42 


STORE HEX 00 THRU 53 


1196 





C100 






LD 


1 


Dl-T 


IN TEST MESSAGE 


1197 





D201 




TM21B 


STO 


2 


1 




1198 





8116 






A 


1 


H0202-T 




1199 





7201 






MOX 


2 


1 




119A 





73FF 






MDX 


3 


-1 




119B 





70FB 




* 


MDX 




TM21B 




119C 





C1C7 




LD 


1 


DLETX-T 


STORE DLE ETX IN 


119D 





0201 




* 


STO 


2 


1 


TEST MESSAGE 


119E 





6700 


007E 


LDX 


L3 


126 


XR3=TEST MESSAGE LENGTH 


11A0 





7010 




* 


MDX 




GNTMX 





GENERATE TEST MESSAGE 22 



PART NO. 2279480 
PAGE 21 



80D27220 
80027230 
80D27240 
800272 50 
80027260 
800272 70 
80027280 
80027290 
80D27300 
80027310 
80D27320 
80D27330 
80D27340 
80D27350 
80D27360 
80027370 
80D27380 
80027390 
80027400 
80D27410 
80D27420 
80D27430 
80D27440 
80D27450 
80D27460 
80D27470 
80D27480 
80D27490 
80D27500 
80027510 
80027520 
80027530 
80D27540 
80027550 
80027560 
80027570 
80027580 
80D27590 
80D27600 
80027610 
80D27620 
80027630 
80027640 
80D27650 
80D27660 
80027670 
80027680 
80D27690 
80027700 
80D27710 
80D27720 
80D27730 
80027740 
80D27750 
8002 7760 
80D27770 
80D27780 
80027790 
80D27800 
80D27810 
80D27820 
80D27830 
80D27840 
80D27850 
80D27860 
80D27870 
80D27880 
80D27890 
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11A1 C1C6 




TM22 


LO 


1 


DLSTX-T 


STORE DLE STX 


80027900 


11A2 D200 




* 


STO 


2 





IN TEST MESSAGE 


80027910 
80027920 


11A3 6700 


C1C2 




LDX 


L3 


/C1C2 


STORE A THRU Z AND 


80D27930 


11A5 1 6F00 


163A 




STX 


L3 


TM+1 


THRU 9 IN 


80D27940 


11A7 7201 






MDX 


2 


1 


TEST MESSAGE 


80027950 


11A8 63EF 






LDX 


3 


-17 




80027960 


11A9 1 C700 


1632 


TM22A 


LD 


L3 


TM12+18 




80D27970 


11AB 1890 






SRT 




16 




80D27980 


11AC 1 C700 


1631 




LD 


L3 


TM12+17 




80027990 


11AE 1088 






SLT 




8 




80D28000 


11AF D201 






STO 


2 


1 




80D28010 


HBO 7201 






MDX 


2 


1 




80D28020 


11B1 7301 






MDX 


3 


1 




80028030 


11B2 70F6 




* 


MDX 




TM22A 




80D28040 
80D28050 


11B3 6336 






LDX 


3 


54 


STORE HEX 00 THRU 6B 


80D28060 


11B4 C100 






LD 


1 


Dl-T 


IN TEST MESSAGE 


80D28070 


11B5 D201 




TM22B 


STO 


2 


1 




80D28080 


11B6 8116 






A 


1 


H0202-T 




80028090 


11B7 7201 






MDX 


2 


1 




80028100 


11B8 73FF 






MOX 


3 


-1 




80028110 


11B9 70FB 




* 


MDX 




TM22B 




80D28120 
80028130 


11BA C1C7 






LD 


1 


DLETX-T 


STORE DLE ETX IN 


80028140 


11BB D201 




* 


STO 


2 


1 


TEST MESSAGE 


80D28150 
80D28160 


11BC 6700 


0096 


* 


LDX 


L3 


150 


XR3=TEST MESSAGE LENGTH 


80D28170 
80D28180 


11BE 1 6F00 


0F1D 


GNTMX 


STX 


L3 


TMCNT 


SAVE MSG LENGTH 


80D28190 


11C0 6700 


0000 




LDX 


L3 


*-* 


RESTORE XR3 


80028200 


11C2 1 C400 


0F1D 




LD 


L 


TMCNT 




80D28210 


11C4 E912 






OR 


1 


HEOOO-T 


SET BYTE COUNT XMIT BITS 


80028220 


11C5 1 D400 


0F10 




STO 


L 


TMCNT 


STORE IN XMIT TM CALL 


80D28230 


11C7 1 .4C80 


10D1 


* 


BSC 


I 


GENTM 


RETURN 


80D28240 
80D28250 
80D28260 
80D28270 






* 






STORE ZEROS IN TEST MESSAGES 






* 










80D28280 


11C9 0000 




ZEROS 
* 


DC 




*-* 


ENTRY 


80D28290 
80D28300 


11CA 1010 






SLA 




16 




80D28310 


11CB D201 




ZEROA 


STO 


2 


1 


STORE 


80D28320 


11CC 7201 






MOX 


2 


1 


ZEROS IN 


80D28330 


11CD 73FF 






MOX 


3 


-1 


TEST MESSAGE 


80D28340 


11CE 70FC 




* 


MDX 




ZEROA 


TABLE 


80D28350 
80D28360 


11CF C1BC 






LD 


1 


SYN-T 


STORE FOUR 


80D28370 


1100 D201 






STO 


2 


1 


SYNS IN TEST 


80D28380 


11D1 D202 




* 


STO 


2 


2 


MESSAGE 


80D28390 
80D28400 


1102 1 4C80 


11C9 


* 

* 


BSC 


I 


ZEROS 


RETURN 


80D28410 
80D28420 
80D28430 






a************************************************** 


80D28440 






* 










80D28450 






* 






SET UP START OF Ti:ST MESSAGE 


80028460 






* 










80D28470 






#****#****##***#***♦************************«#***#* 


80028480 






* 










80D28490 


11D4 0000 




STPRT 

* 


DC 







ENTRY 


80D28500 
80D28510 


11D5 C1F4 






LD 


1 


ENDSW-T 


CHECK MESSAGE 


80D28520 


1106 E9FF 






OR 


1 


STMSG-T 


PRINT INDICATORS 


80D28530 


1107 1 4CA0 


11D4 


* 


BSC 


I 


STPRT, Z 


RETURN IF MSG ROY TO PRINT 


80028540 
80D28550 


11D9 1 C400 


0802 




LD 


L 


SWO 


CK PRINT OPTIONS 


80028560 


11DB 1007 






SLA 




7 




80028570 



DATE 
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DATE 


14N0V69 
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EC NO. 
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11DC 1 4C28 11E3 

11DE 1 6E00 1523 
11E0 C1DE 
11E1 E90D 
11E2 D1FF 

11E3 1 C400 0818 
11E5 D1D6 
11E6 D1F3 
11E7 1 4C80 11D4 



¥ 


BSC 


L 


STPRX, Z+ 


♦ 


STX 

LD 
OR 
STO 


L2 
1 
1 
1 


TEMPI 
TEMPl-T 
HAAAO-T 
STMSG-T 


STPRX 


LD 

STO 

STO 


L 
1 
1 


TRIES 

RETRY-T 

STSW-T 



BSC I STPRT 



BR IF BYPASS START MSGS 
STORE MSG NUMBER 

SET START MSG PRINT IND 

SET RETRY 

COUNT EQUAL TO N 
SET START OF TEST IND 
RETURN 



*************************************************** 
* 

* SET UP END OF TEST MESSAGE 

* 

************************** ************************* 
* 



11E9 





0000 




ENPRT 

* 

* 


DC 




*-* 


ENTRY 


UFA 
11EB 



1 


C1C9 

4CA0 


11E9 


LD 
BSC 


1 

I 


PGBSY-T 
ENPRT, Z 


CK PROGRAM BUSY IND 
RETURN IF PROG BUSY 


11ED 
11EE 




1 


C1E7 
4C20 


11F5 


* 


LD 
BSC 


1 

L 


MXFER-T 
EE07+1,Z 


CK MSG XFER STATE 
BR IF MSG XFER STATE 


UFO 
11F1 
11F2 





1 


C1F2 
100C 
4CA8 


11E9 


* 


LD 

SLA 

BSC 


1 
I 


OPTIN-T 
12 
ENPRT, Z+ 


CHECK SWITCH OPTIONS 
RETURN IF NO INITIAL TRACE 


11F4 





62F9 




EE07 

* 


LDX 


2 


-7 


PREPARE END MSG EE07 


11F5 
11F7 
11F8 
11F9 
UFA 


1 





1 


6E00 
C1DE 
E129 
D1F4 
4C80 


1523 
11E9 


* 


STX 

LD 

AND 

STO 

BSC 


L2 

1 
1 
1 

I 


TEMPI 

TEMPl-T 

HOOFF-T 

ENDSW-T 

ENPRT 


SAVE MESSAGE ID 

SET END OF TEST IND 
RETURN 










* 

****************** ********************** *********** 

* 










* 
* 




READ OPTION 


SELECT SWITCHES 










* 

*************************************************** 

* 


HFC 





0000 




RDSWS 


DC 




*-* 


ENTRY 


11F0 
11FF 
1201 
1203 
1205 


1 
1 
1 
1 
1 


C400 
4400 
D400 
4400 
4C08 


0805 
129D 
1634 
128C 
120 A 


RDSHA 


LD 

BSI 

STO 

BSI 

BSC 


L 
L 
L 
L 

L 


SW3 
ZONE 
YDEC 
DECHX 
RDSWB, + 


FETCH FUNCTION 3 SELECTION 

ADD DECIMAL ZONE 

SAVE Y VALUE 

CONVERT TO HEX 

BR IF INVALID ENTRY 


1207 
1208 




1 


910C 
4C08 


1210 


* 


S 
BSC 


1 

L 


D99-T 

RDSWC, + 


CK IF OVER 99 

BR IF NOT OVER 99 


120A 
120B 
120D 
120E 
120F 




1 






C101 
D400 
C10E 
D1FC 
70ED 


0805 


RDSWB 
EEE1 


LD 

STO 

LD 

STO 

MDX 


1 
L 
1 
1 


D3-T 
SW3 

HEEE1-T 
QPERR-T 

RDSWA 


ERRONEOUS ENTRY 

SET FUNCTION 3 ENTRY TO 03 

PREPARE FOR EEE1 MSG 

SET OPTION ERR PRINT IND 


1210 
1212 


1 

1 


C400 
4C18 


0803 
1286 


RDSWC 


LD 
BSC 


L 
L 


SW1 
RDSWM.+- 


FETCH FUNCTION 1 OPTIONS 
BR IF NO SELECTION 


1214 
1215 




1 


F126 
4C18 


1254 




EOR 
BSC 


1 
L 


HFFFF-T 

RDSWH,+- 


CK FOR NEW SELECTION 
BR IF NO NEW SELECTION 



80D28580 
80D28590 
80D28600 
80D28610 
80D28620 
80D28630 
80D28640 
80D28650 
80D28660 
80D28670 
80D28680 
80D28690 
80028700 
80D28710 
80D28720 
80D28730 
80D28740 
80D28750 
80D28760 
80D28770 
80D28780 
80D28790 
80D28800 
80D28810 
80D28820 
80D28830 
80D28840 
80D28850 
80D28860 
80D28870 
80D28880 
80D28890 
80D28900 
80D28910 
80D28920 
80D28930 
80D28940 
80028950 
80D28960 
80D28970 
80D28980 
80D28990 
80D29000 
80D29010 
80D29020 
80D29030 
80D29040 
80D29050 
80D29060 
80D29070 
80D29080 
80D29090 
80D29100 
80D29110 
80D29120 
80D29130 
80D29140 
80D29150 
80D29160 
80D29170 
80D29180 
80D29190 
80D29200 
80D29210 
80D29220 
80029230 
80D29240 
80D29250 











* 










80D29260 


1217 





F126 






EOR 


1 


HFFFF-T 




80D29270 


1218 





D1EA 






STO 


1 


RFTSL-T 


SAVE RFT SELECTION 


80D29280 


1219 





C126 






LD 


1 


HFFFF-T 




80D29290 


121A 


1 


D400 


0803 


* 


STO 


L 


SW1 


FLAG SW1 FOR NEXT CHECK 


80D29300 
80D29310 


121C 





1010 




RDSWD 


SLA 




16 




80D29320 


1210 





D1EC 




* 


STO 


1 


ALL-T 


CLEAR ALL RFT REQUEST IND 


80D29330 
80D29340 


121E 





C1EA 






LD 


1 


RFTSL-T 


FETCH RFT SELECTION 


80D29350 


121F 


1 


4C10 


125F 


* 


BSC 


L 


RDSWI,- 


BR IF TYPE OR 1 REQ 


80D29360 
80D29370 


1221 





1001 






SLA 




1 




80D29380 


1222 


1 


4C10 


126A 


* 


BSC 


L 


RDSWK,- 


BR IF TYPE 2 REQ 


80D29390 
80D29400 


1224 





1010 




* 


SLA 




16 




80D29410 
80D29420 


1225 





4077 




RDSWE 


BSI 




ZONE 


SET UP 


80D29430 


1226 


1 


D400 


1633 


* 


STO 


L 


XDEC 


X VALUE 


80D29440 
80D29450 


1228 


1 


6CO0 


1531 


* 


STX 


L 


ALL 


SET ALL RFT REQ IND 


80D29460 
80D29470 


122A 


1 


6600 


1572 




LDX 


L2 


TMVLD-1 


XR2=ADR OF TM NUMBER TBL 


80D29480 


122C 





6A01 




* 


STX 


2 


RDSWF+1 




80D29490 
80D29500 


122D 





6600 


0000 


RDSWF 


LDX 


L2 


*-* 


XR2=ADR OF TEST MSG NUMBER 


80D29510 


122F 





7201 






MDX 


2 


1 


POINT TO NEXT TM NUMBER 


80D29520 


1230 





6AFD 




* 


STX 


2 


RDSWF+1 


SAVE ADR FOR NEXT TEST 


80D29530 
80D29540 


1231 


1 


C400 


1633 




LD 


L 


XDEC 


FETCH X VALUE 


80D29550 


1233 





4058 






BSI 




DECHX 


CONVERT TO HEX 


80D2956O 


1234 





1881 






SRT 




1 




80D29570 


1235 


1 


4C20 


1249 


* 


BSC 


L 


RDSWG, Z 


BR IF X NOT ZERO OR ONE 


80D29580 
80D29590 


1237 





C200 






LD 


2 





FETCH TEST MSG NUMBER 


80D29600 


1238 





D1EB 






STO 


1 


REO-T 


SET RFT REQ IND 


80D29610 


1239 


1 


4C18 


1242 


* 


BSC 


L 


RSWF1.+- 


BR IF END OF TM TABLE 


80D29620 
80D29630 


123B 





F108 






EOR 


1 


D19-T 


CK FOR TEST MSG 19 


80D29640 


123C 


1 


4CA0 


HFC 


* 


BSC 


I 


RDSWS, Z 


RETURN IF NOT TM 19 


80D29650 
80D29660 


123E 





1081 






SLT 




1 




80D29670 


123F 


1 


4C88 


HFC 


* 


BSC 


I 


RDSWS, + 


RETURN IF X=00 


80D29680 
80D29690 


1241 





70EB 




* 


MDX 




RDSWF 


BRANCH - X=01 


80D29700 
80D29710 


1242 





1081 




RSWF1 


SLT 




1 




80D29720 


1243 





8100 






A 


1 


Dl-T 




80D29730 


1244 


1 


4C04 


1225 


* 


BSC 


L 


RDSWE, E 


BR IF X=01 NEXT RFT 


80D29740 
80D29750 


1246 


1 


6600 


1573 




LDX 


L2 


TMVLO 




80D29760 


1248 





6AE5 




* 


STX 


2 


RDSWF+1 


SAVE TM NUMBER ADR 


80D29770 
80D29780 


1249 





C200 




RDSWG 


LD 


2 





FETCH TEST MSG NUMBER 


80D29790 


124A 





D1EB 






STO 


1 


REQ-T 


SET/RESET RFT REQ IND 


80D29800 


124B 





01EC 




* 


STO 


1 


ALL-T 


SET/RESET ALL RFT REQ IND 


80D29810 
80D29820 


124C 





1890 






SRT 




16 


CONVERT 


80D29830 


124D 





A907 






D 


1 


D10-T 


TEST 


80D29840 


124E 





108C 






SLT 




12 


MESSAGE 


80D29850 


124F 





180C 






SRA 




12 


NUMBER TO 


80029860 


1250 





1084 






SLT 




4 


DECIMAL 


80D29870 


1251 





40 4B 






BSI 




ZONE 


ADD DECIMAL ZONE 


80D29880 


1252 


1 


D400 


1633 


* 


STO 


L 


XDEC 


SAVE X VALUE 


80D29890 
80D29900 


1254 





C1EB 




RDSWH 


LD 


1 


REO-T 


CK RFT REQ IND 


80D29910 


1255 


1 


4CA0 


HFC 


* 


BSC 


I 


RDSWS, Z 


EXIT IF NOT ZERO 


80D29920 
80D29930 
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1257 C1EC 

1258 1 4C20 


1220 


♦ 


LD 
BSC 


1 

L 


ALL-T 
RDSWF,Z 


CK ALL RFT REO IND 
BR IF NOT ZERO 


125A ClEA 
125B 1007 
125C 1 4C90 


11FC 


# 


LD 

SLA 

BSC 


1 

I 


RFTSL-T 

7 
RDSWS,- 


EXIT IF LOOP NOT SELECTED 


125E 70BD 




g 


MDX 




RDSWD 


GO TO LOOP ON RFT 


125F 1001 
1260 1 4C10 


1268 


RDSWI 


SLA 
BSC 


L 


1 

RDSWJt- 


BR IF TYPE REQUEST 


1262 1007 

1263 F110 

1264 1 4C18 


1283 


4 


SLA 
EOR 
BSC 


1 
L 


7 

H1900-T 

EEE2.+- 


CK FOR TEST MSG 19 
BR IF TEST MSG 19 


1266 C100 

1267 7003 




£ 


LD 
MDX 


1 


Dl-T 
RDSWK+1 


SET UP FOR X=01 

BRANCH - TYPE 1 REQUEST 


1268 1010 

1269 7001 




RDSWJ 
RDSWK 

* 

* 


SLA 

MDX 




16 

RDSWK+1 


SET UP FOR X=00 


126A ClEA 
126B 4031 
126C 1 D400 


1633 


LD 

BSI 

STO 


1 
L 


RFTSL-T 

ZONE 

XOEC 


ADD DECIMAL ZONES TO X 
SAVE DECIMAL X 


126E 62F4 
126F ClEA 

1270 402C 

1271 401A 

1272 DIEB 

1273 1 4C18 


1283 


LDX 

LD 

BSI 

BSI 

STO 

BSC 


2 

1 

1 
L 


-12 

RFTSL-T 

ZONE 

OECHX 

REO-T 

EEE2,+- 


FETCH X SELECTION 
ADD DECIMAL ZONE 
CONVERT TO HEX 
SET RFT REQUEST IND 
BR IF 00 ENTRY 


1275 C1EB 

1276 1 F600 
1278 1 4C98 


157F 
HFC 


RDSWL 


LD 

EOR 

BSC 


1 
L2 
I 


REQ-T 

TMVLD+12 

RDSWSt+- 


CK TEST MESSAGE 

FOR VALID 
RETURN IF ENTRY FOUND 


127A 7201 
127B 70F9 




# 


MDX 
MDX 


2 


1 

RDSWL 




127C ClEA 
1270 1 4C28 


1283 


* 


LD 
BSC 


1 
L 


RFTSL-T 
EEE2tZ+ 


CK RFT TYPE 

BR IF TYPE 2 RFT 


127F C1EB 

1280 9100 

1281 1 4C98 


HFC 


* 


LD 

S 

BSC 


1 
1 
I 


REQ-T 
Dl-T 

RDSWSt+- 


CK TEST MSG NUMBER 
BR IF TM NUMBER 01 


1283 ClOE 

1284 8100 

1285 DIFC 




EEE2 

* 


LD 

A 

STO 


1 
1 
1 


HEEE1-T 

Dl-T 

OPERR-T 


PREPARE START MSG EEE2 
SET OPTION ERROR PRINT INO 


1286 1010 

1287 DIEB 
1.288 1 D400 


0803 


RDSWM 

* 


SLA 
STO 
STO 


1 
L 


16 

REQ-T 

SW1 


RESET RFT REQUEST INO 


128A 1 4C80 


HFC 


* 


BSC 


I 


RDSWS 


RETURN 






* 

************************************* a************* 

* 






* 

4c 






CONVERT DECIMAL TO HEX 






4c***** 

* 
OECHX 

* 


**************** 4c*******************4c 4c 4c 4c****** 


128C 0000 




DC 




*-* 


ENTRY 


1280 E117 
128E 1888 




AND 
SRT 


1 


HOFOF-T 
8 


DELETE ZONE 

GET LOW ORDER DIGIT 



80D29940. 

80D29950 

80D29960 

80D29970 

80029980 

80D29990 

80030000 

80030010 

80D30020 

80D30030 ' 

80D30040 

80D30050 

80D30060 

80D30070 

80D30080 

80D30090 

80D30100 

80D30110 

80D30120 

80D30130 

80D30140 

80D30150 

80D30160 

80D30170 

80D30180 

80D30190 

80D30200 

80D30210 

80030220 

80030230 

80D30240 

80030250 

80D30260 

80D30270 

80D30280 

80D30290 

80D30300 

80D30310 

80D30320 

80D30330 

80D30340 

80030350 

80D30360 

80030370 

80030380 

80D30390 

80D30400 

80030410 

80D30420 

80D30430 

80D30440 

80D30450 

80030460 

80D30470 

80D30480 

80D30490 

80D30500 

80030510 

80D30520 

80D30530 

80D30540 

80D30550 

80D30560 

80D30570 

80D30580 

80D30590 

80030600 

80D30610 



128F 1800 

1290 1808 

1291 D1DF 

1292 9107 

1293 1 4C28 1297 

1295 C129 

1296 7004 

1297 1090 

1298 A107 

1299 1090 
129A 81DF 
129B 1 4C80 128C 



RTE 

SRA 

STO 

S 

BSC 

LD 

MDX 



16 
8 
1 TEMP2-T 
1 D10-T 
L DCHX1.Z+ 

1 HOOFF-T 
DCHXX 



IN A, HIGH OROER IN Q 

SAVE LOW OROER DIGIT 
CK FOR VALID DEC CHAR 
BR IF VALID 

LD DECIMAL 127 
RETURN 



MULTIPLY HIGH ORDER BY 10 

ADD LOW OROER 
RETURN 



129D 0000 



DCHX1 SLT 16 

M 1 D10-T 
SLT 16 

A 1 TEMP2-T 

DCHXX BSC I DECHX 
* 

*************************************************** 

* 

* ADO ZONE TO DECIMAL DIGITS 

* 

**************************************** *********** 

* 

ENTRY 



129E 
129F 
12A0 
12A1 
12A2 
12A3 



1884 
100C 
1808 
1084 
D1DF 
4400 14A2 



12A5 F128 
12A6 1 4C08 12AA 

12A8 C12B 
12A9 7001 

12AA C12C 
12AB E9DF 
12AC 010F 

12AD 18D0 
12AE F128 
12AF 1 4C08 12B3 

12B1 C12B 
12B2 7001 

12B3 C12C 
12B4 1808 
12B5 E9DF 
12B6 1 4C80 1290 



ZONE DC 

* 

SRT 
SLA 
SRA 
SLT 
STO 
BSI 

* 

EOR 
BSC 

* 

LD 
MDX 

* 

Z0NE1 LD 
OR 
STO 

* 

RTE 
EOR 
BSC 

* 

LD 

MDX 



*-* 

4 
12 
8 
4 
1 TEMP2-T 
L DCODE 

1 H0010-T 
L Z0NEU + 

1 ZONEO-T 
*+l 

1 ZONEE-T 
1 TEMP2-T 
1 TEMP2-T 

16 
1 H0010-T 
L Z0NE2.+ 

1 ZONEO-T 
*+l 



GET HIGH ORDER DIGIT 
IN A REG BITS 4-7 AND 
LOW OROER DIGIT 
IN BITS 12-15 
SAVE 
BUILD DECODE WOROS 



BR IF EVEN PARITY 
FETCH ODD ZONE 

FETCH EVEN ZONE 
SET HIGH ORDER ZONE 
CHECK LOW ORDER DIGIT 
BR IF EVEN PARITY 
FETCH OOD ZONE 

FETCH EVEN ZONE 



SET LOW ORDER ZONE 
RETURN 



12B8 0000 

12B9 010E 
12BA 1 6F00 1524 

12BC 1 7400 150E 
12BE 7010 

12BF C1F2 



Z0NE2 LD 1 ZONEE-T 
SRA 8 
OR 1 TEMP2-T 
BSC I ZONE 

* 
* 
*************************************************** 

* 

* STORE MESSAGE IN TRACE TABLE 

* 

*************************************************** 

* 

SVMSG DC *-* 

* 

STO 1 TEMP1-T 

STX L3 TEMP2 
* 

MDX L PGBSY 

MDX SVMS2 
* 

LD 1 OPTIN-T 



SAVE ACCUMULATOR 
SAVE MESSAGE NUMBER 

CK PROGRAM BUSY IND 
BR IF NON-ZERO 

CK CONTROL OPTIONS 



80D3062D 
80030630 
80D30640 
80D30650 
80D306oO 
80D30670 
80D30680 
80D30690 
80030700 
80D30710 
80D30720 
80D30730 
80D30740 
80D30750 
80030760 
80D30770 
80D30780 
80030790 
80D30800 
80D30810 
80D30820 
80D30830 
80D30840 
80D30850 
80D30860 
80D30870 
80D30880 
80D30890 
80D30900 
80D30910 
80D30920 
80D30930 
80030940 
80D30950 
80D30960 
80D30970 
80D30980 
80030990 
80D31000 
80D31010 
80D31020 
80D31030 
80D31040 
80D31050 
80D31060 
80031070 
80D31080 
80D31090 
80031100 
80D31110 
80031120 
80031130 
B0D31140 
80031150 
B0D31160 
80D31170 
80D31180 
80031190 
80D31200 
80D31210 
80D31220 
80D31230 
80 D3 1240 
80031250 
80D31260 
80031270 
80D31280 
80D31290 
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( 

c 



( 
c 
x 



12C0 





1008 






SLA 




8 


12C1 


1 


4C28 


12CF 


* 


BSC 


L 


SVMS2.Z+ 


12C3 





1002 




SLA 




2 


12C4 


1 


4C28 


12C9 


* 


BSC 


L 


SVMSl ,Z+ 


12C6 





C1DF 




LD 


1 


TEMP2-T 


12C7 


1 


4C10 


12CF 


* 
SVMSl 


BSC 


L 


SVMS2,- 


12C9 





C1DF 




LD 


1 


TEMP2-T 


12CA 





1008 






SLA 




8 


12CB 





1808 






SRA 




8 


12CC 





E9E9 






OR 


1 


RTNNO-T 


12CD 





E90F 






OR 


1 


H8000-T 


12CE 





4008 




* 
SVMS2 


BSI 




STORE 


12CF 





C1DF 




LD 


1 


TEMP2-T 


12D0 





4828 






BSC 




Z+ 


1201 





DIDO 






STO 


1 


ANYER-T 


12D2 





C1DE 






LD 


1 


TEMP1-T 


12D3 


1 


6780 


1524 




LDX 


13 


TEMP2 


12D5 


1 


4C80 


12B8 


* 
* 


BSC 


I 


SVMSG 



12D7 0000 

12D8 6B15 
12D9 1 6780 150F 
12DB D300 

12DC C1CA 
1200 1 F400 1FFB 
12DF 1 4C20 12E3 

12E1 C118 
12E2 7009 

12E3 7301 
12E4 1 6F00 150F 
12E6 1 7401 1512 
12E8 1000 
12E9 1 6C00 1514 
12EB 1010 

12EC D300 
12ED 6700 0000 
12EF 1 4C80 12D7 



BR IF BYPASS PRINT 



BR IF AOXX MSGS SELECTED 

FETCH MSG NUMBER 
BR IF AOXX MSG 

FETCH MSG NUMBER 



COMBINE WITH RTN NUMBER 

SET LINE FLAG 

STORE IN TRACE TABLE 

FETCH MESSAGE NUMBER 
SKIP IF NOT ERROR MSG 
SET ERROR OCCURED IND 
RESTORE A REG 
RESTORE XR3 
RETURN 



*************************************************** 

* STORE DATA IN TRACE TABLE 

*************************************************** 

*-* ENTRY 



STORE DC 

STX 
LDX 
STO 

LD 

EOR 
BSC 

* 

A001 LD 
MDX 

* 

ST0R1 MDX 



3 ST0R2+2 
13 TRCPT 
3 

1 TRCPT-T 
L PEND 
L STORltZ 

1 H8001-T 
ST0R2 



3 1 

STX L3 TRCPT 
MDX L CNTA.l 
NOP 

STX L ANYMS 
SLA 16 



SAVE XR3 

X3 POINT NEXT TABLE ADDR 

STORE DATA IN TABLE 

CHECK FOR 

TABLE FULL 
BR IF MORE CORE 

FETCH END OF CORE MSG 
BR TO STORE MSG 

ADVNACE TRACE 

TABLE POINTER 
UPDATE WORD COUNT 

SET MESSAGE STORED IND 



STORE TERMINATOR 
RESTORE XR3 
RETURN 



12F1 0000 

12F2 40C5 

12F3 C1C9 

12F4 1 4C20 1346 



ST0R2 STO 3 

LDX L3 *-* 

BSC I STORE 

* 

*************************** ********************** 

* BUILD TRANSMIT AND RECEIVE TABLES 

**************************************************** 

* 

XMRCV DC *-* 

* 

BSI SVMSG SAVE LINE CONTROL MESSAGE 

* 

LD 1 PGBSY-T CHECK PROGRAM BUSY IND 

BSC L XMR13 f Z BR IF PROGRAM BUSY 

* 



80D31300 
80D31310 
80D31320 
80D31330 
80D31340 
80031350 
80D31360 
80031370 
80D31380 
80031390 
80D31400 
80D31410 
80D31420 
80031430 
80D31440 
80031450 
80D31460 
80031470 
80D31480 
80D31490 
80D31500 
80D31510 
80D31520 
80D31530 
80D31540 
80D31550 
80D31560 
80031570 
80D31580 
80D31590 
80D31600 
80031610 
80D31620 
80D31630 
80D31640 
80D31650 
80D31660 
80D31670 
80D31680 
80D31690 
80D31700 
80031710 
80D31720 
80D31730 
80D31740 
80D31750 
80D31760 
80031770 
80031780 
80D31790 
80031800 
80031810 
80D31820 
80D31830 
80031840 
80D31850 
80031860 
80D31870 
80D31880 
80D31890 
80D31900 
80D31910 
80D31920 
80D31930 
80D31940 
80D31950 
80D31960 
80031970 



12F6 





C1CF 






LD 


1 


ANYMS-T 


CK ANY MSG STORED IND 


80D31980 


12F7 


1 


4C18 


1346 


* 


BSC 


L 


XMR13.+- 


9R IF NO MSGS STORED 


80031990 
80D32000 


12F9 





C1CA 






LD 


1 


TRCPT-T 


SET UP POINTER TO 


80D32010 


12FA 





D1F6 




* 


STO 


1 


CNTPT-T 


CHARACTER COUNT LOCATION 


80D32020 
80D32030 


12FB 





1010 






SLA 




16 


RESERVE ONE WORD IN TRACE 


80D32040 


12FC 





D1CD 






STO 


1 


CNTA-T 


CLEAR WORD COUNT 


80D32050 


12FD 





40 D9 




* 


BSI 




STORE 


TABLE FOR. CHARACTER CNT 


80D32060 
80032070 


12FE 





C19B 






LD 


1 


SNSOP-T 




80D32080 


12FF 





4007 




* 


BSI 




STORE 


STORE DSW IN TRACE TBL 


80D32090 
80D32100 


1300 





C19D 






LD 


1 


SNSBC-T 




80D32110 


1301 





40D5 




* 


BSI 




STORE 


STORE BYTE CNT SENSED 


80032120 
80D32130 


1302 





C1CD 






LD 


1 


CNTA-T 


FETCH CHARACTER COUNT 


. 80D32140 


1303 


1 


4C08 


1346 


* 


BSC 


L 


XMR13t+ 


BR IF COUNT ZERO 


80D32150 
80D32160 


1305 


1 


D480 


153B 


* 


STO 


I 


CNTPT 


STORE CHARACTER COUNT 


80D32170 
80D32180 


1307 


1 


6600 


176B 


XMR10 


LDX 


L2 


XMRCT 


XR2=P0INT TO XM/RCV TBL 


60D32190 


1309 





C1D8 






LD 


1 


XMADR-T 


FETCH XMIT TBL ADDR 


80D32200 


130A 


1 


4C18 


1315 


* 


BSC 


L 


XMR12.+- 


BR IF NO XMIT TABLE 


80D32210 
80D32220 


130C 





90FB 






S 




XMR10+1 


FIND 1ST XM TBL LENGTH 


80D32230 


1300 


1 


4C18 


1311 


* 


BSC 


L 


XMR11,+- 


BR IF ONLY ONE XM TBL 


80D32240 
80D32250 


13 OF 





9100 






S 


1 


Dl-T 


CORRECT LENGTH AND STORE 


80D32260 


1310 





4008 




* 


BSI 




STDTA 


XMIT TBL IN TRACE TABLE 


80032270 
80D32280 


1311 





C1D9 




XMR11 


LO 


1 


RCADR-T 


FETCH RCV TABLE ADR 


80D32290 


1312 





9108 






S 


1 


XMAOR-T 


FIND 2ND XMIT TBL LENGTH 


80D32300 


1313 





9100 






s 


1 


Dl-T 


CORRECT LENGTH AND STORE 


80D32310 


1314 





4004 




* 


BSI 




STDTA 


XMIT TABLE IN TRACE TBL 


80032320 
80D32330 


1315 





C1DA 




XMR12 


LD 


1 


RCVBC-T 


FETCH RCV TABLE LENGTH 


80D32340 


1316 


1 


4420 


1319 


* 


BSI 


L 


STDTA, Z 


MOVE RCV TBL TO TRACE TBL 


80D32350 
80D32360 


1318 





702D 




* 
* 


MDX 




XMR13 




80D32370 
80D32380 
80032390 


1319 





0000 




STDTA 

* 


DC 




*_* 


ENTRY 


80032400 
80D32410 


131A 





D01D 




* 


STO 




STDT3+1 


SAVE TABLE LENGTH 


80032420 
80D32430 


131B 





C1CA 






LD 


1 


TRCPT-T 


SAVE ADDRESS IN TRACE TBL 


80D32440 


131C 





D1F6 




* 


STO 


1 


CNTPT-T 


FOR CHARACTER COUNT STG 


80D32450 
80032460 


131D 





C1F2 






LO 


1 


OPTIN-T 


CK PRINT OPTIONS 


80D32470 


131E 





1009 






SLA 




9 


• 


80D32480 


131F 


1 


4CA8 


1319 


* 


BSC 


I 


STDTA, +Z 


RETURN IF NO DATA TRACE 


80D32490 
80D32500 


1321 





1010 






SLA 




16 




80D32510 


1322 





D1CD 






STO 


1 


CNTA-T 




80D32520 


1323 





40B3 




* 


BSI 




STORE 


RESERVE CHAR COUNT WORD 


80D32530 
80D32540 


1324 





C1F2 






LD 


1 


OPTIN-T 


CHECK PRINT OPTIONS 


80D32550 


1325 





1804 






SRA 




4 




80D32560 


1326 


1 


4C04 


1337 


* 


BSC 


L 


STDT3.E 


BR IF STORE ALL SELECTED 


80D32570 
80D32580 


1328 





COOF 






LD 




STDT3+1 




80D32590 


1329 





9109 






S 


1 


D29-T 


CHECK TABLE LENGTH 


80D32600 


132A 


1 


4C08 


1337 


* 


BSC 


L 


STDT3.+ 


BR IF LESS THAN 30 


80D32610 
80D32620 


132C 





D007 




* 


STO 




STDT2+1 




80032630 
80D32640 


132D 





630F 






LDX 


3 


15 


STORE FIRST 


80D32650 
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132E C200 




ST0T1 


LO 


2 


FIFTEEN TABLE 




80D32660 


132F 40A7 






BSI 


STORE 


ENTRIES 




80D32670 


1330 7201 






MDX 


2 1 


INTO TRACE 




80032680 


1331 73FF 






MDX 


3 -1 


TABLE 




80D32690 


1332 70FB 




* 


MDX 


STDT1 






8OD3270O 
80D32710 


1333 7600 


0000 


STDT2 


MDX 


L2 *-* 






80D32720 


1335 630E 






LOX 


3 14 






80D32730 


1336 7002 




* 


MDX 


STDT3+2 






80D32740 
80D32750 


1337 6700 


0000 


STDT3 


LDX 


L3 *-* 


XR3=TABLE LENGTH 




80D32760 


1339 C200 






LD 


2 


MOVE XMIT OR 




80032770 


133A 409C 






BSI 


STORE 


RECEIVE TABLE 




80D32780 


133B 7201 






MDX 


2 1 


TO TRACE 




80032790 


133C 73FF 






MDX 


3 -1 


TABLE 




80032800 


133D 70FB 




* 


MDX 


STDT3+2 






80D32810 
80D32820 


133E 7201 






MOX 


2 1 






80032830 


133F C1CD 






LD 


1 CNTA-T 


FETCH CHARACTER 


COUNT 


80D32340 


1340 1 4C88 


1319 




BSC 


I STDTA.+ 


RETURN IF ZERO COUNT 


80D32850 






* 










80D32860 


1342 1 0480 


153B 




STO 


I CNTPT 


STO CHAR CNT IN 


TRACE T3L 


80D32870 


1344 1 4C80 


1319 


* 

* 


BSC 


I STDTA 


RETURN 




80D32880 
80032890 
80D32900 


1346 C1F4 




XMR13 


LD 


1 ENDSW-T 


CK END OF TEST IND 


80D32910 


1347 1 4C18 


134F 


* 


BSC 


L XMR14.+- 


BRA IF NOT ON 




80D32920 
30D32930 


1349 1 C400 


1AC9 




LD 


L ENMSG 


CK END MSG PRINT 


IND 


80D32940 


134B 1 4C18 


1361 


* 


BSC 


L XMR16,+- 


BR IF NOT ON 




80D32950 
80D32960 


1340 D1C9 






STO 


1 PGBSY-T 


SET PROGRAM BUSY 


IND 


80D32970 


134E 7012 




* 


MDX 


XMR16 


BRANCH 




80D32980 
e0D32990 


134F C1F3 




XMR14 


LD 


1 STSW-T 


CK START OF TEST 


IND 


80D33000 


1350 1 4C18 


1361 


* 


BSC 


L XMR16.+- 


BR IF NOT ON 




80D33010 
80D33020 


1352 1 6700 


1ACC 




LDX 


L3 TRCTB 


INITIALIZE POINTER TO 


80033030 


1354 1 6F00 


150F 


* 


STX 


L3 TRCPT 


START OF TRACE 


TABLE 


80D33040 
80D33050 


1356 1010 






SLA 


16 


CLEAR END 




80D33060 


1357 63EE 






LDX 


3 -18 


OF TEST 




80D33070 


1358 1 0700 


1AD1 


XMR15 


STO 


L3 TM00E+18 


STATISTICS 




80D33080 


135A 7301 






MDX 


3 1 


TABLE 




80D33090 


135B 70FC 




* 


MDX 


XMR15 






80D33100 
80D33110 


135C D1F3 






STO 


1 STSW-T 


RESET START OF TEST IND 


80D33120 


135D 01C9 




* 


STO 


1 PGBSY-T 


RESET PROG BUSY 


IND 


80D33130 
80D33140 


135E 1 C400 


0802 




LD 


L SWO 


SET UP 




80D33150 


1360 D1F2 




* 


STO 


1 OPTIN-T 


PRINT OPTIONS 




80D33160 
80D33170 


1361 1010 




XMR16 


SLA 


16 


CLEAR 




80D33180 


1362 0108 






STO 


1 XMADR-T 


XMIT/RECEIVE 




80D33190 


1363 01D9 






STO 


1 RCADR-T 


TABLE 




80D33200 


1364 01DA 




* 


STO 


1 RCVBC-T 


POINTERS 




80033210 
80033220 


1365 D1F8 






STO 


1 XMTAC-T 


RESET 




80D33230 


1366 01F9 






STO 


1 RCTAC-T 


TURNAROUND COUNTERS 


80033240 






* 










80D33250 


1367 6700 


FC18 




LDX 


L3 -1000 


CLEAR 




80D33260 


1369 1 D700 


1AB8 


XMR17 


STO 


L3 RCVTB+1000 


XMIT/RECEIVE 




BDD33270 


136B 7301 






MDX 


3 1 


TABLES 




80D33280 


136C 70FC 




* 


MDX 


XMR17 






80D33290 
80D33300 


1360 1 C480 


12F1 




LD 


I XMRCV 


FETCH 1ST CALL PARAMETER 


80D33310 


136F 1887 






SRT 


7 






80D33320 


1376 F126 






EOR 


1 HFFFF-T 






80D33330 



1371 





1007 






SLA 




7 






80D33340 


1372 





D1CC 






STO 


1 


MASK-T 


SET DSW MASK IN!) 


80D33350 










* 












80033360 


1373 





1087 






SLT 




7 






80D33370 


1374 





1008 






SLA 




8 






80D33380 


1375 





D1E9 




* 


STO 


1 


RTNNO-T 


SAVE 


ROUTINE NUMBER 


80D33390 
80D33400 


1376 


1 


7401 


12F1 




MDX 


L 


XMRCVtl 


POINT 


TO NEXT PARAMETER 


80033410 


1378 


1 


6C00 


151C 




STX 


L 


CLRSW 


SET CA CLEAR IND 


80D33420 










* 












80D33430 


137A 


1 


C480 


12F1 




LD 


I 


XMRCV 


FETCH 


PARAMETER 


80D33440 


137C 


1 


4C20 


1387 


* 


BSC 


L 


XMR18.Z 


BR IF 


NOT ZERO 


80D33450 
80D33460 


137E 


1 


7401 


12F1 




MDX 


L 


XMRCVtl 


POINT 


TO RETURN 


80D33470 


1380 





C1C8 






LD 


1 


PGRDY-T 


CK PROGRAM READY IND 


80D33480 


1381 


1 


4C18 


08A3 


* 


BSC 


L 


STRT3.+- 


BR IF 


NOT READY 


80033490 
80033500 


1383 





09A1 






XIO 


1 


RESET-T 


RESET 


CA 


80D33510 


1384 





09A7 






XIO 


1 


TIMER-T 


START 


CONTINUE TIMER 


80D33520 


1385 


1 


4C00 


1498 


* 


BSC 


L 


INTX 


GO TO 


EXIT INTERRUPT 


80D33530 
80D33540 


1387 





F126 




XMR18 


EOR 


1 


HFFFF-T 


CK FOR FFFF PARAMETER 


80D335&0 


1388 


1 


4C20 


1390 


* 


BSC 


L 


XMRCO, Z 


BR IF 


NOT FFFF 


80D33560 
80D33570 


138A 


1 


7401 


12F1 




MDX 


L 


XMRCV, 1 


POINT 


TO RETURN 


80033580 


138C 





09A1 






XIO 


1 


RESET-T 


RESET 


CA 


80D33590 


138D 





09A9 






XIO 


1 


ANSHR-T 


ENABLE AND START TIMER 


80033600 


138E 


1 


4C00 


1498 


* 


BSC 


L 


INTX 


GO TO 


EXIT INTERRUPT 


80033610 
80D33620 


1390 





C1A4 




XMRCO 


LD 


1 


INITL+1-T 


SET UP INITIALIZE 


80D33630 


1391 





E91B 






OR 


1 


H0080-T 


IOCC 


FOR 


80033640 


1392 





D1A4 






STO 


1 


INITL+1-T 


DIAGNOSTIC MODE 


80033650 










* 












80D33660 


1393 


1 


6680 


12F1 




LDX 


12 


XMRCV 


XR2=CALL STRING ADDR 


80D33670 


1395 





1010 






SLA 




16 






80D33680 


1396 





D1D7 




* 


STO 


1 


CLRSW-T 


RESET 


CA CLEAR IND 


80D336O0 
80D33700 


1397 





C200 




XMRC1 


LD 


2 





FETCH 


CALL BYTE CNT WD 


80D33710 


1398 





1002 






SLA 




2 






80D33720 


1399 


1 


4C10 


13AF 


* 


BSC 


L 


XMRC3,- 


BR IF 


RECEIVE TABLE 


80033730 
80D33740 


139B 





C680 


0001 




LD 


12 


1 


GET 1ST TWO XMIT CHARS 


80D33750 


139D 


1 


4400 


14A2 


* 


BSI 


L 


DC ODE 


BUILD 


DECODE WORDS 


80033760 
80D3377O 


139F 


1 


4C10 


13AA 


* 


BSC 


L 


XMRC2,- 


BR IF 


1ST CHAR NOT DLE 


80D33780 
80D33790 


13A1 





1092 






SLT 




18 






80D33800 


13A2 


1 


4C10 


13AA 


* 


BSC 


L 


XMRC2,- 


BR IF 


2ND CHAR NOT STX 


80D33810 
80D33820 


13A4 





C200 






LD 


2 





FETCH 


BYTE COUNT WORD 


80D33830 


13A5 





1007 






SLA 




7 






80D33840 


13A6 





1807 






SRA 




7 






80D33850 


13A7 





910A 






S 


1 


D50-T 






80D33860 


13A8 


1 


4C30 


13B6 


* 


BSC 


L 


XMRC5,Z- 


BR IF 


BC GREATER THAN 50 


80D33870 
80D33880 


13AA 





C200 




XMRC2 


LD 


2 





FETCH 


BYTE COUNT WORO 


80D33890 


13AB 


1 


4C10 


13B2 


* 


BSC 


L 


XMRC4,- 


BR IF 


NO CHAIN 


80D33900 
80D33910 


13AD 





7202 






MDX 


2 


2 


POINT 


TO NEXT BCW 


80D33920 


13AE 





70E8 




* 


MDX 




XMRC1 


GO TO 


CHECK NEXT TABLE 


80D33930 
80033940 


13AF 





C200 




XMRC3 


LD 


2 





FETCH 


BYTE COUNT WD 


80D33950 


13B0 


1 


4C08 


13B6 


* 


BSC 


L 


XMRC5,+ 


BR IF 


CHAIN OR ZERO BCW 


80D33960 
80D33970 


13B2 





C1F2 




XMRC4 


LD 


1 


OPTIN-T 


GET PROG CONTROL Of! ION 


80033980 


13B3 





1006 






SLA 




6 






80D33990 


13B4 


1 


4C10 


13B9 




BSC 


L 


XMRC6,- 


BR IF DIAG MODE 


80034000 










* 












80D34010 



DATE 
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13B6 C1A4 
13B7 F11B 
13B8 D1A4 

13B9 1 6600 176B 
13BB 1 6E00 151E 

13BD 1 C480 12F1 
13BF 1 7401 12F1 
13C1 D200 
13C2 1880 
13C3 1 4C04 13E4 

13C5 108D 
13C6 D1DA 

13C7 C1D2 
13C8 1 4C18 13D1 

13CA C1E9 

13CB 1808 

13CC F103 

13CD 1 4C20 13D1 

13CF C107 

13D0 7002 

13D1 1 C400 081D 
13D3 D1F9 

1304 C1DA 
13D5 1 4C10 1494 



13D7 





1005 


1308 





1806 


13D9 





8100 


13DA 





0001 


13DB 





7600 0000 


13DD 





80DC 


13DE 





D200 


13DF 





D203 


13E0 





C119 


13E1 





D201 



13E2 1 4C00 1494 

13E4 1 6E00 1510 

13E6 1 6E00 1476 

13E8 108D 

13E9 D1F7 

13EA 1005 

13EB 1805 

13EC 9103 

13E0 D1DD 

13EE 1 C400 081D 

13F0 D1F8 



13F1 I C480 12F1 

13F3 1 7401 12F1 

13F5 D1DC 

13F6 C1A4 

13F7 1008 

13F8 1 4C28 142C 



XMRC5 


LD 


1 


INITL+1-T 


SET UP INITIALIZE 


80D34020 




EOR 


1 


H0080-T 


IOCC FOR 


80D34030 




STO 


1 


INITL+1-T 


NORMAL MODE 


80D34040 


* 










80D34050 


XMRC6 


LDX 


L2 


XMRCT 


XR2=XMIT/RCV TABLE ADDR 


80D3406Q 




STX 


L2 


RCADR 


SET RCV TABLE ADDR 


80D34070 


* 










80D34080 




LD 


I 


XMRCV 


FETCH BYTE COUNT WORD 


80D34090 


XMR6A 


MDX 


L 


XMRCV, 1 


POINT TO NEXT PARAMETER 


80D34100 




STO 


2 





STO BCW IN XMIT/RCV TBL 


80D34110 




SRT 




13 




80D34120 




BSC 


L 


XMRC7.E 


BR IF XMIT TABLE 


80D34130 


* 










80D34140 




SIT 




13 




80D34150 




STO 


1 


RCVBC-T 


SAVE BYTE COUNT WORD 


80D34160 


* 










80D34170 




LD 


1 


X99ID-T 


BR IF X=99 IND 


80D34180 




BSC 


L 


XMR6B.+- 


NOT ON 


80D34190 


* 










80D34200 




LD 


1 


RTNNO-T 




80D34210 




SRA 




8 




80D34220 




EOR 


1 


D2-T 




80D34230 




BSC 


L 


XMR6B.Z 


BR IF RTN NO. NOT 2 


80D34240 


* 










80D34250 




LD 


1 


D10-T 


SET-UP RECEIVE TURNAROUND 


80D34260 


* 








DELAY FOR 30 SECONDS 


80D34270 




MDX 




*+2 


SKIP NEXT INSTRUCTION 


80D34280 


* 










80D34290 


XMR6B 


LD 


L 


TADLY 


SET-UP RECEIVE 


80D34300 




STO 


1 


RCTAC-T 


TURNAROUND COUNT 


80D34310 


* 










80D34320 




LD 


1 


RCVBC-T 


FETCH BYTE COUNT WORD 


80D34330 




BSC 


L 


CAIO,- 


BR IF NO CHAIN 


80D34340 


* 










80D34350 




SLA 




5 


CALCULATE 


80D34360 




SRA 




6 


RECEIVE TABLE 


80D34370 




A 


1 


Dl-T 


LENGTH 


80D34380 




STO 




*+l 




80D34390 




MDX 


L2 


*-# 


POINT TO NEXT TBL 


80D34400 


* 










80D34410 




A 




XMRC6+1 


A REG=AODR OF 2ND TABLE 


80034420 




STO 


2 





STORE CHAIN 


80D34430 




STO 


2 


3 


ADDRESSES 


80D34440 




LD 


1 


HC002-T 


STORE 2ND 


80D34450 




STO 


2 


1 


TABLE BCW 


80D34460 




BSC 


L 


CAIO 


GO TO START I/O 


80034470 


* 










80D34480 


XMRC7 


STX 


L2 


XMADR 


STORE XMIT TABLE ADDR 


80034490 




STX 


L2 


XMRCK+1 




80D34500 




SLT 




13 




80D34510 




STO 


1 


BCSAV-T 


SAVE BYTE COUNT WORD 


80D34520 


* 










80D34530 




SLA 




5 




80D34540 




SRA 




5 




80D34550 




S 


1 


D2-T 


CORRECT BC FOR PAD/ANY CH 


80D34560 




STO 


1 


CRCNT-T 


SAVE XMIT CHARACTER CNT 


80D34570 


* 










80034580 




LD 


L 


TADLY 


SET-UP TRANSMIT 


80D34590 




STO 


1 


XMTAC-T 


TURNAROUND COUNT 


80D34600 


* 










80034610 


* 










80D34620 




LD 


I 


XMRCV 


FETCH DATA ADDR 


80034630 




MDX 


L 


XMRCV »1 


POINT TO NEXT PARAMETER 


80D34640 




STO 


1 


CRADR-T 


SAVE DATA ADDR 


80D34650 


* 










80034660 




LD 


1 


INITL+1-T 


GET INITIALIZE IOCC 


80D34670 




SLA 




8 




80D34680 




BSC 


L 


XMRCCZ+ 


BRANCH IF 01 AG MODE 


80D34690 











* 










80D34700 


13FA 





10A0 




* 


SLT 




32 


CLEAR A AND Q 


80D34710 
80D34720 


13FB 





C10D 




XMRC8 


LD 


1 


CRCNT-T 


FETCH CHARACTER COUNT 


80D34730 


13FC 


1 


4C04 


1402 


* 


BSC 


L 


XMRC9,E 


BR IF COUNT ODD 


80D34740 
80D34750 


13FE 


1 


C480 


1521 




LD 


I 


CRADR 


FETCH TWO CHARACTERS 


80D34760 


1400 





D201 






STO 


2 


1 


STORE IN XMIT TABLE 


80D34770 


1401 





7005 




* 


MOX 




XMRCA 


BRANCH 


80034780 
80034790 


1402 


1 


C480 


1521 


XMRC9 


LD 


I 


CRADR 


FETCH TWO CHARACTERS 


80034800 


1404 





18C8 






RTE 




8 




80D34810 


1405 





D201 






STO 


2 


1 


STORE IN XMIT TABLE 


80D34820 


1406 





18C8 




* 


RTE 




8 




80D34830 
80D34840 


1407 





7201 




XMRCA 


MDX 


2 


1 


POINT TO NEXT XMIT TBL WD 


80D34850 


1408 


1 


7401 


1521 




MDX 


L 


CRADR, 1 


POINT TO NEXT TWO CHARS 


80D34860 


140A 


1 


74FE 


1522 




MDX 


L 


CRCNT.-2 


DECRE CHAR CNT BY TWO 


80D34870 


140C 





70EE 




* 


MDX 




XMRC8 


BR IF MORE CHARACTERS 


80D34880 
80D34890 


1400 





C126 






LD 


1 


HFFFF-T 




80D34900 


140E 





D201 






STO 


2 


1 


STORE PAD CHARACTER 


80D34910 


140F 





7203 






MDX 


2 


3 


POINT TO NEXT TABLE 


80D34920 


1410 


1 


6E00 


151 E 


* 


STX 


L2 


RCADR 


SAVE TABLE ADDR 


80D34930 
80034940 


1412 





C1F7 






LD 


1 


BCSAV-T 


CK BYTE COUNT WORD 


80D34950 


1413 


1 


4C10 


1494 


* 


BSC 


L 


CAIO,- 


BR IF NO CHAIN 


80D34960 
80D34970 


1415 





C1D9 






LD 


1 


RCADR-T 


SET UP 


80D34980 


1416 





9100 






S 


1 


Dl-T 


CHAIN 


80D34990 


1417 





D2FF 




* 


STO 


2 


-1 


ADDRESS 


80D35000 
80D35010 


1418 


1 


C480 


12F1 




LD 


I 


XMRCV 


FETCH NEXT BCW 


80D35020 


141A 





1002 






SLA 




2 




80035030 


141B 


1 


4C30 


13BB 


* 


BSC 


L 


XMRC6+2,Z- 


BR IF RECEIVE NEXT 


80035040 
80D35050 


141D 





C1BC 






LD 


1 


SYN-T 


STORE SYN'S 


80D35060 


141E 





D2FE 






STO 


2 


-2 


IN TRANSMIT 


80035070 


141F 





D201 






STO 


2 


1 


TABLE 


80 D3 5080 


1420 


1 


C480 


12F1 




LD 


I 


XMRCV 


FETCH NEXT BCW 


80D35090 


1422 


1 


4C20 


13BF 


* 


BSC 


L 


XMR6A,Z 


BR IF NOT ZERO 


80035100 
80D35110 


1424 





C2FF 






LD 


2 


-1 


SET UP 2ND 


80D35120 


1425 





D202 




* 


STO 


2 


2 


TABLE CHAIN ADDR 


80D35130 
80D35140 


1426 





C11A 






LD 


1 


HE002-T 


STORE 2ND 


80D35150 


1427 





D200 






STO 


2 





TABLE BCW 


80D35160 


1428 


1 


7401 


12F1 




MDX 


L 


XMRCV, 1 


SET UP RETURN ADDR 


80035170 


142A 


1 


4C00 


1494 


* 

* 


BSC 


L 


CAIO 


GO TO START I/O 


80D35180 
80D35190 
80D35200 


142C 


1 


C480 


1521 


XMRCC 


LD 


I 


CRADR 


FETCH TWO CHARACTERS 


80D35210 


142E 


1 


4400 


14A2 




BSI 


L 


OCODE 


BUILD DECODE WORDS 


80D35220 


1430 





180F 






SRA 




15 




80D35230 


1431 





01DE 




* 


STO 


1 


TEMP1-T 


SET IND IF 1ST CHAR DLE 


80D35240 
80D35250 


1432 


1 


C480 


1521 




LD 


I 


CRADR 


FETCH TWO CHARACTERS 


80D35260 


1434 





1808 






SRA 




8 


POSITION RIGHT CHAR 


80035270 


1435 





E911 






OR 


1 


HFFOO-T 


SET DATA FLAG BITS 


80 03 52 80 


1436 





D201 






STO 


2 


1 


STORE IN XMIT TABLE 


80D35290 


1437 


1 


74FF 


1522 




MDX 


L 


CRCNT,-1 


DECRE CHARACTER COUNT 


80 D3 5300 


1439 





7001 






MDX 




XMRCE 


SKIP IF CNT NOT ZERO 


80D35310 


143A 





7042 




* 


MDX 




XMRCL 


BR IF COUNT ZERO 


80D35320 
60035330 


143B 





C10B 




XMRCE 


LD 


1 


D51-T 




80035340 


143C 





D1CD 




* 


STO 


1 


CNTA-T 


SET COUNTER A=51 


80D35350 
80D35360 


143D 





7202 




XMRCF 


MOX 


2 


2 


UPDATE XMIT TABLE ADDR 


80D35370 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



06N0V70 
431323 



PROG ID 


080D-0 


DATE 


14N0V69 


30JAN70 


20MAR70 


06N0V70 


PAGE 


26 


EC NO. 


431319 


431319A 


431320 


431323 



PROG 10 
PAGE 



080D-0 
26A 



1) 1) (I (I I 
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* 












80D35380 


143E 





C1CD 






LD 


1 


CNTA-T 






80D35390 


143F 





9100 






S 


1 


Dl-T 


DECRE COUNT A BY ONE 


80D35400 


1440 


1 


4C08 


1475 


* 


BSC 


L 


XMRCK, + 


BR IF ZERO 




80D35410 
80035420 


1442 





D1CD 






STO 


1 


CNTA-T 






80D35430 


1443 


1 


4C04 


144A 


* 


BSC 


L 


XMRCG, E 


BR IF CNT A ODD 




80D35440 
80D35450 


1445 


1 


C480 


1521 




LD 


I 


CRADR 


FETCH TWO CHARACTERS 


80D35460 


1447 


1 


7401 


1521 




MOX 


L 


CRADR,1 


POINT TO NEXT TWO I 


CHARS 


80D35470 


1449 





7003 




* 


MDX 




XMRCG+3 


BR TO STORE RIGHT > 


CHAR 


80D35480 
80D35490 


144A 


1 


C480 


1521 


XMRCG 


LD 


I 


CRADR 


FETCH TWO CHARACTERS 


80D35500 


144C 





1808 






SRA 




8 


POSITION TO STORE 


LEFT CH 


80D35510 


1440 





E911 






OR 


1 


HFFOO-T 


SET DATA FLAG BITS 




80D35520 


144E 





D201 






STO 


2 


1 


STORE CHAR IN XMIT 


TABLE 


80D35530 


144F 


1 


4400 


14A2 


* 


BSI 


L 


DC ODE 


BUILO DECODE WORDS 




80D35540 
80D35550 


1451 


1 


74FF 


1522 


XMRCH 


MOX 


L 


CRCNT,-1 


OECRE CHARACTER COUNT 


80D35560 


1453 





700D 






MDX 




XMRCJ 


BR IF COUNT NOT ZERO 


80D35570 










* 












80D35580 


1454 





1085 






SLT 




5 


CHECK 




80D35590 


1455 





100E 






SLA 




14 


END CHARACTER 




80D35600 


1456 


1 


4C20 


145B 


* 


BSC 


L 


XMRCI.Z 


BR IF ETB OR ETX 




80035610 
80D35620 


1458 





1093 






SLT 




19 






80D35630 


1459 


1 


4C10 


1470 


* 


BSC 


L 


XMRCL,- 


BR IF NOT ITB END ( 


CHAR 


80D35640 
80D35650 


145B 





7201 




XMRCI 


MDX 


2 


1 


SAVE SPACE FOR ONE 


BCC 


80D35660 


14 5C 


1 


C400 


0815 




LD 


L 


CODE 


CHECK EDIT 




80D35670 


145E 





4818 






BSC 




+- 


SKIP IF USASCII 




80D35680 


145F 





7201 






MDX 


2 


1 


2ND BCC IF EBCDIC 




80D35690 


1460 





701C 




* 


MDX 




XMRCL 


BRANCH 




80D35700 
80035710 


1461 





C1DE 




XMRCJ 


LD 


1 


TEMP1-T 






80035720 


1462 


1 


4C18 


146C 


* 


BSC 


L 


XMRJ1,+- 


BR IF NORMAL TEXT 




80D35730 
80D35740 


1464 





1090 






SLT 




16 


CK FOR OLE CHAR 




80D35750 


1465 


1 


4C10 


143D 




BSC 


L 


XMRCF, - 


BR IF CHAR IS NOT OLE 


80D35760 










* 












80D35770 


1467 





C1DD 






LD 


1 


CRCNT-T 


CK IF OLE IS 




80D35780 


1468 





1801 






SRA 




1 


PART OF END SEQUENCE 


80035790 


1469 





4820 






BSC 




Z 


SKIP IF OLE END 




80D35800 


146A 





7201 






MDX 


2 


1 


SAVE SPACE FOR OLE 


DIAG WD 


80035810 


146B 





70D1 




* 


MDX 




XMRCF 


GO TO PROCESS NEXT 


WD 


80D35820 
80035830 


146C 





1098 




XMRJ1 


SLT 




24 


CK FOR ITB CHAR 




80D35840 


146D 


1 


4C10 


143D 


* 


BSC 


L 


XMRCF, - 


BR IF NOT ITB 




80D35850 
80D35860 


146F 





7201 






MDX 


2 


1 


SAVE SPACE FOR ONE 


BCC 


80035870 


1470 


1 


C400 


0815 




LD 


L 


CODE 


CK CODE 




80D35880 


1472 





4818 






BSC 




+- 


SKIP IF USASCII 




80D35890 


1473 





7201 






MDX 


2 


1 


SAVE SPACE FOR 2ND 


BCC 


80D35900 


1.474 





70C8 




* 


MDX 




XMRCF 


GO TO PROCESS NEXT 


CHAR 


80D35910 
80D35920 


1475 





7402 


0000 


XMRCK 


MDX 


L 


*-*,2 


INCRE XMIT BYTE CNT BY 2 


80D35930 


1477 





C1BC 






LD 


1 


SYN-T 


INSERT TWO EXTRA 




80035940 


1478 





E911 






OR 


1 


HFFOO-T 


SYN CHARACTERS IN 




80D35950 


1479 





D201 






STO 


2 


1 


XMIT TABLE TO 




80D35960 


147A 





D203 






STO 


2 


3 


PREVENT HARDWARE 


80 03 59 70 


147B 





7202 






MDX 


2 


2 


INSERTION 




80035980 


14 7C 





70BE 




* 


MDX 




XMRCE 


BRANCH 




80 D3 59 90 
80D36000 


1470 





C126 




XMRCI 


LD 


1 


HFFFF-T 


STORE PAD 




80D36010 


147E 





D203 






STO 


2 


3 


CHARACTERS 




80036020 


147F 





D205 






STO 


2 


5 


IN XMIT TABLE 




80036030 


1480 





7207 






MDX 


2 


7 


POINT TO NEXT TABLE 


80D36040 


1481 


1 


6E00 


151E 




STX 


L2 


RCADR 


SAVE NEXT TABLE ADDR 


80D36050 











* 










80D36060 


1483 





C1F7 






LD 


1 


BCSAV-T 


CK BCW 


80D36070 


1484 


1 


4C10 


1494 


* 


BSC 


L 


CAIO,- 


BR IF NO CHAIN 


80036060 
80D36090 


1486 





C1D9 






LD 


I 


RCADR-T 


SET UP 


80D36100 


1487 





9100 






S 


1 


Dl-T 


CHAIN 


80D36U0 


1488 





D2FF 




* 


STO 


2 


-1 


ADDRESS 


80D36120 
80D36130 


1489 


1 


C480 


12F1 




LD 


I 


XMRCV 


FETCH NEXT BCW 


80D36140 


148B 





1002 






SLA 




2 




80036150 


148C 


1 


4C30 


13BB 


* 


BSC 


L 


XMRC6+2, 


Z- BR IF RECEIVE NEXT 


80D36160 
80D36170 


148E 





C1BC 






LD 


1 


SYN-T 


REPLACE 


80D36180 


148F 





E911 






CR 


1 


HFFOO-T 


PADS WITH 


80D36190 


1490 





D2FE 






STO 


2 


-2 


SYN CHARACTERS 


80D36200 


1491 





D2FC 






STO 


2 


-4 




80D36210 


1492 


1 


4C00 


13BB 


* 

* 


BSC 


L 


XMRC6+2 


GO TO PROCESS NEXT TABLE 


80D36220 
80D36230 
80D36240 


1494 





099F 




CAIO 


XIO 


1 


CLEAR-T 


CLEAR CA 


80D36250 


1495 





09A5 






XIO 


1 


ENABL-T 


ENABLE CA 


80036260 


1496 





09AB 






XIO 


1 


DSWRS-T 


RESET DSW 


80D36270 


1497 





09A3 




* 


XIO 


1 


INITL-T 


INITIALIZE CA 


80D36280 
80D36290 


1498 





6500 


0000 


INTX 


LDX 


LI 


*-* 


RESTORE XR1 


80D36300 


149A 





6600 


0000 




LDX 


L2 


*-* 


RESTORE XR2 


80D36310 


149C 


1 


C400 


081C 




LO 


L 


TSSW 




80D36320 


149E 


1 


4C98 


0976 


* 


BSC 


I 


INT.+- 


EXIT INT IF NO TIMESHARE 


80D36330 
80D36340 


14A0 





4C80 


012D 


* 


BSC 


I 


START 


GO TO MONITOR 


80D36350 
80D36360 
80D36370 










**************************************************** go 03 (. 3 8 o 










* 










80D36390 










* 






CONTROL 


CHARACTER DECODE SUBROUTINE 


80D36400 










* 










80D36410 










**************************************************** go D36420 










* 










80D36430 


14A2 





0000 




DC ODE 

* 


DC 




*-* 




80D36440 
80D36450 


14A3 





6B0C 




* 


STX 


3 


DCDX+1 


SAVE XR3 


80036460 
80D36470 


14A4 





DO 38 






STO 




CHAR2 


SAVE TWO CHARACTERS 


80036480 


14A5 





1808 






SRA 




8 




80D36490 


14A6 





400C 




* 


BSI 




SCAN 


DECODE LEFT CHARACTER 


80D36500 
80D36510 


14A7 





CO 35 






LD 




CHAR2 


FETCH TWO CHARACTERS 


80D36520 


14A8 





18D0 






RTE 




16 




80D36530 


14A9 





D033 






STO 




CHAR2 


SAVE LEFT CHAR DECODE 


80D36540 


14AA 





1088 






SLT 




8 




80D36550 


14AB 





1010 






SLA 




16 




80D36560 


14 AC 





1088 






SLT 




8 


GET RIGHT CHAR IN ACC 


80D36570 


14AD 





4005 




* 


BSI 




SCAN 


DECODE RT CHAR 


80D36580 
80D36590 


14AE 





E82E 




* 


OR 




CHAR2 


COMBINE L £ R CHAR COOES 


80D36600 
80D36610 


14AF 





6700 


0000 


DCDX 


LDX 


L3 


*-* 


RESTORE XR3 


80D36620 


14B1 


1 


4C80 


14A2 


* 


BSC 


I 


DC ODE 


RETURN 


80D36630 

80D36640 

• 80D36650 

80 D3 6660 










* 






POSITION 


DECODE BIT IN A OR 










* 










80D36670 


14B3 


1 


14B4 




SCAN 

* 


DC 


*- 


* 


ENTER 


80D36680 
80D36690 


14B4 





D027 






STO 




CHAR1 


SAVE CHAR TO DECODE 


80D36700 


14B5 





630F 




* 


LDX 


3 


15 




80D36710 
80D36720 


14B6 





C025 




SCAN1 


LD 




CHAR1 


FETCH CHARACTER 


80D36730 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



20MAR7O 
431320 



06N0V70 
431323 



PROG 


ID 


080D-0 


DATE 


14N0V69 


30JAN70 


20MAR70 


06N0V70 


PAGE 




27 


EC NO. 


431319 


431319A 


431320 


431323 



PROG ID 
PAGE 



080D-0 
27A 
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(l TCA 

r 


TRANSMIT/ 
14B7 


*E 

1 


CEIVE 
F700 


TEST 
14F3 




EOR 


L3 


ACKO-l 


COMPARE TO CONTROL CHAR 


80D36740 




1489 


1 


E400 


156E 




AND 


L 


HOOFF 




B0D36750 


c 


14BB 


1 


4C18 


14D6 




BSC 


L 


SCAN6.+- 


BR IF CONT CHAR FOUND 


80D36760 










* 










80D36770 




14BD 





73FF 






MOX 


3 


-1 


SKIP IF NOT A CONT CHAR 


80D36780 


( 


14BE 





70F7 






MDX 




SCAN1 


TRY NEXT CONTROL CHAR 


80D36790 










* 










80036800 




14BF 





C01C 






LD 




CHAR1 


FETCH CHARACTER 


80036810 


i 


14C0 





4804 




SCAN2 


BSC 




E 


SKIP IF BIT 15 OFF 


80D36820 


\ 


14C1 





7301 






MOX 


3 


1 


ADD ONE TO COUNT 


80D36830 




14C2 





1801 






SRA 




1 


DROP ONE BIT 


80D36840 


( 


14C3 


1 


4C20 


14C0 


* 


BSC 


L 


SCAN2.Z 


BR IF MORE BITS 


80D36850 
80D36860 




14C5 





6818 






STX 


3 


CHAR3 




80D36870 




14C6 





C017 






LD 




CHAR3 


GET BIT COUNT IN ACC 


80036880 




14C7 


1 


4C04 


14CC 


* 


BSC 


L 


SCAN4 t E 


BRACH IF ODD COUNT 


80D36890 
80D36900 


/ 


14C9 





6316 






LDX 


3 


22 




80D36910 


\ 


14CA 





73FA 




SCAN3 


MDX 


3 


-6 


NOP IF EBCDIC CODE 


80D36920 


/" 


14CB 





700A 




* 


MDX 




SCAN6 


GO TO POSITION DECODE BIT 


80D36930 
80D36940 




14CC 





630F 




SCAN4 


LDX 


3 


15 


SET X3 TO SEVEN 


80D36950 




14CD 





COOE 






LD 




CHAR1 


FETCH CHARACTER 


80D36960 


,■ 


14CE 





1008 






SLA 




8 




80D36970 




14CF 





1001 




SCANS 


SLA 




1 


NOP IF EBCDIC CODE 


80D36980 




1400 





1800 






SRA 




13 




80D36990 




1401 


1 


F400 


1546 




EOR 


L 


03 




80D37000 




1403 


1 


4C18 


1406 


* 


BSC 


L 


SCAN6.+- 


BR IF POSSIBLE STICK SEQ 


80D37010 
80037020 




„ 1405 





6316 




* 


LDX 


3 


22 


NOT CONTROL CHARACTER 


80D37030 
80D37040 




14D6 





10A0 




SCAN6 


SLT 




32 


CLEAR A ANO Q 


80037050 




14D7 


1 


C400 


1560 




LD 


L 


H0010 


GET DECODE BIT AND 


80D37060 




1409 





1B80 






SRT 


3 





POSITION IN A OR 


80D37070 




140A 


1 


4C80 


14B3 


* 
* 


BSC 


I 


SCAN 


RETURN 


80D37080 
80037090 
80037100 




14DC 





0000 




CHAR1 


DC 




*-* 


TEMPORARY 


80D37110 




1400 





0000 




CHAR 2 


DC 




*-* 


STORAGE 


80D37120 




140E 





0000 




CHAR3 

* 
* 


DC 




*-* 


AREA 


80037130 
80037140 
80D37150 
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********************* *****************#*************80D37 160 

* 80D37170 

* CONSTANTS, INDICATORS, IOCC'S 80037180 

* 80D37190 
****************************************************8 0037200 



14E0 




0000 


IOCCS 

* 


BSS 


E 


IOCC"S 






80D37210 
80037220 


14E0 





0000 


SNSOP 


DC 


*-* 


SENSE OPERATING 


OSW 


80D37230 


14E1 





0700 


* 


DC 


/0700 


IOCC 






80037240 
80D37250 


14E2 





0000 


SNSBC 


DC 


*-* 


SENSE BYTE 


COUNT OSW 


80D37260 


14E3 





0704 


* 


DC 


/0704 


IOCC 






80D37270 
80037280 


14E4 





0000 


CLEAR 


DC 





CLEAR CA 






80D37290 


14E5 





0718 


* 


DC 


/0718 


IOCC 






80D37300 
80D37310 


14E6 





0000 


RESET 


DC 





RESET CA 






80D37320 


14E7 





0709 


* 


OC 


/0709 


IOCC 






80D37330 
80D37340 


14E8 


1 


176B 


INITL 


DC 


XMRCT 


INITIALIZE 


TCA 




80037350 


14E9 





0500 


* 


DC 


/0500 


IOCC 






80D37360 
80D37370 


14EA 





0000 


ENABL 


OC 





ENABLE TCA 






80D37380 


14EB 





0710 


* 


DC 


/0710 


IOCC 






80D37390 
80D37400 


14EC 





0000 


TIMER 


DC 





START CONTINUE 


TIMER 


80D37410 



14ED 





0720 


* 


DC 


/0720 


IOCC 


80D37420 
80D37430 


14EE 





0000 


ANSWR 


DC 





ENABLE AUTO ANSWER 


80 D3 7440 


14EF 





0730 


* 


DC 


/0730 


IOCC 


80037450 
80D37460 


14F0 





0000 


DSWRS 


OC 





SENSE DSW WITH RESET 


80D37470 


14F1 





0701 


* 


OC 


/0701 


IOCC 


80D37480 
80D37490 
80D37500 








* 




CONTROL 


CHARACTERS AND SEQUENCES 


80D37510 








* 








80D37520 


14F2 





0000 


ACKS 


DC 


*-* 


CURRENT ACK 


80D37530 


14F3 





0000 


* 


DC 


*-* 


NEXT ACK 


80D37540 
80D37550 


14F4 





1070 


ACKO 


DC 


/1070 


EVEN ACKNOWLEDGE 


80D37560 


14F5 





1061 


ACK1 

* 


DC 


/1061 


000 ACKNOWLEDGE 


80D37570 
80037580 


14F6 





106B 


WACK 


DC 


/106B 


WAIT - POSITIVE ACK 


80037590 


14F7 





107C 


RVI 

* 


DC 


/107C 


REVERSE INTERRUPT 


80D37600 
80D37610 


14F8 





1010 


DLE 


DC 


/1010 


DATA LINK ESCAPE 


80D37620 


14F9 





0101 


SOH 


DC 


/0101 


START OF HEADING 


80D37630 


14FA 





0202 


STX 


DC 


/0202 


START OF TEXT 


80D37640 


14FB 





2626 


ETB 


DC 


/2626 


END OF BLOCK 


80D37650 


14 FC 





0303 


ETX 


DC 


/0303 


END OF TEXT 


80D37660 


14FD 





3737 


EOT 


DC 


/3737 


END OF TRANSMISSION 


80D37670 


14FE 





2D2D 


ENO 


DC 


/2D2D 


ENQUIRY 


80D37680 


14FF 





3D3D 


NAK 


DC 


/3D3D 


NEGATIVE ACKNOWLEDGE 


80037690 


1500 





1F1F 


ITB 


DC 


/1F1F 


END OF INTERMEDIATE BLOCK 


80037700 


1501 





3232 


SYN 


DC 


/3232 


SYNCHRONOUS IDLE 


80D37710 


1502 





2E2E 


ACK 

* 


DC 


/2E2E 


POSITIVE ACKNOWLEDGEMENT 


80037720 
80D37730 


1503 





022D 


TTO 


DC 


/0220 


TEMPORARY TIME OELAY 


80D37740 


1504 





1037 


. DISC 


DC 


/1037 


DISCONNECT 


80037750 


1505 





0203 


STETX 


DC 


/0203 


STX ETX SEQUENCE 


80037760 


1506 





0232 


STSYN 


DC 


/0232 


STX SYN SEQUENCE 


80D37770 


1507 





0227 


STESC 


DC 


/0227 


STX ESC SEQUENCE 


80D37780 


1508 





32C1 


SYNAA 


DC 


/32C1 


SYN, A 


80D37790 


1509 





61C1 


PRNTA 


DC 


/61C1 


PRINTER SELECT, A 


80D37800 


150A 





F4C1 


PNCHA 


DC 


/F4C1 


PUNCH SELECT, A 


80D37810 


150B 





1002 


DLSTX 


DC 


/1002 


DLE STX SEQUENCE 


80D37820 


150C 





1003 


DLETX 

* 


DC 


/1003 


DLE ETX SEQUENCE 


80D37830 
80037840 








* 




PROGRAM 


INDICATORS 


80D37860 








* 








80D37870 


150D 





0000 


PGRDY 


DC 


*-* 


PROGRAM READY 


80D37880 


150E 





0000 


PGBSY 


DC 


#-* 


PROGRAM BUSY 


80D37890 


150F 





0000 


TRCPT 


DC 


*-* 


TRACE TABLE POINTER 


80D37900 


1510 





0000 


WDCNT 


DC 


*-* 


WORD COUNTER 


80D37910 


1511 





0000 


MASK 


DC 


*-* 


DSW MASK ' 


80D37920 


1512 





0000 


CNTA 


DC 


*-* 


GENERAL COUNTER A 


80D37930 


1513 





0000 


INTTM 


DC 


*-* 


INTERRUPT WAIT TIMER 


80037940 


1514 





0000 


ANYMS 


DC 


*-* 


MESSAGE STORED IND 


80D37950 


1515 





0000 


ANYER 


DC 


*-* 


ERROR OCCURED IND 


80D37960 


1516 





0000 


TEXT 


DC 


*-* 


TEXT RECEIVED IND 


80D37970 


1517 





0000 


X99ID 


DC 


*-* 


X=99 RFT RECEIVED 


80D37980 


1518 





0000 


ABORT 


DC 


*-* 


CANCEL OR TTD.RCVD IND 


80D37990 


1519 





0000 


NORCV 


DC 


*-* 


NOTHING RCVD IND 


80D38000 


151A 





0000 


RDYSW 


DC 


*-* 


D.S. READY INDICATOR 


80D38010 


151B 





0000 


RETRY 


DC 


*-* 


RETRY COUNTER 


80038020 


151C 





0000 


CLRSM 


DC 


*-* 


CA CLEAR IND 


80D38030 


151D 





0000 


XMADR 


DC 


*-* 


XMIT TABLE ADDR 


80 D3 8040 


151E 





0000 


RCADR 


DC 


*-* 


RECEIVE TABLE AOOR 


80D38050 


151F 





0000 


RCVBC 


OC 


*-* 


RECEIVE BYTE COUNT 


80D38060 


1520 





0000 


ENDCH 


DC 


*-* 


END CHARACTERS RECEIVED 


80D38070 


1521 





0000 


CRADR 


DC 


*-* 


GENERAL CHAR ADDR POINTER 


80D38080 


1522 





0000 


CRCNT 


DC 


*-* 


GENERAL CHAR COUNTER 


80D38090 
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1523 OOOO 


TEMPI DC 


*-* 


TEMPORARY STORAGE 


80D38100 




1524 0000 


TEMP2 DC 


*-* 


TEMPORARY STORAGE 


80D38110 


( 


1525 0000 


TEMP3 DC 


*-* 


TEMPORARY STORAGE 


80D3812C 


1526 0000 


IDENO OC 


*-* 


ID SEO END CHAR AODR 


80D3813C 




1527 0000 


IDENQ DC 


*-* 


ID ENQ END SEO 


80D38140 


1 


1528 0000 


IOACK OC 


*-* 


ID ACKO END SEO 


80D38150 




1529 0000 


IONAK OC 


*-* 


ID NAK END SEO 


80D38160 




152A 0000 


CMOOE DC 


*-* 


CONTROL MODE IND 


80D38170 


( 


152B 0000 


MASTR OC 


*-* 


MASTER STATUS IND 


80D381S0 


\ 


152C 0000 


MXFER DC 


*-* 


MSG TRANSFER STATE IND 


80D38190 




152D 0000 


IDSW DC 


*-* 


ID MODE INDICATOR 


80D38200 


( 


152E 0000 


RTNNO DC 


*-* 


CURRENT ROUTINE NUMBER 


80D38210 


152F 0000 


RFTSL DC 


*-* 


RFT S£t ECTION STORAGE 


80D38220 




1530 0000 


REQ DC 


*-* 


XMIT RFT REQUEST IND 


80D38230 


( 


1531 0000 


ALL DC 


*-* 


ALL RFT REQUEST IND 


80D38240 


1532 0000 


IDCNT DC 


*-# 


ID SEQUENCE CHAR COUNT 


80D38250 




1533 0000 


NKLST DC 


*-* 


NAK SENT LAST XMIT IND 


80D38260 


( 


1534 0000 


TOSW DC 


*-* 


TIMEOUT OCCURED IND 


80D38270 


\ 


1535 0000 


HACKS DC 


#~* 


RECEIVING WACKS IND 


80D38280 




1536 0000 


YCNT DC 


*-* 


Y COUNTER 


80D38290 




1537 0000 


OPT IN DC 


#-* 


OPTION SWITCH STORAGE 


80D38300 




1538 0000 


STSW DC 


*-* 


START OF TEST IND 


80D38310 




1539 0000 


ENDSW DC 


*-* 


END OF TEST IND 


80D38320 




153A 0000 


RMAOR DC 


*-* 


REMOTE UNIT ADDR 


80038330 




153B 0000 


CNTPT DC 


*-* 


TRACE CHAR CNT ADR POINTER 


80D38340 




153C 0000 


BCSAV DC 


*-* 


BYTE CNT WD STORAGE 


80D38350 




• ' 1530 0000 


XMTAC DC 


*-* 


TRANSMIT TUN AROUND COUNT 


80D38360 




153E 0000 


RCTAC DC 

* 


*-* 


RECEIVE TURNAROUND COUNT 


80D38370 
80D38380 




153F 0000 


DC 







80D38390 




1540 0000 


DC 







80D38400 




1541 0000 


DPERR OC 

* 


*-* 


OPTION ERROR PRINT IND 


80D38410 
80D38420 




1542 0000 


DC 







80D38430 




1543 0000 


DC 


.0 




80D38440 




1544 0000 


STMSG DC 

* 


*-* 


START MSG PRINT IND 


80D38450 
80D38460 
80D38470 
















* 


PROGRAM 


CONSTANTS 


80D38480 






* 






80038490 




1545 0000 


T BSS 

* 





CONSTANT TABLE REF ADDR 


80D38500 
80D38510 




1545 0001 


Dl DC 


1 




80D38520 




1546 0003 


D3 OC 


3 




80D38530 




1547 0076 


0118 DC 


118 




80038540 




1548 0002 


D2 DC 


2 




80D38550 




1549 0005 


05 DC 


5 




80D38560 




154A OOOE 


014 DC 


14 




80D38570 




154B 0008 


D8 OC 


8 




80D38580 




154C OOOA 


010 DC 


10 




80D38590 




154D 0013 


D19 DC 


19 




80D38600 




154E 0010 


D29 DC 


29 




80D38610 




154F 0032 


D50 DC 


50 




80D38620 




1550 0033 


D51 DC 


51 




80D38630 




1551 0063 


099 DC 

* 


99 




80D38640 
80D38650 




1552 AAAO 


HAAAO DC 


/AAAO 




80D38660 




1553 EEE1 


HEEE1 OC 


/EEE1 




80D38670 




1554 8000 


H8 000 DC 


/8000 




80D38680 




1555 1900 


H1900 DC 


/1900 




80038690 




1556 FFOO 


HFFOO DC 


/FFOO 




80D38700 




1557 EOOO 


HEOOO DC 


/EOOO 




80D38710 


1 


1558 AOOO 


HAOOO DC 


/AOOO 




80D38720 


1, 


1559 D003 


HD003 DC 


/D003 




80D38730 




155A E004 


HE004 DC 


/E004 




80D38740 




155B 0202 


H0202 DC 


/0202 




80D30750 


[ 


155C OFOF 


HOFOF OC 


/OFOF 




80D38760 




1550 8001 


H8001 OC 


/8001 




80D38770 
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155E 





C002 


155F 





E002 


1560 





0080 


1561 





2000 


1562 





5503 


1563 





5555 


1564 





AA55 


1565 





AAAA 


1566 





32AA 


1567 





7000 


1568 





D001 


1569 





D002 


156A 





F840 


156B 





FFFF 


156C 





FFF9 


156D 





0010 


156E 





OOFF 


156F 





FOOO 


1570 





3000 


1571 





BOOO 


1572 





1000 


1573 





0000 


1574 





0000 


1575 





0000 


1576 





0000 


1577 





0000 


1578 





0000 


1579 





0000 


157A 





0000 


157B 





0000 


157C 





0000 


157D 


0. 


0000 


157E 





0000 


157F 





0000 



1580 





0000 


1581 


1 


0AE4 


1582 


1 


0B3E 


1583 


1 


0B82 


1584 


1 


0B87 


1585 


1 


OBBD 


1586 


1 


0BC9 


1587 


1 


0BE5 


1588 


1 


0CO6 


1589 


1 


0C32 


158A 


1 


0C8 5 


158B 


1 


0C8C 


158C 


1 


0C9A 


158D 


1 


0CA2 


158E 


1 


0DA2 


158F 


1 


ODBO 


1590 


1 


0DD5 


1591 


1 


ODDA 


1592 


1 


ODE 4 


1593 


1 


ODEA 


1594 


1 


0E69 


1595 


1 


0E70 


1596 


1 


0E9A 



NOP 



HC002 DC 
HE002 DC 
H0080 DC 
H2000 DC 
H5503 DC 
H5555 DC 
HAA55 DC 
HAAAA DC 
H32AA OC 
H7000 DC 
HD001 DC 
HD002 DC 
HF840 DC 
HFFFF DC 
HFFF9 DC 
H0010 DC 
HOOFF OC 
HFOOO DC 
ZONEO DC 
ZONEE DC 
NOP 

* 

* 
* 

TMVLD DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

* 
* 
* 

* 

RTTBL DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



/C002 
/E002 
/0080 
/2000 
/5503 
/5555 
/AA55 
/AAAA 
/32AA 
/7000 
/D001 
/D002 
/F840 
/FFFF 
/FFF9 
/0010 
/OOFF 
/FOOO 
/3000 
/BOOO 




DECIMAL 
ZONE FIELDS 



VALID TEST MESSAGE NUMBERS 

*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
#-* 
*-* 
*-* 
*-* 



ROUTINE ADDRESS TABLE 





RTN01 

RTN02 

RTN03 

RTN04 

RTN05 

RTN06 

RTN07 

RTN08 

RTN09 

RTNOA 

RTNOB 

RTNOC 

RTNOD 

RTNOE 

RTNOF 

RTN10 

RTN11 

RTN12 

RTN13 

RTN14 

RTN15 

RTN16 



ROUTINE 01 
ROUTINE 02 
ROUTINE 03 
ROUTINE 04 
ROUTINE 05 
ROUTINE 06 
ROUTINE 07 
ROUTINE 08 
ROUTINE 09 
ROUTINE OA 
ROUTINE OB 
ROUTINE OC 
ROUTINE OD 
ROUTINE OE 
ROUTINE OF 
ROUTINE 10 
ROUTINE 11 
ROUTINE 12 
ROUTINE 13 
ROUTINE 14 
ROUTINE 15 
ROUTINE 16 



PART NO. 2279480 
PAGE 29A 



80D38780 

80D38790 

80D38800 

80D38810 

80D38820 

80D38830 

80D38840 

80D38850 

80D38860 

80D38870 

80D38880 

80D38890 

80D38900 

80D38910 

80D38920 

80D38930 

80D38940 

80038950 

80038960 

80D38970 

80D38980 

80038990 

80D39000 

80D39010 

80D39020 

80D39030 

80D39040 

80D39050 

80D39060 

80D39070 

80D39080 

80D39090 

80D39100 

80039110 

80D39120 

80D39130 

80D39140 

80D39150 

80D39160 

80D39170 

80D39180 

80D39190 

80D39200 

80D39210 

80D39220 

80D39230 

80D39240 

80D39250 

80D39260 

80D39270 

80D39280 

80D39290 

80D39300 

80D39310 

80D39320 

80D39330 

80D39340 

80D39350 

80D39360 

80D39370 

80D39380 

80D39390 

80D39400 

80D39410 

80D39420 

80D39430 

80D39440 

80D39450 
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1597 


1 


0E9F 


DC 


RTN17 ROUTINE 


17 


1598 


1 


0ED7 


DC 


RTN18 ROUTINE 


18 


1599 


1 


OEDC 


DC 


RTN19 ROUTINE 


19 


159A 


1 


0F14 


DC 


RTN1A ROUTINE 


1A 


159B 


1 


0F55 


DC 


RTN1B ROUTINE 


IB 


159C 


1 


OFFF 


DC 


RTN1C ROUTINE 


1C 


159D 


1 


100C 


DC 


RTN1D ROUTINE 


ID 


159E 


1 


1017 


DC 


RTN1E ROUTINE 


IE 


159F 


1 


105B 


DC 


RTN1F ROUTINE 


IF 


15A0 


1 


1062 


DC 


RTN20 ROUTINE 


20 


15A1 


1 


1067 


DC 


RTN21 ROUTINE 


21 


15A2 


1 


1078 


DC 

* 


RTN22 ROUTINE 


22 








* 
********************************* 


»** 








* 
* 
*********** 

* 

TM4 DC 


TEST MESSAGE TABLES 








************************ 


15A3 





OOF 7 


247 




15A4 





3200 


DC 


/3200 




15A5 





0405 


DC 


/0405 




15A6 





0607 


DC 


/0607 




15A7 





0809 


DC 


/0809 




15A8 





OAOB 


DC 


/OAOB 




15A9 





OCOD 


DC 


/OCOD 




15AA 





OEOF 


DC 


/OEOF 




15AB 





1112 


DC 


/1112 




15AC 





1314 


DC 


/1314 




15 AD 





1516 


DC 


/1516 




15AE 





1718 


DC 


/1718 




15AF 





191A 


DC 


/191A 




15B0 





1B1C 


DC 


/IB1C 




15B1 





1D1E 


DC 


/1D1E 




15B2 





2021 


DC 


/2021 




15B3 





2223 


DC 


/2223 




15B4 





2425 


DC 


/2425 




15B5 





2728 


DC 


/2728 




15B6 





292A 


DC 


/292A 




15B7 





2B2C 


DC 


/2B2C 




15B8 





2F30 


DC 


/2F30 




15B9 





3133 


DC 


/3133 




15BA 





3435 


DC 


/3435 




15BB 





3638 


DC 


/3638 




15BC 





393A 


DC 


/393A 




15BD 





3B3C 


DC 


/3B3C 




15BE 





3E3F 


DC 


/3E3F 




15BF 





4041 


DC 


/4041 




15C0 





4243 


DC 


/4243 




15C1 





4445 


DC 


/4445 




15C2 





4647 


DC 


Z4647 




15C3 





4849 


DC 


/4849 




15C4 





4A4B 


DC 


/4A4B 




15C5 





4C4D 


DC 


/4C4D 




15C6 





4E4F 


DC 


/4E4F 




15C7 





5051 


DC 


/5051 




15C8 





5253 


DC 


/5253 




15C9 





5455 


DC 


/5455 




15CA 





5657 


DC 


Z5657 




15CB 





5859 


DC 


/5859 




15CC 





5A5B 


DC 


/5A5B 




15CD 





5C5D 


DC 


/5C5D 




15CE 





5E5F 


DC 


/5E5F 




15CF 





6061 


DC 


/6061 




15D0 





6263 


DC 


/6263 




15D1 





6465 


DC 


/6465 




15D2 





6667 


DC 


/6667 





80D39460 

80D39470 

80D39480 

80D39490 

80D39500- 

80D39510 

80D39520 

80D39530 

80D39540 

80D39550 

80D39560 

80D39570 

80D39580 

80D39590 

80D39600 

80D39610 

80D39620 

80D39630 

80D39640 

80D39650 

80D39660 

80D39670 

80D39680 

80D39690 

80D39700 

80D39710 

80D39720 

80D39730 

80D39740 

80D39750 

80D39760 

80D39770 

80D39780 

80D39790 

80D39800 

80D39810 

80D39820 

80D39830 

80D39840 

80D39850 

80D39860 

80D39870 

80D39880 

80D39890 

80D39900 

80D39910 

80D39920 

80D39930 

80D39940 

80D39950 

80D39960 

80D39970 

80D39980 

80039990 

80D40000 

80D40010 

80D40020 

80D40030 

8OD40O4O 

80D40050 

80D40060 

80D40070 

80D40080 

80D40090 

80D40100 

80D40110 

80D40120 

80D40130 



15D3 





6869 


15D4 





6A6B 


15D5 





6C6D 


1506 





6E6F 


15D7 





7071 


15D8 





7273 


15D9 





7475 


15DA 





7677 


15DB 





7879 


15DC 





7A7B 


15DD 





7C7D 


15DE 





7E7F 


15DF 





8081 


15E0 





8283 


15E1 





8485 


15E2 





8687 


15E3 





8889 


15E4 





8A8B 


15E5 





8C8D 


15E6 





8E8F 


15E7 





9091 


15E8 





9293 


15E9 





9495 


15EA 





9697 


15EB 





9899 


15EC 





9A9B 


15ED 





9C9D 


15EE 





9E9F 


15EF 





A0A1 


15F0 





A2A3 


15F1 





A4A5 


15F2 





A6A7 


15F3 





A8A9 


15F4 





AAAB 


15F5 





ACAD 


15F6 





AEAF 


15F7 





B0B1 


15F8 





B2B3 


15F9 





B4B5 


15FA 





B6B7 


15FB 





B8B9 


15FC 





BABB 


15FD 





BCBD 


15FE 





BEBF 


15FF 





C0C1 


1600 





C2C3 


1601 





C4C5 


1602 





C6C7 


1603 





C8C9 


1604 





CACB 


1605 





CCCD 


1606 





CECF 


1607 





D0D1 


1608 





D2D3 


1609 





D4D5 


160A 





D6D7 


160B 





D8D9 


160C 





DADB 


160D 





DCDD 


160E 





DEDF 


160F 





E0E1 


1610 





E2E3 


1611 





E4E5 


1612 





E6E7 


1613 





E8E9 


1614 





EAEB 


1615 





ECED 


1616 





EEEF 



DC 


/6869 


DC 


/6A6B 


DC 


/6C6D 


DC 


/6E6F 


DC 


/7071 


DC 


/7273 


DC 


/7475 


DC 


/7677 


DC 


/7879 


DC 


/7A7B 


DC 


/7C7D 


DC 


/7E7F 


DC 


/8081 


DC 


/8283 


DC 


/8485 


DC 


/8687 


DC 


/8889 


DC 


/8A8B 


DC 


/8C8D 


DC 


/8E8F 


DC 


/9091 


DC 


/9293 


DC 


/9495 


DC 


/9697 


DC 


/9899 


DC 


/9A9B 


DC 


/9C9D 


DC 


/9E9F 


DC 


/A0A1 


DC 


/A2A3 


DC 


/A4A5 


DC 


/A6A7 


DC 


/A8A9 


DC 


/AAAB 


DC 


/ACAD 


DC 


/AEAF 


DC 


/B0B1 


DC 


/B2B3 


DC 


/B4B5 


DC 


/B6B7 


DC 


/B8B9 


DC 


/BABB 


DC 


/BCBD 


DC 


/BEBF 


DC 


/C0C1 


DC 


/C2C3 


DC 


/C4C5 


DC 


/C6C7 


DC 


/C8C9 


DC 


/CACB 


DC 


/CCCD 


DC 


/CECF 


DC 


/D0D1 


DC 


/D2D3 


DC 


/D4D5 


DC 


/D6D7 


DC 


/D8D9 


DC 


/DADB 


DC 


/DCDD 


DC 


/DEDF 


DC 


/E0E1 


DC 


/E2E3 


DC 


/E4E5 


DC 


/E6E7 


DC 


/E8E9 


DC 


/EAEB 


DC 


/ECED 


DC 


/EEEF 



80D40140 

80D40150 

80D40160 

80D40170 

80D40180 

80D40190 

80D40200 

80D40210 

80D40220 

80D40230 

80D40240 

80D40250 

80D40260 

80D40270 

80D40280 

80D40290 

80D40300 

80D40310 

80D40320 

80D40330 

80D40340 

80D40350 

80D40360 

80D40370 

80D40380 

80D40390 

80D40400 

80D40410 

80D40420 

80D40430 

80D40440 

80D40450 

80D40460 

80D40470 

80D40480 

80D40490 

80D40500 

80D40510 

80D40520 

80D40530 

80040540 

80D40550 

80D40560 

80D40570 

80D40580 

80D40590 

80D40600 

80D40610 

80D40620 

80D40630 

80D40640 

80D40650 

80D40660 

80D40670 

80D40680 

80D40690 

80D40700 

80D40710 

80D40720 

80D40730 

80D40740 

80D40750 

80D40760 

80D40770 

80D40780 

80D40790 

80D40800 

80D40810 
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c 
c 



1617 F0F1 




DC 


/F0F1 




80D40820 


1618 F2F3 




DC 


/F2F3 




80D40830 


1619 F4F5 




DC 


/F4F5 




80D40840 


161A F6F7 




DC 


/F6F7 




80D40850 


161B F8F9 




DC 


/F8F9 




80040860 


161C FAFB 




DC 


/FAFB 




80D40870 


161D FCFD 




DC 


/FCFD 




80D40880 


161E FEFF 




DC 


/FEFF 




80D40890 


161F 0300 


* 
* 


DC 


/0300 




80D40900 
80D40910 
80D40920 


1620 C2C3 


TM12 


DC 


/C2C3 


B, C 


80D40930 


1621 C4C5 




DC 


/C4C5 


Dt E 


80D40940 


1622 C6C7 




DC 


/C6C7 


F, G 


80D40950 


1623 C8C9 




DC 


/C8C9 


H, I 


80D40960 


1624 D1D2 




DC 


/D1D2 


J, K 


80D40970 


1625 D3D4 




DC 


/D3D4 


L, M 


80D40980 


1626 0506 




DC 


/D5D6 


N, 


80D40990 


1627 D7D8 




DC 


/D7D8 


Pf 


80D41000 


1628 D9E2 




DC 


/D9E2 


R, S 


80D41010 


1629 E3E4 




DC 


/E3E4 


T, U 


80D41020 


162A E5E6 




DC 


/E5E6 


V t W 


80D41030 


162B E7E8 




DC 


/E7E8 


X, Y 


80D41040 


162C E9F0 




DC 


/E9F0 


Z, 


80D41050 


162D F1F2 




DC 


/F1F2 


It 2 


80D41060 


162E F3F4 




DC 


/F3F4 


3, 4 


80D41070 


162F F5F6 




DC 


/F5F6 


5, 6 


80D41080 


1630 F7F8 




DC 


/F7F8 


7, 8 


80D41090 


1631 F903 


* 
* 


DC 


/F903 


9, ETX 


80D41100 
80D41110 
80D41120 




**************************************************** 80 04 11 30 




* 








80D41140 




* 




TABLE 


BUILD AREAS 


80D41150 




* 








80D41160 




***************************************************#8004i i 70 




* 








80D41180 


1632 016C 


RFT 


DC 


/016C 


RFT MESSAGE AREA 


80D41190 


1633 0000 


XDEC 


DC 


*-* 


X VALUE 


80D41200 


1634 0000 


YDEC 


DC 


*-* 


Y VALUE 


80D41210 


1635 BOOO 


. NAOOR 


DC 


/BOOO 


N VALUE 


80D41220 


1636 0000 




DC 


*-* 


MULTIPOINT 


80D41230 


1637 0000 




DC 


*-* 


SELECTION 


80D41240 


1638 0000 


* 


DC 


*-* 


ADDRESS 


80D41250 
80D41260 


1639 0097 


TM 
* 


BSS 


151 


TEST MESSAGE AREA 


80D41270 
80041280 


16D0 009B 


RCVTB 

* 


BSS 


155 


RECEIVE DATA TABLE 


80D41290 
80D41300 


176B 0352 


XMRCT 

* 


BSS 


850 


XMIT/RECEIVE TABLES 


80D41310 
80D41320 


1ABD 0007 




DC 


/0007 


MESSAGE STRING FOR 


80D41330 


1ABE 0001 




DC 


/0001 


END OF TEST STATISTICS 


80D41340 


1ABF 0000 


TMOOE 


DC 


*-* 


MID 


80D41350 


1AC0 0000 


TMHEX 


DC 


*-* 


TEST MSG NUMBER 


80D41360 


1AC1 0000 


XHEX 


DC 


*-* 


X VALUE 


80D41370 


1AC2 0000 


YHEX 


DC 


*-* 


Y VALUE 


80D41380 


1AC3 0000 


TMGD 


DC 


*-* 


GOOD TEST MSGS 


80D41390 


1AC4 0000 


TMBD 


DC 


*-* 


BAD TEST MSGS 


80D41400 


1AC5 0000 


TMTO 


DC 


*-* 


TEST MSG TIMEOUTS 


80D41410 


1AC6 0000 


TMINV 

* 


DC 


*-* 


INVALID TEST MESSAGES 


80D41420 
80D41430 


1AC7 0000 




DC 


*-* 




80D41440 


I AC 8 0000 




DC 







80D41450 


1AC9 0000 


ENMSG 


DC 


*-* 


END MSG PRINT IND 


80D41460 


1ACA 0000 




DC 


*-* 




80D41470 


1ACB 0000 


* 


DC 


*-* 




80D41480 
80D41490 



1ACC 0000 



START OF TRACE TABLE 



TRCTB DC *-* 

* 
* 

************************************* ************** 
* 

* RTN 00 - PROGRAM INIT IL IZATION 

* 

*************************************************** 

* 



1ACD 


1 


6500 


1AD3 


RTNOO 


LDX 


LI 


RTOOB 


SET MLSCF ENTRY 


1ACF 


1 


6DO0 


080A 




STX 


LI 


MLSCF 


TO REQUEST TCA 


1AD1 





4C80 


012D 


A 


BSC 


I 


START 


GO TO MONITOR 


1AD3 





4480 


0131 


RTOOB 


BSI 


I 


REQDV 


REQUEST TCA 


1AD5 


1 


1ACD 






DC 




RTNOO 


DEVICE BUSY RETURN 


1AD6 


1 


0814 






DC 




DDEF 


DDEF ADDRESS 


1AD7 


1 


0975 






DC 




DVA 


TCA INT ROUTINE AODR 


1AD8 


1 


080D 




# 


DC 




TERM 


TERMINATOR ADDR 


1AD9 





61EE 




RTOOC 


LDX 


1 


-18 


INSERT CA 


1ADA 


1 


C400 


0975 




LD 


L 


DVA 


AREA CODE AND 


1ADC 


1 


EDOO 


14F3 




OR 


LI 


IOCCS+19 


LINE SELECT BIT 


1ADE 


1 


D500 


14F3 




STO 


LI 


IOCCS+19 


IN TCA 


1AE0 





7102 






MDX 


1 


2 


IOCC'S 


1AE1 





70F8 




* 


MDX 




RTOOC+l 




1AE2 


1 


C400 


0815 


LD 


L 


CODE 


CK CODE SELECT 


1AE4 


1 


4C18 


1B10 


* 


BSC 


L 


RTOOF, +- 


BR IF EBCDIC 


1AE6 





61E9 




RTOOO 


LDX 


1 


-23 


CHANGE CONTROL 


1AE7 


1 


C500 


1C65 




LD 


LI 


ACKOA+23 


CHARACTER 


1AE9 


1 


D500 


150B 




STO 


LI 


ACKO+23 


TABLE TO 


1AEB 





7101 






MDX 


1 


1 


USASCII CODE 


1AEC 





70FA 




* 


MDX 




RTOOD+1 




1AED 


1 


C400 


082B 


LD 


L 


TM01+2 


HAS TEST MSG 01 


1AEF 


1 


F400 


1C65 




EOR 


L 


TM01E 


TABLE BEEN MODIFED 


1AF1 


1 


4C20 


1AF7 


# 


BSC 


L 


RTOOE, Z 


YES, BRANCH 


1AF3 


1 


C400 


1C66 




LD 


L 


TM01A 


CHANGE TEST MSG 01 


1AF5 


1 


0400 


082B 


* 


STO 


L 


TM01+2 


END CHAR TO USASCII 


1AF7 





6105 




RTOOE 


LDX 


1 


5 




1AF8 


1 


6D00 


1573 




STX 


LI 


TMVLD 


TEST MSG 05 IS VALID 


1AFA 





7101 






MDX 


1 


1 




1AFB 


1 


6D00 


1574 




STX 


LI 


TMVLD+1 


TEST MSG 06 IS VALID 


1AFD 





7101 






MDX 


1 


1 




1AFE 


1 


6D00 


1575 




STX 


LI 


TMVLD+2 


TEST MESSAGE 07 IS VA 


1B00 





7101 






MDX 


1 


1 




1B01 


1 


6D00 


1576 


$ 


STX 


LI 


TMVLD+3 


TEST MESSAGE 08 IS VA 


1B03 


1 


C400 


1C67 




LD 


L 


RFTA 


CHANGE RFT MSG 


1B05 


1 


D400 


1632 


* 


STO 


L 


RFT 


TO USASCII CODE 


1B07 





6500 


FF71 




LDX 


LI 


-143 


CHANGE 


1B09 


1 


C500 


1CF7 


RTOOO 


LD 


LI 


TM5+143 


TEST MESSAGES 


1B0B 


1 


D500 


1632 




STO 


LI 


TM4+143 


TO USASCII 


1B0D 





7101 






MDX 


1 


1 


CODE 


1B0E 





70FA 






MDX 




RTOOO 




1B0F 





7033 




* 


MDX 




RTOOG 


BRANCH 


1B10 


1 


C400 


1572 


RTOOF 


LD 


L 


NOP 


MODIFY CONTROL 


1B12 


1 


D400 


14CA 




STO 


L 


SCAN3 


CHARACTER DECODE RTN 


1B14 


1 


D400 


14CF 


* 


STO 


L 


SCAN5 


FOR EBCDIC CODE 


1B16 


1 


C400 


156F 




LD 


L 


HFOOO 


CHANGE 


1B18 


1 


0400 


1635 




STO 


L 


NAODR 


DECIMAL 


1B1A 


1 


0400 


1570 




STO 


L 


ZONEO 


ZONES TO 
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80D41500 
80D41510 
80D41520 

*80041530 
80D41540 
80D41550 
80D41560 

*80D41570 
80D41580 
80D41590 
80D41M)0 
80D41610 
80D41620 
80D41630 
80041640 
80D41650 
80D41660 
80D41670 
80D41680 
80D41690 
80D41700 
80D41710 
80D41720 
80D41730 
80D41740 
80D41750 
80D41760 
80D41770 
80041780 
80D41790 
80D41800 
80D41810 
80 041 820 
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1B1C 


1 


0400 


1571 


* 


STO 


L 


ZONEE 


EBCDIC CODE 




80D42180 
80D42190 


1B1E 





6104 






LOX 


1 


4 


EBCDIC 




80D42200 


1B1F 


1 


6D00 


1573 




STX 


LI 


TMVLD 


TEST MSG 04 IS 


VALID 


80D42210 


1B21 





7108 






MDX 


1 


8 






80042220 


1B22 


1 


6000 


1574 




STX 


LI 


TMVLD+1 


TEST MSG 12 IS 


VALID 


80D42230 


1B24 





7101 






MDX 


1 


1 






80D42240 


1B25 


1 


6D00 


1575 




STX 


LI 


TMVLD+2 


TEST MSG 13 IS 


VALID 


80D42250 


1B27 





7101 






MDX 


1 


1 






80D42260 


1B28 


1 


6D00 


1576 




STX 


LI 


TMVLD+3 


TEST MSG 14 IS 


VALID 


80D42270 


1B2A 





7101 






MDX 


1 


1 






80D42280 


1B2B 


1 


6000 


1577 




STX 


LI 


TMVLD+4 


TEST MSG 15 IS 


VALID 


80042290 


1B2D 





7101 






MDX 


1 


1 






80042300 


1B2E 


1 


6000 


1578 


* 


STX 


LI 


TMVLD+5 


TEST MSG 16 IS 


VALID 


80042310 
80D42320 


1B30 


1 


C400 


0819 




LD 


L 


TRANS 


CK EDIT ENTRY 




80042330 


1B32 


1 


4C20 


1B43 




BSC 


L 


RTOOG tZ 


BR IF NO TRANSPARENT TEXT 


80D42340 










* 












80D42350 


1B34 





6113 






LDX 


1 


19 






80D42360 


1B35 


1 


6000 


1579 




STX 


LI 


TMVLD+6 


TEST MSG 19 IS 


VALID 


80D42370 


1B37 





6114 






LDX 


1 


20 






80D42380 


1B38 


1 


6D00 


157A 




STX 


LI 


TMVLD+7 


TEST MSG 20 IS 


VALID 


80D42390 


1B3A 





6115 






LOX 


1 


21 






80D42400 


1B3B 


1 


6D00 


157B 




STX 


LI 


TMVLD+8 


TEST MSG 21 IS 


VALID 


80D42410 


1B3D 





6116 






LDX 


1 


22 






80D42420 


1B3E 


1 


6D00 


157C 




STX 


LI 


TMVLO+9 


TEST MSG 22 IS 


VALID 


80D42430 


1B40 





6102 






LDX 


1 


2 






80D42440 


1B41 


1 


6000 


1570 


* 


STX 


LI 


TMVLD+10 


TEST MSG 02 IS 


VALID 


80042450 
80D42460 


1B43 


1 


C400 


0829 


RTOOG 


LD 


L 


TM01 


FETCH TEST MSG 


01 COUNT 


80D42470 


1B45 





1004 






SLA 




4 


DELETE 




80D42480 


1B46 





1804 






SRA 




4 


4 HIGH 




80D42490 


1B47 


1 


D400 


0829 




STO 


L 


TM01 


ORDER BITS 




80D42500 


1B49 


1 


9400 


1547 




S 


L 


D118 






80D42510 


1B4B 


1 


4C08 


1B50 


* 


BSC 


L 


RTOOH, + 


BR IF CNT LESS 


THAN 119 


80D42520 
80D42530 


1B40 


1 


4400 


1CF7 


EEE4 


BSI 


L 


EDERR 


PRINT ERROR MSG EEE4 


80D42540 


1B4F 





EEE4 




* 


DC 




/EEE4 






80042550 
80D42560 


1B50 


1 


6680 


0829 


RTOOH 


LDX 


12 


TM01 


XR2=TEST MSG 01 CHAR CNT 


80042570 


1B52 


1 


6500 


082A 




LDX 


LI 


TM01+1 


XR1=TEST MSG 01 ADOR 


80D42580 










* 












80D42590 


1B54 





C100 






LD 


1 





GET 1ST TWO CHARACTERS 


80042600 


1B55 


1 


4400 


14A2 




BSI 


L 


OCODE 


BUILD DECODE WORDS 


80D42610 










* 












80D42620 


1B57 


1 


4C28 


1B70 




BSC 


L 


RTOOM.Z+ 


BR IF TRANSPARENT TEXT 


80D42630 










* 












80042640 


1B59 





1002 






SLA 




2 






80D42650 


1B5A 


1 


4C10 


1B4D 


# 


BSC 


L 


EEE4,- 


BR IF 1ST CHAR 


NOT STX 


80D42660 
80D42670 


1B5C 





72FF 






MDX 


2 


-1 


OECRE CHAR CNT 




80042680 


1B5D 





7001 






MDX 




*+l 


BR IF OK 




80D42690 


1B5E 





70EE 




* 


MDX 




EEE4 


BR IF CNT LESS 


THAN 2 


80D42700 
80D42710 


1B5F 





1090 




RTOOJ 


SLT 




16 


GET DECODE FOR 


2ND CHAR 


80042720 


1B60 





72FF 






MDX 


2 


-1 


OECRE CHAR CNT 




80D42730 


1B61 





7001 






MDX 




*+l 


BR IF NOT END 




80042740 


1B62 





700C 






MDX 




RTOOK 


BR IF END OF TM01 TABLE 


80042750 










* 












80D42760 


1B63 





1804 






SRA 




4 






80D42770 


1B64 


1 


4C04 


1B4D 


* 


BSC 


L 


EEE4.E 


BR IF USASCII 1 


PARITY ERR 


80D42780 
80D42790 


1B66 





1804 






SRA 




4 






80042800 


1B67 


1 


4C20 


1B40 


* 


BSC 


L 


EEE4.Z 


BR IF CONTROL < 


CHAR IN TBL 


80D42810 
80D42820 


1B69 





7101 






MDX 


1 


1 


INCREMENT ADDRESS 


80D42830 


1B6A 





C100 






LD 


1 





FETCH NEXT TWO 


CHARACTERS 


80D42840 


1B6B 


1 


4400 


14A2 




BSI 


L 


DC ODE 


BUILD DECODE WORDS 


80042850 







* 
4c 








80042860 


1B6D 72FF 
1B6E 7006 




MDX 
MDX 


2 -1 
RTOOL 


DECREMENT CHAR COUNT 
BR IF NOT END 


80D42870 
80D42 880 
80D42890 


j B6F 180B 




RTOOK 


SRA 


11 


CHECK FOR ETX OR 


80D42900 


7 870 100E 
871 1 4C20 


1B9A 


* 


SLA 
BSC 


14 
L RTOOO, Z 


ETB END CHARACTER 
BR IF PROPER END CHAR 


80D42910 
80D42920 
80D42930 


1B73 1 4C00 


1B4D 


$ 


BSC 


L EEE4 


BR - IMPROPER END 


80042940 
80D42950 


1B75 1804 
1B76 1 4C04 


1B4D 


RTOOL 


SRA 
BSC 


4 
L EEE4.E 


BR IF USASCII PARITY ERR 


80D42960 
80042970 
80042980 


1B78 1804 
1B79 1 4C18 


1B5F 


* 


SRA 
BSC 


4 
L RTOOJ ,+- 


BR IF NOT CONTROL CHAR 


80D42990 
80D43000 
80D43010 


1B7B 1 4C00 


1B40 


* 


BSC 


L EEE4 


CONT CHAR IN TEXT 


. 80D43020 
80D43030 


1B7D 1 C400 


0815 


RTOOM 


LD 


L CODE 


GET CODE EDIT WORD 


80D43040 


1B7F 1 4C20 


1B4D 


* 


BSC 


L EEE4,Z 


BR IF USASCII 


80D43050 
80D43060 


1B81 1092 






SLT 


18 


CHECK START CHARACTERS 


80D43070 


1B82 1 4C10 


1B4D 


* 


BSC 


L EEE4,- 


BR IF NOT DLE STX 


80D43080 
80D43090 


1B84 72FD 






MDX 


2 -3 


OECRE CHAR CNT BY 3 


80D43100 


1B85 7001 






MDX 


*+l 


BR IF COUNT OK 


80D43110 


1B86 70C6 




* 


MDX 


EEE4 


BR IF CNT LESS THAN 4 


80D43120 
80043130 


1B87 7101 




RTOON 


MOX 


1 1 


INCREMENT ADDRESS 


80D43140 


1B88 72FF 






MDX 


2 -1 


DECREMENT CHAR COUNT 


80043150 


1B89 7002 




* 


MDX 


RTOOO 


BR IF NOT END 


80 043 160 
80D43170 


1B8A C100 






LD 


1 


GET END CHARACTERS 


80D43180 


1B8B 7006 




' * 


MDX 


RTOOP 


BR TO CHECK 


80D43190 
80D43200 


1B8C 72FF 




RTOOO 


MDX 


2 -1 


OECREMENT CHAR COUNT 


80D43210 


1B8D 70F9 




* 


MDX 


RTOON 


BR IF NOT END 


80D43220 
80D43230 


1B8E 0C101 






LD 


1 1 


FETCH AND 


80043240 


1B8F 1890 






SRT 


16 


COMBINE 


80043250 


1B90 C100 






LD 


1 


TWO END 


80D43260 


1B91 1088 




* 


SLT 


8 


CHARACTERS 


80D43270 
80043280 


1B92 1 4400 


14A2 


RTOOP 


BSI 


L OCODE 


BUILD DECODE WORD 


80043290 


1B94 1 4C10 


1B40 


* 


BSC 


L EEE4,- 


BR IF NOT PROPER END 


80043300 
80D43310 


1B96 1093 






SLT 


19 




80D43320 


1B97 180E 






SRA 


14 




80D43330 


1B98 1 4C18 


1B40 


* 


BSC 


L EEE4.+- 


BR IF NOT PROPER END 


80D43340 
80D43350 


1B9A 1 C400 


0818 


RTOOQ 


LD 


L TRIES 


FETCH EDIT RETRY COUNT 


80D43360 


1B9C 1001 






SLA 


1 


DELETE 


80D43370 


1B9D 1801 






SRA 


1 


SIGN BIT 


80D43380 


1B9E D001 






STO 


*+l 




80D43390 


1B9F 6500 


0000 




LDX 


LI *-* 


XR1=RETRY COUNT 


80D43400 


1BA1 4808 






BSC 


+ 


SKIP IF COUNT NOT ZERO 


80043410 


1BA2 6108 






LOX 


1 8 


COUNT ZERO - CHANGE TO 8 


80D43420 


1BA3 1 6D00 


0818 


* 


STX 


LI TRIES 


STORE RETRY COUNT 


80043430 
80D43440 


1BA5 1 6500 


081F 


* 


LDX 


LI POLID 


XR1=P0LL OR ID SEQ ADDR 


80D43450 
80D43460 


1BA7 630C 




RTOOP 


1 LDX 


3 12 




80D43470 


1BA8 1 C400 


0816 




LD 


L NET 


CHECK NETWORK TYPE 


80043480 


1BAA 1 4C18 


1C11 


* 


BSC 


L RT00W,+- 


BR IF PT-TO-PT NON-SWT 


80D43490 
80D43500 


1BAC 1801 






SRA 


1 




80043510 


1BAD 4820 






BSC 


Z 


SKIP IF NOT MULTIPOINT 


80043520 


1BAE 7301 






MDX 


3 1 




80D43530 
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1BBF C100 
1BC0 1 4400 14A2 

1BC2 1804 
1BC3 1 4C04 1BBC 



PART NO. 2279480 
PAGE 33 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
TCA TRANSMIT/RECEIVE TEST 



PART NO. 2279480 
PAGE 33A 



1BC5 





1802 




1BC6 


1 


4C20 


1BBC 


1BC8 





72FF 




1BC9 





7007 




1BCA 


1 


C400 


14FE 


1BCC 





1888 




1BCD 





C100 




1BCE 





1808 




1BCF 





1088 




1BD0 





700B 





1BD1 108C 
1BD2 1 4C04 1BBC 

1BD4 1802 
1BD5 1 4C20 1BBC 

1BD7 7101 
1BD8 72FF 
1BD9 70E5 
1BDA 1 C400 14FE 

1BDC D100 
1BDD 7001 
1BDE 7043 

1BDF 1 74FF 1BDD 

1BE1 1 C400 0816 
1BE3 1801 

1BE4 1 4C08 1BE9 

1BE6 1 6500 0824 
1BE8 70BE 

1BE9 1 6D00 1526 
1BEB C100 
1BEC 1 D400 1527 

1BEE 1898 

1BEF 1 C400 14F4 

1BF1 18C8 

1BF2 1 D400 1528 



* 












80D43540 




LD 


1 





FETCH 


CHAR COUNT FOR 


80D43550 




SLA 


3 





POLL 


OR ID SEQ AND 


80D43560 




SRA 


3 





DELETE 12 HIGH ORDER 


80D43570 




STO 


1 





BITS FOR PT-TO-PT OR 


80D43580 




STO 




*+l 




13 BITS FOR MULTI-PT 


80043590 


* 












80D43600 




LDX 


L2 


*-* 


XR2=CHAR COUNT 


80D43610 




MDX 


1 


1 


POINT 


TO 1ST TWO CHARS 


80D43620 


* 












80D43630 




S 


L 


Dl 






80D43640 




BSC 


L 


EEE5.+ 


BR IF 


CNT LESS THAN 2 


80D43650 


* 












80D43660 




MDX 




RTOOS 


BR TO 


CONTINUE 


80D43670 


* 












80D43680 


EEE5 


BSI 
DC 


L 


EDERR 
/EEE5 


PRINT 


ERROR MSG EEE5 


80D43690 
80D43700 


* 












80D43710 


RTOOS 


LD 


1 





FETCH 


TWO CHARACTERS 


80D43720 




BSI 


L 


DC ODE 


BUILD 


DECODE WORDS 


80D43730 


* 


SRA 




4 






80D43740 
80D43750 




BSC 


L 


EEE5tE 


BR IF 


PARITY ERROR 


80D43760 


* 


SRA 




2 






80D43770 
80D43780 




BSC 


L 


EEE5iZ 


BR IF 


CONT CHAR 


80043790 


* 












80D43800 




MDX 


2 


-1 


DECRE 


CHARACTER COUNT 


80D43810 




MDX 




RTOOT 


BR IF 


MORE CHARACTERS 


80D43820 


* 












80D43830 




LD 


L 


ENQ 


PREPARE TO 


80D43840 




SRT 




8 


STORE ENQ 


8OD43850 




LD 


1 





AS LAST CHARACTER 


80D43860 




SRA 




8 


OF 


ADDRESS SEQUENCE 


80D43870 




SLT 




8 






80D43880 




MDX 




RTOOU 


BRANCH 


80D43890 


* 












80D43900 


RTOOT 


SLT 




12 


GET DECODE FOR RH CHAR 


80D43910 




BSC 


L 


EEE5.E 


BR IF 


PARITY ERROR 


80D43920 


* 


SRA 




2 






80D43930 
80D43940 




BSC 


L 


EEE5.Z 


BR IF 


CONT CHAR 


80D43950 


* 












80D43960 




MDX 


1 


1 


POINT 


TO NEXT TWO CHARS 


80D43970 




MDX 


2 


-1 


DECRE 


CHAR CNT 


80D43980 




MDX 




RTOOS 


BR IF 


MORE TO CHECK 


80D43990 




LD 


L 


ENO 


GET ENO CHARACTER 


80D44000 


* 












80D44010 


RTOOU 


STO 


1 





STORE 


ADDR END SEQUENCE 


80D44020 




MDX 




*+l 


NOP AFTER FIRST PASS 


80D44030 




MDX 




RTOOX 


BR IF 


2ND PASS 


80D44040 


* 












80D44050 




MDX 


L 


RTOOU+1,-1 


SET 2ND PASS SWITCH 


80D44060 




LD 


L 


NET 


CK NETWORK TYPE 


80D44070 




SRA 




1 






80044080 




BSC 


L 


RTOOV t+ 


BR IF 


PT-TO-PT 


80D44090 


* 












80D44100 




LDX 


LI 


SELID 


XR1=SELECTI0N ADDR LOC 


80D44110 




MDX 




RTOOR 


BRANCH 


80D44120 


* 












80D44130 


RTOOV 


STX 


LI 


IDEND 


SAVE LAST If.) SEO CHAR 


80D44140 




LD 


1 









80D44150 




STO 


L 


IDENQ 


SAVE ID ENQ END 


80D44160 


* 


SRT 




24 






80D44170 
80D44180 




LD 


L 


ACKO 


BUILD 


AND 


80D44190 




RTE 




8 


SAVE 




80D44200 




STO 


L 


IDACK 


ID ACKO END 


80D44210 



1BF4 


18D0 






RTE 




16 


SEQUENCE 


80D44220 


1BF5 


D101 




* 


STO 


1 


1 




80D442 30 
80D44240 


1BF6 


18C8 






RTE 




8 


BUILD AND 


80D44250 


1BF7 


1 C400 


14FF 




LD 


L 


NAK 


SAVE 


80D44260 


1BF9 


16C8 






RTE 




8 


ID NAK END 


80D44270 


1BFA 


1 D400 


1529 


* 


STO 


L 


IDNAK 


SEQUENCE 


80D44280 
80D44290 


1BFC 


1 C400 


08 IF 




LD 


L 


POL ID 


CHECK ID SEQ 


80D44300 


1BFE 


100F 






SLA 




15 


CHARACTER COUNT 


80D44310 


1BFF 


1 4C20 


1C09 


* 


BSC 


L 


RTOOYtZ 


BR IF ODD COUNT 


80D44320 
80D44330 


1C01 


1 C400 


14F4 




LD 


L 


ACKO 


BUILD AND SAVE 


80D44340 


1C03 


1 0400 


1528 




STO 


L 


IDACK 


ID ACKO END SEQUENCE 


80D44350 


1C05 


1 C400 


14FF 




LD 


L 


NAK 


BUILD AND SAVE 


80D44360 


1C07 


1 D400 


1529 


* 


STO 


L 


IDNAK 


ID NAK END SEQUENCE 


80D44370 
80D44380 


1C09 


1 C400 


081F 


RTOOY 


LD 


L 


POL ID 




80D44390 


1C0B 


1 8400 


1546 




A 


L 


D3 




80D44400 


1C0D 


1 ECOO 


1557 




OR 


L 


HE 000 




80D44410 


1C0F 


1 D400 


1532 


* 


STO 


L 


I DC NT 




80D44420 
80D44430 


1C11 


1 C400 


1D0F 


RTOOW 


LD 


L 


BGIN+2 




80D44440 


1C13 


1 F400 


1FFB 




EOR 


L 


PEND 




80D44450 


1C15 


1 4C28 


1C1F 


* 


BSC 


L 


EEE6.Z+ 


BR IF PROG LOAD ACROSS 32K 


80D44460 
80D44470 


1C17 


1 C400 


1572 




LD 


L 


NOP 


PREPARE FOR DESTRUCTION 


80D44480 


1C19 


1 D400 


087F 




STO 


L 


STRT 


OF EDIT CARD CHECK 


80D44490 


1C1B 


1 D400 


0880 




STO 


L 


STRT+1 


ROUTINE 


80D44500 


1C1D 


1 4C00 


087F 


* 


BSC 


L 


STRT 


GO TO START TCA 


80D44510 
80D44520 


1C1F 


1 4400 


1CF7 


EEE6 


BSI 


L 


EDERR 


PRINT ERROR MSG EEE6 


80D44530 


1C21 


EEE6 




* 


DC 




/EEE6 




80D44540 
80D44550 


1C22 


1. 6780 


0E11 


RTOOX 


LDX 


13 


RFTCT 


CALCULATE AND 


80D44560 


1C24 


1 7780 


0824 




MDX 


13 


SELID 


SAVE RFT MSG 


80D44570 


1C26 


1 6F00 


0E11 


* 


STX 


L3 


RFTCT 


LENGTH 


80D44580 
80D44590 


1C28 


1 6500 


1545 




LDX 


LI 


T 


XR1=C0NSTANT TABLE ADDR 


80D44600 


1C2A 


1 C400 


0824 




LD 


L 


SELID 




80D44610 


1C2C 


1 4400 


129D 




BSI 


L 


ZONE 




80D44620 


1C2E 


1008 






SLA 




8 




80D44630 


1C2F 


1 0400 


1635 


* 


STO 


L 


NADDR 




80D44640 
80D44650 


1C31 


1 C400 


0825 




LD 


L 


SELID+1 




80D44660 


1C33 


1808 






SRA 




8 




80D44670 


1C34 


1 ECOO 


1635 




OR 


L 


NADDR 


MOVE 


80D44680 


IC36 


1 D400 


1635 




STO 


L 


NADDR 


SELECTION 


80D44690 


1C38 


1 C400 


0826 




LD 


L 


SELID+2 


ADDRESS 


80D44700 


1C3A 


1890 






SRT 




16 


INTO 


80D44710 


1C3B 


1 C400 


0825 




LD 


L 


SELID+1 


RFT MSG 


80D44720 


1C3D 


1088 






SLT 




8 




80D44730 


1C3E 


1 D400 


1636 




STO 


L 


NADDR+1 




80D44740 


1C40 


1 C400 


0828 




LD 


L 


SELID+4 




80D44750 


1C42 


1808 






SRA 




8 




80D44760 


1C43 


1888 






SRT 




8 




80D44770 


1C44 


1 C400 


0827 




LD 


L 


SELID+3 




80 044 7 80 


1C46 


18C8 






RTE 




8 




80D44790 


1C47 


1 0400 


1637 




STO 


L 


NAOOR+2 




80D44800 


1C49 


1090 






SLT 




16 




80D44810 


1C4A 


1 D400 


1638 




STO 


L 


NADDR+3 




80D44820 


1C4C 


1 4C00 


1C11 


* 


BSC 


L 


RTOOW 




80D44830 
80D44840 
80D44850 
























* 






USASCII 


CONTROL CHARACTERS 


80D44860 








4 










80D44870 


1C4E 


10B0 




ACKOA 


DC 




/10B0 


EVEN ACKNOWLEDGE 


80D44880 


1C4F 


1031 




ACK1A 


DC 




/1031 


ODD ACKNOWLEDGE 


80D44890 



DATE 
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* 












80D44900 


1C50 





103B 


WACKA 


DC 


/103B 


WAIT - 


POSITIVE ACK 


80D44910 


1C51 





10BC 


RVIA 


DC 


/10BC 


REVERSE 


INTERRUPT 


80D44920 








* 












80 0449 30 


1C52 





1010 


DLEA 


DC 


/1010 


DATA LINK ESCAPE 


80D4494Q 


1C53 





0101 


SOHA 


DC 


/0101 


START OF HEADING 


80D44950 


1C54 





0202 


STXA 


DC 


/0202 


START OF TEXT 


80D44960 


1C55 





9797 


ETBA 


DC 


/9797 


END 


OF 


BLOCK 


80D44970 


1C56 





8383 


ETXA 


DC 


/8383 


END 


OF 


TEXT 


80D44980 


1C57 





0404 


EOTA 


DC 


/0404 


END 


OF 


TRANSMISSION 


80D44990 


1C58 





8585 


ENQA 


DC 


/8585 


ENQUIRY 




80D45000 


1C59 





1515 


NAKA 


DC 


/1515 


NEGATIVE ACKNOWLEDGE 


80D45010 


1C5A 





1F1F 


ITBA 


DC 


/1F1F 


END 


OF 


INTERMEDIATE BLOCK 


80D45020 


1C5B 





1616 


SYNA 


DC 


/1616 


SYNCHRONOUS IDLE 


80 D4 5030 


1C5C 





8686 


ACKA 


DC 


/8686 


POSITIVE ACKNOWLEDGEMENT 


80D45040 








* 












80 04 50 50 


1C5D 





028 5 


TTDA 


DC 


/0285 


TEMPORARY TIME DELAY 


80D45060 


1C5E 





1004 


DISCA 


DC 


/1004 


DISCONNECT 


80045070 


1C5F 





0283 




DC 


/0283 


STX 


ETX 


SEQUENCE 


80D45080 


1C60 





0216 




DC 


/0216 


STX 


SYN 


SEQUENCE 


80 04 50 90 


1C61 





029B 




DC 


/029B 


STX 


ESC 


SEQUENCE 


80D45100 


1C62 





16C1 




DC 


/16C1 


SYN, 


A 




80045110 


1C63 





51C1 




DC 


/51C1 


PRINT SELECT, A 


80D45120 


1C64 





34C1 




DC 


/34C1 


PUNCH SELECT, A 


80D45130 








* 












80D45140 


1C6S 





8003 


TM01E 


DC 


/8003 








80D45150 


1C66 





8083 


TM01A 


DC 


/8083 








80D45160 


1C67 





0125 


RFTA 

* 


DC 


/0125 


SOH 


% 




80D45170 
80D45180 
80 045 190 
80D45200 








* 




USASCII 


TEST MESSAGE TABLES 








* 












80D45210 


1C68 





0077 


TM5 


DC 


119 








80D45220 


1C69 





1680 




DC 


/1680 








80D45230 


1C6A 





0708 




DC 


/0708 








80D45240 


1C6B 





898A 




DC 


/898A 








80D45250 


1C6C 





0B8C 




DC 


/0B8C 








80D45260 


1C6D 





ODOE 




DC 


/ODOE 








80D45270 


1C6E 





8F91 




DC 


/8F91 








80D45280 


1C6F 





9213 




DC 


/9213 








80D45290 


1C70 





9498 




DC 


Z9498 








80D45300 


1C71 





191A 




DC 


/191A 








80D45310 


1C72 





9B1C 




DC 


/9BIC 








80D45320 


1C73 





9D9E 




DC 


/9D9E 








80D45330 


1C74 





20A1 




DC 


/20A1 








80D45340 


1C75 





A223 




DC 


/A223 








80D45350 


1C76 





A42 5 




DC 


/A425 








80D45360 


1C77 





26A7 




DC 


/26A7 








80D45370 


1C78 





A829 




DC 


/A829 








80D45380 


1C79 





2AAB 




DC 


/2AAB 








80 D4 53 90 


1C7A 





2CAD 




DC 


/2CAD 








80D45400 


1C7B 





AE2F 




DC 


/AE2F 








80D45410 


1C7C 





B031 




DC 


/B031 








80D45420 


1C7D 





32B3 




DC 


/32B3 








80D45430 


1C7E 





34B5 




DC 


/34B5 








80D45440 


1C7F 





B637 




DC 


/B637 








80D45450 


1C80 





38B9 




DC 


/38B9 








80D45460 


1C81 





BA3B 




DC 


/BA3B 








80045470 


1C82 





BC3B 




DC 


/BC30 








80D45480 


1C83 





3EBF 




DC 


/3EBF 








80 D4 54 90 


1C84 





40C1 




DC 


/40C1 








80D45500 


1C85 





C243 




DC 


/C243 








80D45510 


1C86 





C445 




DC 


/C445 








80D45520 


1C87 





46C7 




DC 


/46C7 








80D45530 


1C88 





C849 




DC 


/C849 








80D45540 


1C89 





4ACB 




DC 


/4ACB 








80D45550 


1C8A 





4CCD 




DC 


/4CCD 








80D45560 


1C8B 





CE4F 




DC 


/CE4F 








80D45570 



1C8C 





D051 






DC 


/D051 










80D45580 


1C8D 





52D3 






DC 


/52D3 










80D45590 


1C8E 





54D5 






DC 


/54D5 










80D45600 


IC8F 





D657 






DC 


/D657 










80D45610 


1C90 





58D9 






DC 


/58D9 










80D45620 


1C91 





DA5B 






DC 


/DA5B 










80D45630 


1C92 





DC5D 






DC 


/DC 50 










80 D4 5640 


1C93 





5EDF 






DC 


/5EDF 










80D45650 


1C94 





E061 






DC 


/E061 










80D45660 


1C95 





62E3 






DC 


/62E3 










80D45670 


1C96 





64E5 






DC 


/64E5 










80D45680 


1C97 





E667 






DC 


/E667 










80D45690 


1C98 





68E9 






DC 


/68E9 










80D4570Q 


1C99 





EA6B 






DC 


/EA6B 










80D45710 


1C9A 





EC6D 






DC 


/EC6D 










80D45720 


1C9B 





6EEF 






DC 


/6EEF 










80D45730 


1C9C 





70F1 






DC 


/70F1 










80D45740 


1C9D 





F273 






DC 


/F273 










80D45750 


1C9E 





F475 






DC 


/F475 










80D45760 


1C9F 





76F7 






DC 


/76F7 










80D45770 


1CA0 





F879 






DC 


/F879 










80D45780 


1CA1 





7AFB 






DC 


/7AFB 










80D45790 


1CA2 





7CFD 






DC 


/7CFD 










80 D4 5 800 


1CA3 





FE7F 






DC 


/FE7F 










80D45810 


1CA4 





8300 






DC 


/8300 










80D45820 


1CA5 




0040 




* 


BSS 


64 










80D45830 
80045840 


1CE5 





C243 




TM6 


DC 


/C243 


B 


C 






80D45850 


1CE6 





C445 






DC 


/C445 


D 


E 






80D45860 


1CE7 





46C7 






DC 


/46C7 


F 


G 






80D45870 


1CE8 





C849 






DC 


/C849 


H 


I 






80045880 


1CE9 





4ACB 






DC 


/4ACB 


J 


K 






80D45890 


1CEA 





4CCD 






DC 


/4CCD 


L 


M 






80045900 


1CEB 





CE4F 






DC 


/CE4F 


N 









80045910 


1CEC 





D051 






DC 


/D051 


P 


Q 






80D45920 


ICED 





52D3 






DC 


/52D3 


R 


S 






80D45930 


1CEE 





54D5 






DC 


/54D5 


T 


U 






80D45940 


1CEF 





D657 






DC 


/D657 


V 


* w 






80045950 


1CF0 





58 D9 






DC 


/58D9 


X 


Y 






80 D4 59 60 


1CF1 





DABO 






DC 


/DABO 


z 


i 






80D45970 


1CF2 





3132 






DC 


/3132 


1 


i 2 






80 D4 59 80 


1CF3 





B334 






DC 


/B334 


3 


,4 






80D45990 


1CF4 





B5B6 






DC 


/B5B6 


5 


> 6 






80D46000 


1CF5 





3738 






DC 


/3738 


7 


i 8 






80D46010 


1CF6 





B983 






DC 


/B983 


9 


, ETX 




80D46020 










* 














80D46030 

_ anrtAAHAn 










* 




PRINT EDIT 


ERROR 


MESSAGE 


OvUHOUHU 

80D46050 










* 














80D46060 


1CF7 





0000 




ED ERR 


DC 


*-* 


ENTER 


ON EDIT ERROR 


80D46070 










* 














80D46080 


1CF8 


1 


C480 


1CF7 




LD 


I EDERR 


GET MID 




80D46090 


1CFA 





D011 






STO 


EDMSG+2 


PUT IN MSG 


STRING 


80D46100 










* 














80D46110 


1CFB 


1 


6500 


1D01 




LDX 


LI EDER1 


SET MLSCF ENTRY TO 


80D46120 


1CFD 


1 


6D00 


080A 




STX 


LI MLSCF 




EDIT 


ERROR LOG CALL 


80046130 


1CFF 





4C80 


0120 




BSC 


I START 


GO TO 


MONITOR 


80D46140 










* 














80D46150 


1D01 





4480 


012F 


EDER1 


BSI 


I LOG 


PRINT 


EDIT 


ERROR MESSAGE 


80046160 


1D03 


1 


1D0A 






DC 


EOMSG 


MSG STRING 


ADDR 


80D46170 


1D04 


1 


1CF8 






DC 


EDERR+1 


BUSY RETURN 


80D46180 


1D05 


1 


1D08 






DC 


WTCA 


TERM ADDR 




80D46190 










* 














80D46200 


1D06 





4C80 


012D 




BSC 


I START 


GO TO 


MONITOR 


80D46210 










* 














80D46220 


1D08 





30CA 




WTCA 


WAIT 


/CA 


ERROR 


WAIT 




80D46230 


1D09 





70FE 






MDX 


WTCA 




INCORRECT 


PROGRAM LOAD 


80D46240 










* 














80D46250 



DATE 
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* 




* 




* 


1D0A 0000 


El 


1D0B 0000 




1D0C 0000 





EDIT ERROR MESSAGE STRING 

EDMSG DC NO MODIFIERS 

DC 
DC *-* MID 

* 

* 

*************************************************** 

* 

* END CARD XFER AND RESERVEO CORE 

* 

*************************************************** 

* 

GO TO MONITOR BEGIN RTN 

PST ADDRESS 



1D0D 


4480 


012C 


BGIN 


BSI 


I BEGIN 


1D0F 1 


07FF 




* 


DC 


PID 


1FF7 






* 


ORG 


PID+/1 


1FF7 


0000 




DC 





1FF8 


0000 






DC 





1FF9 


0000 






DC 





1FFA 


0000 






DC 





1FFB 1 


1FF6 




PEND 


DC 


PEND-5 


1FFC 


1D0D 






END 


BGIN 


NO STATEMENTS FL 


AGGED ! 


!N THE / 


IBOVE ASS 



PID+/17F8 RESERVE 8K OF CORE 






80D46260 
80D46270 
80D46280 
80D46290 
80D46300 
80D46310 
80D46320 
80D46330 
80D46340 
80D46350 
80D46360 
80D46370 
80D46380 
80D46390 
80D46400 
80D46410 
80D46420 
80D46430 
80D46440 
80D46450 
80D46460 
80D46470 
80D46480 
80D46490 
80D46500 
80D46510 



AAA1 

AAA2 

AAA3 

AAA4 

AAA5 

AAA6 

AAA7 

AA01 

AA01A 

AA02 

ABORT 

ACK 

ACKA 

ACKS 

ACKO 

ACKOA 

ACK1 

ACK1A 

ADCK1 

ADCK2 

ADRCK 

ALL 

ANSRO 

ANSWR 

ANYER 

ANYMS 

A 00 A 

AOOC 

AOOD 

AOOE 

AOOF 

A001 

A003 

A004 

A 006 

A008 

A009 

A01A 

AOIB 

A01C 

A01E 

A01F 

A010 

A011 

A013 

A014 

A015 

A017 

A018 

A02A 

A02B 

A02C 

A02E 

A020 

A021 

A022 

A025 

A027 

A028 

A03B 

A03C 

A03E 

A03F 

A030 

A031 

A033 



0B36 
0B34 
0B21 
OB 30 
OBI 5 
0B19 
0B1D 
1038 
1044 
0F50 
1518 
1502 
1C5C 
14F2 
14F4 

1C4E 
14F5 
1C4F 
0C6D 
0C7C 
0C66 
1531 
081A 
14EE 
1515 

1514 
0B50 
0B91 
0B95 
OBAO 
OBAB 
12E1 
10C8 
10AD 
QAEC 
0B46 
0B4A 
OCOE 
0C12 
0C21 
0C3A 
0C48 
OBBO 
0BB6 
0BD5 
0BD1 
OBDC 
0BF2 
0BF5 
0E2D 
0E48 
0E52 
0E88 
GC4E 
0C5E 
0C64 
008C 
0DC1 
ODCE 
1043 
1Q37 
1071 
107E 
OECF 
0EB7 
OFOO 



0B04 

OB28 0B2F 0C8A 

0C98 

082B 

0B13 



0995 OACO 0CB9 0CE7 ODBE 0F9E OFBA OFCi 



0B72 0D96 0D9F 0EB9 0F59 OFCF 0FD1 10 IB 

0B71 OBAD OCAE 0094 0D9D 0E33 0EB8 0F07 OFOA 0F37 0F3A 14B7 1AE9 

1BEF 1C01 

1AE7 

0E4F 0E74 OFOB 0F3B 

0C77 0C84 

0C6B 

0C4C 0C5C 0C71 0C78 0C7A 0C82 0EB4 

121D 1228 124B 1257 

0B1A 

138D 

0993 0A37 0A3E OAED 0B43 0B8E OBCE OBEC OCOB 0C37 0CB2 0DB5 0E17 

OE77 0EA6 0EE7 0EF7 0F21 0F6E 0F98 101E 106E 107F 12D1 

0992 12E9 12F6 



0B9E 



0C16 
0C39 0C30 



0BD3 0B08 

OBEE 

OBFO 



0E42 
0E4C 
0E82 



0C5D 

0D25 0D4C 0D62 0D6C 0D83 



ODCA 
103F 10C6 



0EB6 
0EC2 



V_ DATE 
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4-31319A 
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A034 

A036 

A037 

A039 

BCSAV 

BEGIN 

BGIN 

CAIO 

CHAR1 

CHAR2 

CHAR3 

CKRC 

CKRCV 

CKRC1 

CKTRY 

CKTR1 
CKXMT 
CKXM1 
CKXM2 
CKXM3 
CKXM4 
CKXM5 
CKXM6 
CLEAR 
CLRSH 
CMODE 
CNTA 

CNTPT 

COOE 

CRADR 

CRCNT 

DCDX 

DCHXX 

DCHX1 

DC ODE 

DDEF 

DECHX 

DISC 

DISC A 

DLAY 

OLE 

DLEA 

DLETX 

DLSTX 

DSWCK 

DSWRS 

DUMP 

DUMP1 

OVA 

DXEQ 

D001 

D002 

D003 

Dl 



D10 

D118 

D14 

D19 

D2 

D29 

03 

D5 

D50 

D51 



OFOE 
0F42 
0F3E 
OFCC 
153C 
012C 
1D0D 
1494 
14DC 
14DD 
14DE 
0A54 
0A4A 
0A59 
1084 

109C 
09F2 
09F4 
09FF 
0A04 
0A08 
OAOE 
0A16 
14E4 
151C 
152A 
1512 

153B 
0815 
1521 
1522 
14AF 
129B 
1297 
14A2 
0814 
128C 
1504 
1C5E 
081E 
14F8 
1C52 
150C 
150B 
09BE 
14F0 
0950 
0971 
0975 
086D 
0F95 
0F15 
0965 
1545 



154C 
1547 
154A 
1540 
1548 
154E 
1546 
1549 
154F 
1550 



0F08 
0F3C 
0F38 
0FE9 
13E9 
1D0D 
1C11 
13D5 
14B4 
14A4 
14C5 

0A2E 
0A58 
0B59 
OF 86 
1098 
09E7 
0A17 
09F8 
09FE 
OAOE 
0A07 
OAOB 
1494 
09CE 
0AE7 
09F3 
1302 
12FA 
0A05 
13F5 
13ED 
14A3 
1296 
1293 
OAAD 
0878 
OD03 
1034 



1412 1483 

1FFC 

13E2 1413 142A 1484 

14B6 14BF 14CD 

14A7 14A9 14AE 

14C6 



0A68 
0BA5 
0F91 



OBFC OCCA OCOA OCDF OCEB 0CF5 0E3B 0E66 0E85 0E97 0F11 
1089 



09EC OAOC 



0A14 



OBOB 
0B06 
0A09 
1322 
1305 
145C 
13FE 
13FB 



0AB9 
088F 
0008 
107D 



1378 1396 

0B39 0B58 0B62 0B79 0C19 0C22 0C25 0EC9 1047 1074 10BC 

0A4D 0A6F 0A83 0A8B 0C69 0C75 0C7C OFDB 0FE6 12E6 12FC 

133F 143C 143E 1442 

131C 1342 

1470 1AE2 1B7D 

1402 1408 142C 1432 1445 1447 144A 

140A 1437 1451 1467 



0C40 0F65 12A3 139D 142E 144F 14B1 1B55 1B6B 1B92 1BC0 

089C 0AD2 OADD 1AD6 

0DF7 0E03 1203 1233 1271 129B 

10AA 



OEDC 

0D4A 0D5E 0D68 

10FC 115A 117E 119C 11BA 

10F2 1152 116A 1183 11A1 

09B1 09B8 

09AD 1496 

0907 0909 0914 091D 0920 0922 0973 

0962 

0890 OADE 1AD7 1ADA 

0808 087A 087C 08CD 

0F62 0F6B 



0905 
10A5 
143F 
0F5E 
1B49 
0918 
123B 
08CB 
1329 
120A 
OEEO 
13A7 
143B 



0913 093F 09A3 09AB 0A80 0A8C 0D50 0DA6 0E07 102F 104E 1097 
10F6 1178 1196 11B4 1243 1266 1280 1284 130F 1313 13D9 1416 
1487 1BB7 
124D 1292 1298 13CF 

091C 

090F 09E6 09EB 0D19 OFDA 13CC 13EC 

14D1 1C0B 



08 

099 

EDERR 

E0ER1 

EDMSG 

EEE1 

EEE2 

EEE4 

EEE5 

EEE6 

EE01 

EE02 

EE03 

EE04 

EE05 

EE06 

EE07 

ENABL 

ENCK1 

END 

ENOCH 

ENDCK 
F.NDSW 
ENMSG 
ENPRT 
ENQ 

ENQA 

EOT 

EOTA 

EOTRC 

EPA 

ERROR 

ETB 

ETBA 

ETX 

ETXA 

EXIT 

EOXX 

EOOD 

EOOE 

EOOF 

E01A 

E01B 

E01D 

E01E 

E010 

E011 

E012 

E013 

E014 

E018 

E02A 

E02B 

E02C 

E02D 

E02E 

E020 

E021 

E023 

E024 

E026 

E028 

E03A 

E03B 

E03C 

E03E 



154B 
1551 
1CF7 
1D01 
1D0A 
1200 
1283 
1B4D 
1BBC 
1C1F 
08BE 
OECA 
1056 
109D 
10CC 
10B1 
11F4 
14EA 
10B6 
012E 
1520 

10A2 
1539 
1AC9 
11E9 
14FE 

1C58 
14FD 
1C57 
103D 
0808 
0130 
14FB 
1C55 
14FC 
1C56 
09 AD 
09C3 
09CB 
09ED 
0A69 
10B0 
10CB 
0B42 
0B56 
0A1B 
0A2B 
0A30 
0A45 
0A8E 
OAEF 
OCEA 
OCDE 
0CE3 
0CB8 
0CC7 
0B8D 
OBBB 
OBCD 
OBEB 
OCOA 
0C36 
0E31 
0E3E 
0E63 
0E76 



0D37 

ODOD 0D27 1207 

1B4D 1BBC 1CIF 1CF8 1D04 

1CFB 

1CFA 1D03 

1264 1273 127D 

1B5A 1B5E 1B64 1B67 1B73 1B76 1B7B 1B7F 1B82 1B86 1B94 1B98 

1BB9 1BC3 1BC6 1BD2 1BD5 

1C15 



1053 

108E 1093 109B 



11EE 
1495 
10A6 
087D 
OAAA 
0F36 
0B4E 
0886 
0889 
08C1 
0B52 
1BCA 



10AB 

0AB8 0B51 0B9B OBAC 0BB1 0BB7 0C13 0CD4 ODCF 0E32 0E3F 0F2D 

0B99 OCBF ODBC 0E26 0E94 OEBC OEFE 0F2B 0F7D 0FB2 10BA 

0920 0AF6 0B12 0B27 11D5 11F9 1346 

08AD 08C3 08D9 OAFA 1349 

0C2E 0EC8 0F51 1039 1045 1057 109E 10B2 10CD 11EB 11F2 UFA 

0B8B 0B9C 0C80 0CC3 0CD5 0DC4 ODDO 0E6D OE80 OECO 0EF1 0F81 

1BDA 



0C14 0E8B 0EA3 0ED2 0F8C 1029 106C 10B8 



102B 



1136 

09A5 
09C8 



0A61 



0B86 
0B45 



0CD2 0CD7 0DB6 ODBA ODCC 

0CB7 

0CB4 



0BC8 



OCAO 

0E2B 

0E34 

0E19 0E21 0E25 0E30 0E38 0E47 0E50 

0E9E 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



20MAR70 
431320 



06NOV70 
431323 



PROG ID 
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DATE 
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E03F 

E030 

E031 

E032 

E034 

E035 

E036 

E038 

E039 

E04B 

E04C 

E04D 

E04E 

E040 

E041 

E043 

E044 

E045 

E047 

E048 

E049 

E05A 

E05C 

E05D 

E05E 

E050 

E051 

E052 

E053 

E054 

E055 

E056 

E057 

E058 

E059 

E060 

E061 

GENTM 

GNTMX 

GO 

HAAAA 

HAAAO 

HAAS5 

HAOOO 

HC002 

HD001 

HD002 

HD003 

HEEE1 

HEOOO 

HE 002 

HE 004 

HFFFF 

HFFF9 

HFFOO 

HFOOO 

HF840 

HOFOF 

HOOFF 

H0010 

H0080 

H0202 

H1900 

H2000 

H32AA 

H5503 

H5555 

H7000 



0E7A 

OCDO 

0CD9 

0CF2 

0DB4 

0DB8 

OOCB 

0E16 

0E1D 

0F20 

0F27 

0F32 

OF 48 

0E84 

0E96 

0EA5 

0EA9 

0EC4 

0EF6 

OEFA 

OF 10 

OFAB 

101D 

1021 

104B 

0F6D 

OF 71 

0F85 

0F90 

0F89 

0FA1 

0FA6 

OFFD 

0FC4 

OFCO 

1060 

1081 

10D1 

11BE 

0B22 

1565 

1552 

1564 

1558 

155E 

1568 

1569 

1559 

1553 

1557 

155F 

155A 

156B 

156C 

1556 

156F 

156A 

155C 

156E 

156D 

1560 

155B 

1555 

1561 

1566 

1562 

1563 

1567 



0CC5 

OCBB 0CE6 0CE9 ODOO OOOE 0D1A 0D2E 0038 0070 
0009 

OOCO 0D04 
0E6F 

0EF5 



0F23 

0E79 0E7D 0E8D 
OEDB 



0EA8 OEAC 0E04 



0EF9 OEFD 0F04 OFOC 0F46 
OF 99 
1061 1066 

1020 1024 1030 1035 



0F70 0F74 0F83 

0F7B 

0FC5 

0F9D OFAO 0FC3 OFFE 

0FF1 



007A 
1002 
0B18 
1141 
11E1 
1146 
0943 
13E0 
0F95 
0F14 
0965 
120D 
0940 
1426 
ODFC 
09F7 
0926 
093D 
1B16 
0998 
1280 
11F8 
12A5 
09BF 
10F8 
1263 
0999 
113E 
114E 
1149 



OEOB 0E59 11C7 

1100 1111 1129 113A 1151 115E 1169 1182 11A0 

0B1C 0B20 0B33 0B35 



1283 

003A 11C4 1C0D 



09FF 0A21 0A74 1214 1217 1219 1370 1387 140D 147D 

1435 144D 1478 148F 

09CA 

1295 14B9 
12AE 14D7 
1391 13B7 
117A 1198 11B6 



H8000 
H8001 
IDACK 
IOCNT 
IOENO 
IDENQ 
IDNAK 
IDSM 

INITL 

INT 

INTEX 

INTTM 

INTX 

INTX1 

INTX2 

INTX3 

INTX4 

INT01 

INT02 

INTO 3 

INT 04 

INT05 

I NT 06 

I NT 07 

INT 08 

INT09 

IOCCS 

IPA 

ITB 

ITBA 

LGCAL 

LGCL1 

LGCL2 

LGCL3 

LGCL4 • 

LOG 
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5. COMMENTS 5 

5.1 GENERAL PROGRAM DESCRIPTION 5 
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6.4 PROGRAM EDIT PROCEDURE 13A 

1. PURPOSE 

THE PURPOSE OF THE 1800 CA WRAPAROUND TEST IS TO PROVIDE A MEANS FOR 
LOCAL TESTING AND DIAGNOSIS OF THE COMMUNICATIONS ADAPTER AND FOR LIMITED 
TESTING OF THE LOCAL DATA SET. 



2. REQUIREMENTS 

2.1 PROGRAM REQUIREMENTS 

THE 1800 CA WRAPAROUND TEST MUST OPERATE UNDER CONTROL OF THE 
1800 DIAGNOSTIC MONITOR. 



IBM MAINTENANCE DIAGNOSTIC PR06RAM FOR THE 1800 SYSTEM 
CA WRAPAROUND TEST 

2.2 EQUIPMENT REQUIREMENTS 

A} EQUIPMENT AS REQUIRED FOR OPERATION OF THE 1800 DIAGNOSTIC 

MONITOR. 
B) A MINIMUM OF 8K OF CORE STORAGE. 
CI THE 1800 COMMUNICATIONS ADAPTER FEATURE. 
D) SLT BOARD SLIP-ON TEST JUMPERS. 



OPERATING PROCEDURE 

•CAUTION* THE 1800 CA WRAPAROUND TEST CANNOT BE OPERATED IN OVERLAP WITH 
OTHER MONITOR CONTROLLED PROGRAMS AND MUST BE LOADED IMMEDIATELY FOLLOWING 
THE MONITOR WHEN LOADED WITH OTHER MONITOR CONTROLLED PROGRAMS. 

3.1 LOADING 

LOADING PROCEDURES ARE SUMMARIZED HERE. REFER TO DIAGNOSTIC 
MONITOR USE PROCEDURE FOR ADDITIONAL DETAILS. 

A) CLEAR CORE TO /70FF. 

B) LOAD THE DIAGNOSTIC MONITOR. 

C» SELECT DIAGNOSTIC MONITOR PROGRAM LOAD OPTIONS. (SEE NOTE BELOW) 

D> LOAD THE 1800 CA WRAPAROUND TEST. (SEE 6.4 FOR EDIT PROCEDURE) 

E) SELECT MONITOR PROGRAM CONTROL OPTIONS IF DESIRED. 

F) INSTRUCT MONITOR TO EXECUTE. 

NOTE. ..BECAUSE OF CRITICAL PROGRAM TIMING, THE CA WRAPAROUND TEST 
CANNOT BE OPERATED IN OVERLAP WITH OTHER MONITOR CONTROLLED PROGRAMS. 

3.2 OPERATION . 

OPERATING PROCEDURES ARE SUMMARIZED HERE. REFER TO DIAGNOSTIC 
MONITOR USE PROCEDURE AND SECTION 5 OF THIS DOCUMENT FOR 
ADDITIONAL DETAILS. 

DATA SET CABLE TEST SWITCH MUST BE IN THE 'TEST' POSITION ANO THE 
CABLE MUST BE DISCONNECTED FROM THE DATA SET IN ORDER TO RUN THIS 
PROGRAM. 
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A) 
B) 
C) 
D) 
E) 
F) 
G) 



H) 



LOAD PROGRAMS (REFER 3.1). 

SELECT MONITOR CONTROL OPTIONS IF DESIRED. 

SELECT CA PROGRAM CONTROL OPTIONS FROM TABLE IF DESIRED. 

SELECT A SPECIFIC ROUTINE FOR EXECUTION IF DESIRED (SEE TABLE 1). 

SELECT CA LINE(S) TO BE TESTED (SEE TABLE 2). 

INSTALL SLT BOARD TEST JUMPERS ON SELECTED LINES (SEE 5.4). 

SELECT VARIABLE DATA FOR USE IN ROUTINES USING VARIABLE DATA IF 
DESIRED (SEE TABLE 3). THIS OPTION IS INOPERATIVE UNLESS 
THE ROUTINE SELECTION OPTION (TABLE 1) IS ALSO SPECIFIED. 

INSTRUCT MONITOR TO EXECUTE. PROGRAM SHOULD BEGIN EXECUTING THE 
TEST ROUTINES SEQUENTIALLY. A START OF ROUTINE MESSAGE (AOCA) 
WILL BE PRINTED AT THE BEGINNING OF EXECUTION OF EACH ROUTINE. 



NOTE... OPT IONS HAY BE CHANGED AT ANY TIME, HOWEVER, CONSOLE 
INTERRUPTS DURING CA OPERATION AT FASTER BAUD RATES- MAY CAUSE 
ERROR PRINTOUTS DUE TO LOSS OF SYNCHRONIZATION BETWEEN PROGRAM 
AND CA OPERATION. OPTION CHANGES MADE DURING CA OPERATION MAY 
NOT TAKE EFFECT UNTIL THE NEXT ROUTINE Is STARTED. 
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TABLE - FUNCTION 
PROGRAM CONTROL OPTIONS 



TABLE 1 - FUNCTION 1 
ROUTINE SELECTION OPTION 



1. SET FUNCTION 00 IN SENSE/PROGRAM SWITCHES AND 1. 

2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

3. SET DESIRED CONTROL OPTIONS IN DATA ENTRY SWITCHES 0-15. 

4. PRESS CONSOLE INTERRUPT. 



******************* 

* SENSE/PROGRAM * 
*01234567* 

* * 

* 00001110* 

******************************************************************************** 



* 
* 

* 
* 
* 
* 

* 
* 
* 



DATA ENTRY SWITCHES 



123456789 10 1 



12 13 14 15 



...... 



DESCRIPTION * 

* 
* 
..LOCK ON ERROR * 

..TERMINATE ROUTINE ON ERROR * 

..BYPASS TABLE DUMP ('SHOULD BE' DATA)* 
..BYPASS TABLE DUMP ('WAS' DATA) * 

..BYPASS START OF ROUTINE MESSAGES * 

..BYPASS TIME DELAYS * 



******************************************************************************** 



1. SET FUNCTION 01 IN SENSE/PROGRAM SWITCHES AND 1. 

2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

3. SET ROUTINE NO. IN HEX IN DATA ENTRY SWITCHES 8-15. 

4. PRESS CONSOLE INTERRUPT. 



******************* 

* SENSE/PROGRAM * 
*01234567* 

* * 
*01001110* 
******************************************************************************** 

* DATA ENTRY SWITCHES * DESCRIPTION * 

* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * * 

& ft * 

* XXXXXXX X.. ..ROUTINE NO. IN HEX * 

* * 



******************************************************************************** 

* FUNCTION 1 COMMENTS * 

* DE SWS * 

* 8-15=ROUTINE NUMBER IN HEXADECIMAL * 

* CAUSES SELECTED ROUTINE TO BE EXECUTED AND LOOPED ON UNTIL DE-SELECTED* 

* USASCII MODE CA LINES SHOULD NOT BE SELECTED FOR OPERATION (SEE TABLE * 

* 2) WHEN LOOPING ON TRANSPARENT MODE ROUTINES OR AUTOMATIC DE-SELECTION* 

* OF THE ROUTINE WILL OCCUR. * 
******************************************************************************** 



TABLE 2 - FUNCTION 2 
LINE SELECTION OPTION 



1. SET FUNCTION 10 IN SENSE/PROGRAM SWITCHES AND 1. 

2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

3. SELECT DESIRED CA LINE(S) FOR OPERATION IN DE SWS 0-7. 

4. PRESS CONSOLE INTERRUPT. 



******************* 

* SENSE/PROGRAM * 

* 01234567* 

* * 

*10001110* 
******************************************************************************** 



* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
# 



DATA ENTRY SWITCHES 
2 3 4 5 6 7 8 9 10 11 12 13 14 15 



1. 



DESCRIPTION 



..LINE 
..LINE 
..LINE 
..LINE 
..LINE 
..LINE 
..LINE 
..LINE 



* 
* 

* 

* 
* 
* 
* 
* 
* 
* 



******************************************************************************** 



* FUNCTION 2 COMMENTS 

* DE SWS 

* 0-ON=SELECT LINE 

* 1-0N=SELECT LINE 1 

* 2-0N=SELECT LINE 2 

* 3-0N=SELECT LINE 3 

* 4-0N=SELECT LINE 4 

* 5-0N=SELECT LINE 5 

* 6-0N=SELECT LINE 6 

* 7-0N=SELECT LINE 7 

* CAUSES PROGRAM TO OPERATE TEST ROUTINES USING LlNE(S) SELECTEO IN 

* THIS FUNCTION. IF MORE THAN ONE LINE IS SELECTED THE PROGRAM WILL 

* LOOP ON EACH ROUTINE, EXECUTING IT ON EACH CA LINE SELECTEO, UNTIL 

* IT HAS BEEN RUN ON ALL SELECTED LINES BEFORE PROCEEDING ON TO THE 

* NEXT SEQUENTIAL ROUTINE. I F NO CA LINES ARE SELECTED, A COCA MESSAGE 

* WILL BE PRINTED AND THE PROGRAM WILL COME TO A WAIT WITH /30CA IN THE 

* B-REGISTER. 



******************************************************************************** 
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******************* 

* SENSE/PROGRAM * 

♦ 01234567* 

* * 

• 11001110* 



1. set function 11 in sense/program switches ano 1. 

2. set pid in sense/program switches 2 through 7. 

3. set data entry switch on. 

4. set variable data in data entry switches 4 through 15. 

5. press console interrupt. 

******************************************************************************^* 

* DATA ENTRY SWITCHES * DESCRIPTION * 

* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 # * 

* * * 

* XXXXXXXXXXX X.... VARIABLE DATA * 

* 1 MUST BE ON * 

**************************************************************************** :tfl)L ^^ 



FUNCTION 3 COMMENTS 



* 

* DE SWS 

* 0-ON=USE VALUE IN BITS 4 THROUGH 15 AS VARIABLE DATA 
4-15=VARIABLE DATA 

CERTAIN TEST ROUTINES ARE EXECUTED REPEATEDLY USING SOME PARAMETER 
WHICH IS VARIEO EACH TIME THE ROUTINE Is EXECUTED UNTIL THE ROUTINE 
HAS BEEN EXECUTED FOR EACH VALUE OF THE VARIABLE OVER A CERTAIN RANGE 
THIS PARAMETER (VARIABLE DATA) MAY BE HELD TO A CERTAIN VALUE BY 
PLACING THIS VALUE IN FUNCTION 3. THE ROUTINE WILL THEN BE EXECUTED 
CONTINUOUSLY USING THE VALUE SPECIFIED IN FUNCTION 3. THIS OPTION IS 
OPERATIVE ONLY WHEN SELECTED SIMULTANEOUSLY WITH THE LOOP ON' ROUTINE 
OPTION IN TABLE 1. - 
VALID VALUES FOR USE AS VARIABLE DATA ARE < .'• 



ROUTINE NUMBER 
07 
10 
11 
12 
13 
15 
1A 
IB 
IE 
IF 
25 
26 



RANGE OF VALID VALUES 



/OOl - /FFF 






/OOO - /OFF 






/OOO - /OFF 






/OOO - /OFF 






/OOO - /OFF 






/IFF - /FFF 






VALID BSC END CHARACTERS 


(SEE 


6.1) 


VALID BSC END CHARACTERS 


(SEE 


6.1) 


/032 - /2BC 






/032 - /2BC 






VALID BSC END CHARACTERS 


(SEE 


6.1) 


/004 - /OFF 







****************************************************************************** iti> . 

3.3 PROGRAM HALTS 

THE 1800 CA WRAPAROUND TEST CONTAINS ONLY ONE PROGRAM HALT. 
THIS HALT INDICATES THAT NO CA LINE HAS BEEN SELECTED FOR OPERATION. 
THE HALT IS ALWAYS PRECEDED BY A COCA MESSAGE PRINTOUT. REFER TO 
SECTION 3.2 TABLE 2 FOR ACTION TO BE TAKEN. THIS HALT MAY BE 
IDENTIFIED BY THE PRINTOUT OR BY THE CONTENTS OF THE B-REGISTER, 
WHICH WILL CONTAIN /30CA. 
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3.4 PROGRAM TERMINATION 

THE 1800 CA WRAPAROUND TEST TERMINATES AFTER THE LAST TEST ROUTINE 
IN THE NORMAL SEQUENCE HAS BEEN EXECUTED OR IF THE MONITOR HALT 
OPTION HAS BEEN SELECTED. 

3.5 RESTART PROCEDURE 

STANDARD MONITOR RESTART PROCEDURES MAY BE USED. 

4. PRINTOUTS 

ALL PRINTOUTS PRODUCED BY THIS PROGRAM ARE IN THE STANDARD DIAGNOSTIC 
MONITOR FORMAT <PID MID RID RAD MODIFIERS). IN ALL FOLLOWING SAMPLE 
PRINTOUTS, THE PID IS OMITTED. ROUTINE ID NUMBER (RID) IS REPRESENTED 
BY RRRR OR LRRR, THE L BEING THE NUMBER OF THE CA LINE SELECTED FOR OPER- 
ATION AT THE TIME OF THE PRINTOUT (0-7). ROUTINE ADDRESS (RAD) IS REPRESEN- 
TED BY AAAA. AND HEXADECIMAL MODIFIERS ARE REPRESENTED BY MODI. .M0D2. .ETC. 

4.1 STATUS (AXXX) PRINTOUTS 

AOCA LRRR AAAA 

START OF ROUTINE MESSAGE. THE PROGRAM HAS STARTED EXECUTION OF 
THE ROUTINE SPECIFIED IN THE RID (RRR) PORTION OF THE PRINTOUT 
AND ON CA LINE NUMBER (L) ALSO SPECIFIED IN THE RID. 

4.2 COMMAND (CXXX) PRINTOUTS 

CXA LRRR AAAA 

NO CA LINES ARE SELECTED FOR OPERATION. REFER TO SECTION 3.2 TABLE 
2 FOR LINE SELECTION PROCEDURE. THIS PRINTOUT IS FOLLOWED BY A 
WAIT IDENTIFIED BY THE B-REGISTER CONTAINING /30CA. 

4.3 DATA (DXXX) PRINTOUTS 

D001 LRRR AAAA MODI 

SYN-SYN SEQUENCE OR DLE-SYN SEQUENCE INSERTION RATE. MODIFIER 1 
CONTAINS THE NUMBER (IN HEX) OF CHARACTERS TRANSMITTED BEFORE A 
SYN-SYN OR DLE-SYN SEQUENCE WAS INSERTED BY HARDWARE INTO THE 
DATA STREAM. 
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DXA LRRR AAAA MODI M0D2 M0D3....M0D10 

TEST SUMMARY. THIS PRINTOUT OCCURS AT THE END OF THE PROGRAM AND 
GIVES A SUMMARY OF THE ERRORS THAT OCCURRED DURING THE TESTS. 
MODIFIER 1 IS THE PASS COUNT. IF THE LOOP PROGRAM OPTION IS 
SPECIFIED, THIS COUNT IS INCREMENTED EACH PASS THROUGH THE 
PROGRAM. MOOIFIER 2 SHOWS WHICH LINES WERE SELECTED FOR 
OPERATION DURING THE TEST. BITS THROUGH 7 OF MODIFIER 2 
CORRESPOND RESPECTIVELY TO CA LINES THROUGH 7. A BIT BEING 
ON MEANS THAT LINE WAS SELECTED. MODIFIERS 3 THROUGH 10 ARE THE 
ERROR COUNTS FOR THE RESPECTIVE CA LINES ON THE 1800. ONLY AS 
MANY MODIFIERS AS THERE ARE CA LINES SPECIFIED IN THE PROGRAM 
EDIT CARDS WILL BE PRINTED. 

4.4 ERROR (EXXX) PRINTOUTS 

E001 LRRR AAAA MODI M0D2 M0D3 M0D4 
M0D5 M006 M0D7 

THE OPERATING, BYTE COUNT, OR DIAGNOSTIC DSW SENSED WAS NOT AS 
EXPECTED. MODIFIERS 1, 2, AND 3 ARE THE OPERATING, BYTE COUNT, 
AND DIAGNOSTIC DSWS SENSED RESPECTIVELY. MODIFIER 4 I $ PRINTED 
ONLY DURING EXECUTION OF ROUTINES USING VARIABLE DATA, AND CONTAINS 
THE DATA IN USE AT THE TIME OF THE ERROR. MODIFIERS 5, 6, AND 7 
CONTAIN THE BITS IN ERROR IN THE RESPECTIVE DSWS. A BIT BEING ON IN 
ONE OF THESE MODIFIERS MEANS THAT THE CORRESPONDJNG BIT IN THE DSW 
PRINTED DIRECTLY ABOVE IT IS IN ERROR. 

E002 LRRR AAAA MODI M0D2 M0D3 M0D4 
M0D5 M0D6 M0D7 

THE OPERATING, BYTE COUNT, OR DIAGNOSTIC DSW SENSED WHILE SERVICING 
AN INTERRUPT WAS NOT AS EXPECTED. MODIFIERS 1, 2, AND 3 ARE THE 
OPERATING, BYTE COUNT, AND DIAGNOSTIC DSWS RESPECTIVELY AS SENSED. 
MODIFIER 4 IS PRINTED ONLY DURING EXECUTION OF ROUTINES USING VARIABLE 
DATA, AND CONTAINS THE DATA IN USE AT THE TIME OF THE ERROR. MODIFIERS 
5, 6, AND 7 CONTAIN THE BITS IN ERROR IN THE RESPECTIVE DSWS. A BI T 
BEING ON IN ONE OF THESE MODIFIERS MEANS THAT THE CORRESPONDING BIT 
IN THE DSW PRINTED DIRECTLY ABOVE IT IS IN ERROR. 



E004 LRRR AAAA MODI M0D2 M0D3 M0D4 

S«i ; h1 «»» '-ski; «»» ♦s.si. 

r"T« E »?ffi OK. ,1 ".RUBLE DAT. IS IN USE AT THE TINE OF THE 
ERROR. 

E005 LRRR AAAA MODI M0D2 M0D3 M0D4 

XXXX XXXX XXXX XXXX 

YYYY YYYY YYYY YYYY 

A nATA COMPARE ERROR OCCURRED IN COMPARING DATA TABLES TRANSMITTED 
nn RttEIVEO BY THE CA. MODIFIER 1 CONTAINS THE RELATIVE POSITION OF 
?Sp PIrIt CHARACTER IN THE TABLE WHICH DID NOT COMPARE (IN HEX). IF 
MDIF ER 1 CONTAINS 0001, THE FIRST CHARACTER IN THE TABLE DID NOT 
COMPARE. MODIFIER 2 IS THE WORD CONTAINING THIS CHARACTER, 
A^n MODIFIER 3 IS THE SAME WORD AS IT SHOULD HAVE APPEARED. 
mSdIMER 4 IS THE VARIABLE DATA IN USE AT THE TIME OF THE ERROR AND 
IS PRINTED ONLY IF THERE IS VARIABLE DATA IN USE AT THE TIME. 
A m.MPnF THE RETRIEVED DATA (XXXX MODIFIERS) AND EXPECTED DATA 
^YYYY MODIFIERS) IS PRINTED ALSO IF THE OPTION TO BYPASS THESE 
PRINTOUTS IS NOT SELECTED (SEE 3.2 TABLE 0). ALL DATA COMPARED IS 
PRINTED OUT. 

E006 LRRR AAAA 

TRANSITIONS ON THE TRANSMIT TIMING LINE ARE NOT BEING SENSED BY 
the PRIBRAM OR ARE OCCURRING TOO INFREQUENTLY. CHECK THE 
InItALLAuSn OF THE TRANSMIT TIMING JUMPER (SEE 5.4). THIS ERROR ALSO 
INDICATES STABILITY TO EXECUTE A SENSE DIAGNOSTIC DSW INSTRUCTION. 

E007 LRRR AAAA 

TRANSITIONS ARE NOT APPEARING ON RECEIVE DATA LINE DURING TRANSMIT 

Operation? check wraparound path and installation of test jumper 

CONNECTING RECEIVE DATA MARK TO BYTE COUNT DSW BIT ONE (SEE 5.4). 



E003 LRRR AAAA MODI M0D2 M0D3 M0D4 

AN UNEXPECTED CA INTERRUPT OCCURRED. MODIFIERS 1, 2, AND 3 ARE THE. 
OPERATING, BYTE COUNT, AND DIAGNOSTIC DSWS SENSED DURING THE 
SERVICING OF THE INTERRUPT. MODIFIER 4 CONTAINS THE VARIABLE DATA 
IN USE AT THE TIME AND IS PRINTED ONLY DURING OPERATION OF ROUTINES 
USING VARIABLE DATA. 



E008 LRRR AAAA 



HARDWARE IS NOT INSERTING SYN-SYN OR DLE-SYN SEQUENCES DURING 
TRANSMIT OPERATION. 
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5. COMMENTS 



5.1 GENERAL PROGRAM DESCRIPTION 



THE 1800 CA WRAPAROUND TEST PROVIDES FOR TESTING OF THE CA 

HARDWARE WITHOUT THE USE OF A REMOTE STATION. THE PROGRAM 

IS WRITTEN TO BE RUN UNDER THE CONTROL OF A DIAGNOSTIC MONITORt 

BUT, DUE TO TIMING CONSIDERATIONS, MUST BE RUN AS A STAND-ALONE 

PROGRAM. 

THE DATA SET CABLE TEST SWITCH MUST BE IN THE 'TEST' POSITION WHEN 
RUNNING THE CA WRAPAROUND TEST, AND THE DATA SET CABLE SHOULD BE 
DISCONNECTED FROM THE DATA SET. THE INSTALLATION OF TEST JUMPERS 
IS ALSO NECESSARY AS OUTLINED IN SECTION 5.4. 

AN OPTIONAL ROUTINE IS PROVIDED TO ALLOW WRAPAROUND THROUGH THE 
DATA SET FOR DATA SETS HAVING THAT FEATURE. THIS ROUTINE <2C) MUST 
BE SELECTED IN ORDER TO BE RUN. 

TWO ADDITIONAL OPTIONAL ROUTINES ARE PROVIDED IN ORDER TO TEST 
THE ADVANCE/RETARD CIRCUITRY. THESE ROUTINES REQUIRE OBSERVATION 
USING AN OSCILLOSCOPE (SEE 5.4, SERVICE HINTS) AND MUST BE SELECTED 
IN ORDER TO BE RUN. 

THE CA WRAPAROUND TEST IS DIVIDED INTO A LARGE NUMBER OF 'TEST 
ROUTINES* EACH OF WHICH INITIATES A SINGLE I/O OPERATION. 
NO MANUAL INTERVENTION IS REQUIRED DURING OPERATION OF THE PROGRAM 
UNLESS ONE OF THE OPTIONAL ROUTINES IS SELECTED. 

THE 1800 CA WRAPAROUND PROGRAM TESTS TRANSMIT OPERATIONS BY SENSING 
TRANSMITTED DATA ON THE RECEIVE DATA LINE AND COMPARING THIS DATA 
AGAINST THE DATA WHICH SHOULD HAVE BEEN TRANSMITTED. RECEIVE 
OPERATIONS ARE TESTED BY GENERATING MESSAGES ON THE RECEIVE DATA LINE 
VIA THE PROGRAMMED RECEIVE INPUT TRIGGER. TRANSMIT AND RECEIVE 
OPERATIONS ARE ALSO TESTED IN DIAGNOSTIC MODE. 



5.2 TEST ROUTINE DESCRIPTIONS 



THE NUMBERS IN THE PARENTHESES FOLLOWING THE ROUTINE DESCRIPTIONS 
INDICATE THE MID'S OF THE ERROR PRINTOUTS THAT MAY OCCUR AT THAT - 
POINT IN THE TEST PROCEDURE (SEE 4.4). 

ROUTINE 01— TESTS ABILITY TO CLEAR CA WHILE IN TRANSMIT MODE. 

THIS ROUTINE INITIALIZES THE CA TO A TRANSMIT TABLE AND IMMEDIATELY 
CLEARS THE CA. THE THREE DSW'S ARE THEN SENSED AND CHECKED TO 
MAKE SURE THE CA HAS BEEN CLEARED (E001). THE PROGRAM THEN WAITS FOUR 
SECONDS AND CHECKS TO SEE IF AN INTERRUPT HAS OCCURRED (E003). 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CA WRAPAROUND TEST 

ROUTINE 02—TESTS ABILITY TO INITIALIZE TO TRANSMIT TABLE. 

THIS ROUTINE INITIALIZES THE CA TO A TRANSMIT TABLE, THEN IMMEDIATELY 
SENSES AND SAVES THE THREE DSW'S. THE CA IS THEN CLEARED AND THE 
SENSED DSW'S ARE CHECKED (E001). THE PROGRAM THEN WAITS FOUR SECONDS 
AND CHECKS FOR AN INTERRUPT (E003). 

ROUTINE 03-— TESTS ABILITY TO CLEAR THE CA WHILE IN RECEIVE MODE. 

THIS ROUTINE INITIALIZES THE CA TO A RECEIVE TABLE, THEN IMMEDIATELY 
CLEARS THE CA. THE THREE DSW'S ARE THEN SENSED AND CHECKED TO MAKE 
SURE THE CA HAS BEEN CLEARED (E001). THE PROGRAM THEN WAITS FOUR 
SECONDS AND CHECKS TO SEE IF AN INTERRUPT HAS OCCURRED (E003). 

ROUTINE 04— TESTS ABILITY TO INITIALIZE TO RECEIVE TABLE. 

THIS ROUTINE INITIALIZES THE CA TO A RECEIVE TABLE, THEN IMMEDIATELY 
SENSES AND SAVES THE THREE DSW'S. THE CA IS THEN CLEARED AND THE 
SENSED DSW'S ARE CHECKED (EOOl). THE PROGRAM THEN WAITS FOUR SECONDS 
AND CHECKS FOR AN INTERRUPT (E003). 

ROUTINE 05— TESTS COMMAND REJECT IN TRANSMIT MODE. 

THIS ROUTINE INITIALIZES THE CA TO A TRANSMIT TABLE, THEN IMMEDIATELY 
ISSUES ANOTHER INITIALIZE INSTRUCTION TO THE SAME TABLE IN ORDER TO 
FORCE A COMMAND REJECT. THE PROGRAM THEN SENSES AND STORES THE 
THREE DSW'S AND CLEARS THE CA. THE PROGRAM NEXT CHECKS FOR RECEIPT 
OF A COMMAND REJECT INTERRUPT (E002, E004), AND CHECKS THE SENSED 
DSW'S (EOOl). 

ROUTINE 06— TESTS PROGRAMMED RECEIVE TRIGGER. 

" THIS ROUTINE INITIALIZES THE CA TO A RECEIVE TABLE, WAITS 20 

MILLISECONDS, AND SENSES AND SAVES THE THREE DSWS. THE DSWS ARE THEN 
CHECKED TO ENSURE THAT ALL SER/DES BITS ARE ON (EOOl). THE PROGRAM 
THEN ISSUES A SENSE DSW INSTRUCTION WITH BIT 8 ON IN THE IOCC MODIFIER 
IN ORDER TO TURN ON THE PROGRAMMED RECEIVE INPUT TRIGGER, WAITS ANOTHER 
20 MILLISECONDS, SENSES AND SAVES THE THREE DSWS, AND CLEARS THE CA. 
THE SENSED DSWS ARE THEN CHECKED TO ENSURE THAT ALL SER/DES BITS ARE 
NOW OFF (EOOl). 

ROUTINE 07 — TESTS ABILITY TO LOAD BYTE COUNTER. 

THIS ROUTINE INITIALIZES THE CA TO A RECEIVE TABLE WITH A BYTE COUNT 
OF ONE. THE THREE DSW'S ARE IMMEDIATELY SENSED, AND THE CA IS THEN 
CLEARED. THE SENSED DSW'S ARE THEN CHECKED TO ENSURE THAT THE BYTE 
COUNTER HAS BEEN PROPERLY LOADED (EOOl). THE BYTE COUNT IS THEN 
INCREMENTED By FIVE, AND THE ROUTINE IS RE-RUN USING THE NEW BYTE 
COUNT. THE ROUTINE IS LOOPED ON, INCREMENTING THE BYTE COUNT BY FIVE 
EACH TIME UNTIL THE BYTE COUNT EXCEEDS 4095 (/OFFF), AT WHICH TIME THE 
PROGRAM PROCEEDS TO THE NEXT SEQUENTIAL ROUTINE. THE BYTE COUNT IS 
USED AS VARIABLE DATA BY THIS ROUTINE. 
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ROUTINE 08— TESTS CONTINUE TIMER 

THIS ROUTINE ISSUES A SENSE DSW INSTRUCTION WITH BIT 10 ON IN THE 
IOCC MODIFIER IN ORDER TO START THE CONTINUE TIMER. THE PROGRAM 
THEN DELAYS FOR 1.8 SECONDS AND CHECKS FOR AN UNEXPECTED INTERRUPT 
(E003). THE PROGRAM THEN WAITS 0.4 SECONDS LONGER AND CHECKS TO 
MAKE SURE A TIMEOUT INTERRUPT HAS OCCURRED (E002t E004). 

ROUTINE 09— TESTS RECEIVE TIMEOUT 

THIS ROUTINE INITIALIZES THE CA TO A RECEIVE TABLEt WAITS 2.5 SECONDS, 
AND CHECKS FOR AN UNEXPECTED INTERRUPT (EOO3). THE PROGRAM THEN 
WAITS 0.7 SECONDS LONGER AND CHECKS FOR A TIMEOUT INTERRUPT (E002, 
E004). 

ROUTINE OA— TESTS ABILITY TO SUPPRESS TIMEOUT INTERRUPTS 

THIS ROUTINE INITIALIZES THE CA TO A RECEIVE TABLE WITH TIMEOUT 
INTERRUPTS SUPPRESSED. THE PROGRAM THEN WAITS FOUR SECONDS AND 
CLEARS THE CA. THE PROGRAM THEN CHECKS TO MAKE SURE NO INTERRUPT 
HAS OCCURRED (E003). 

ROUTINE OB— TEST FOR TRANSMISSION OF FIRST PRE-SYN PAD. 

THIS ROUTINE INITIALIZES THE CA TO A TRANSMIT TABLE AND RETRIEVES 
THE FIRST CHARACTER TRANSMITTED. THE THREE DSW'S ARE THEN SENSED 
AND STORED AND THE CA IS CLEARED. THE SENSED DSW'S ARE THEN CHECKED 
(E001), AND THE TRANSMITTED DATA IS CHECKED TO MAKE SURE IT IS A 
PRE-SYN PAD </55) (E005). THE PROGRAM THEN CHECKS TO MAKE SURE NO 
INTERRUPT HAS OCCURRED (E003). 

ROUTINE OC— TESTS TRANSMISSION OF PRE-SYN PADS AND SYN-SYN SEQUENCE 

THIS ROUTINE INITIALIZES THE CA TO A TRANSMIT TABLE AND RETRIEVES 
THE FIRST FIVE CHARACTERS TRANSMITTED. THE THREE DSW'S ARE THEN 
SENSED AND SAVED AND THE CA IS CLEARED. THE SENSED DSW'S ARE THEN 
CHECKED (E001), AND THE RETRIEVED DATA IS CHECKED TO MAKE SURE IT 
CONSISTS OF THREE PRE-SYN PADS AND TWO SYN CHARACTERS (E005). THE 
PROGRAM THEN CHECKS TO MAKE SURE NO INTERRUPT HAS OCCURRED (E003). 

ROUTINE OD-rTESTS TRANSMISSION OF MESSAGE WITH EVEN BYTE COUNT AND 
TESTS FOR TABLE COMPLETE INTERRUPT. 

THIS ROUTINE INITIALIZES THE CA TO A TRANSMIT TABLE AND RETRIEVES 
ELEVEN TRANSMITTED CHARACTERS. THE CA IS THEN CLEARED AND THE 
RETRIEVED DATA IS COMPARED WITH THE DATA WHICH SHOULD HAVE BEEN 
TRANSMITTED (E005). THE PROGRAM THEN CHECKS FOR A TABLE COMPLETE 
INTERRUPT (E002, EOO*). 



ROUTINE OE— TESTS TRANSMISSION OF MESSAGE WITH ODD BYTE COUNT AND 
TESTS FOR TABLE COMPLETE INTERRUPT 

THIS ROUTINE INITIALIZES CA TO A TRANSMIT TABLE WITH AN ODD BYTE 
COUNT AND RETRIEVES NINE TRANSMITTED CHARACTERS. THE CA IS THEN 
CLEARED AND THE RETRIEVED DATA IS COMPARED WITH THE DATA WHICH SHOULD 
HAVE BEEN TRANSMITTED (E005). THE PROGRAM THEN CHECKS FOR A TABLE 
COMPLETE INTERRUPT (E002, E004). 

ROUTINE OF— TESTS ABILITY TO SUPPRESS TABLE COMPLETE INTERRUPT AND 
TESTS TRANSMIT TIMEOUT 

THIS ROUTINE INITIALIZES THE CA TO A TRANSMIT TABLE WITH TABLE 
COMPLETE INTERRUPT SUPPRESSED. THE PROGRAM THEN DELAYS FOR 2.5 
SECONDS AND CHECKS TO MAKE SURE NO INTERRUPT HAS OCCURRED (E003). 
THE PROGRAM THEN WAITS 0.7 SECONDS LONGER AND CHECKS TO MAKE SURE 
A TIMEOUT INTERRUPT HAS OCCURRED (E002tE004). 

ROUTINE 10 — TESTS DECODE OF CONTROL CHARACTERS IN NORMAL MODE 

THIS ROUTINE INITIALIZES THE CA TO A TRANSMIT TABLE CONTAINING THE 
CHARACTER /OOt AND RETRIEVES THE FIRST FIVE CHARACTERS TRANSMITTED 
WHICH ARE THE PRE-SYN PADS AND SYN-SYN SEQUENCE. THE /OO CHARACTER 
HAS BEEN FETCHED FROM CORE AND LOADED INTO SER/DES AT THIS TIME. BUT 
HAS NOT BEEN TRANSMITTED. THE THREE DSW'S ARE IMMEDIATELY SENSED AND 
SAVED, AND THE CA IS CLEARED. THE SENSED DSW'S ARE THEN CHECKED ( EOO 1 ) 
THE RETRIEVED DATA IS CHECKED (E005), AND THE PROGRAM CHECKS TO MAKE 
SURE NO INTERRUPT OCCURRED (E003). THE CHARACTER /OO IS THEN 
INCREMENTED BY ONE AND THE ROUTINE IS RE-RUN. THE ROUTINE IS LOOPED ON 
UNTIL ALL CHARACTERS (OO-FF) HAVE BEEN TRIED. THE PROGRAM CHECKS FOR 
THE PROPER BITS TO COME ON IN THE DSW'S AS THE VARIOUS BSC CONTROL 
CHARACTERS ARE DECODEO. THE /OO CHARACTER WHICH IS VARIED EACH TIME 
THE ROUTINE IS RUN IS USED AS VARIABLE DATA BY THIS ROUTINE. 

ROUTINE 11 — TESTS DECODE OF CONTROL CHARACTERS IN NORMAL MODE 

THIS ROUTINE INITIALIZES THE CA TO A TRANSMIT TABLE CONTAINING THE 
CHARACTER /OO, AND RETRIEVES THE FIRST SIX CHARACTERS TRANSMITTED 
WHICH ARE THE PRE-SYN PADS, THE SYN-SYN SEQUENCE, AND THE CHARACTER 
/OO. THE THREE DSW'S ARE IMMEDIATELY SENSED AND SAVED, AND THE CA 
IS CLEARED. THE SENSED DSW'S ARE THEN CHECKED (E001), THE RETRIEVED 
DATA IS CHECKED (E005), AND THE PROGRAM CHECKS TO MAKE SURE THAT NO 
INTERRUPT OCCURRED (E003). THE CHARACTER /OO IS THEN INCREMENTED BY 
ONE AND THE ROUTINE IS RE-RUN. THE ROUTINE IS LOOPED ON UNTIL ALL 
CHARACTERS (OO-FF) HAVE BEEN TRIED. THE PROGRAM CHECKS FOR THE 
PROPER BITS TO COME ON IN THE DSW'S AS THE VARIOUS BSC CONTROL 
CHARACTERS ARE DECODED. THE /OO CHARACTER WHICH IS VARIED EACH TIME 
THE ROUTINE IS RE-RUN IS USED AS VARIABLE DATA BY THIS ROUTINE. 
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ROUTINE 12— TESTS DECODE OF CONTROL CHARACTERS IN TRANSPARENT MODE 
THIS ROUTINE IS BYPASSED WHEN RUNNING IN USASCII MODE. 

THE PROGRAM INITIALIZES THE CA TO A TRANSMIT TABLE CONTAINING A DLE 
CHARACTER FOLLOWED BY THE CHARACTER /OO, AND RETRIEVES THE FIRST 
SIX CHARACTERS TRANSMITTED WHICH ARE THE PRE-SYN PADS, THE SYN-SYN 
SEQUENCE, AND THE DLE CHARACTER. THE CHARACTER /OO HAS BEEN FETCHED 
FROM CORE AND LOADED INTO SER/DES AT THIS TIME, BUT HAS NOT BEEN 
TRANSMITTED. THE THREE DSW'S ARE THEN SENSED AND SAVED, AND THE CA IS 
CLEARED. THE SENSED DSW'S ARE THEN CHECKED (E001), THE RETRIEVED DATA 
IS CHECKED (E005), AND THE PROGRAM CHECKS TO MAKE SURE NO INTERRUPT 
OCCURRED (E003I. THE CHARACTER /OO Is THEN INCREMENTED BY ONE, AND THE 
ROUTINE IS RE-RUN. THE ROUTINE IS LOOPED ON UNTIL ALL CHARACTERS 
(OO-FF) HAVE BEEN TRIED. THE PROGRAM CHECKS FOR THE PROPER BITS TO 
COME ON IN THE DSW'S AS THE VARIOUS BSC CONTROL CHARACTERS ARE DECODED. 
THE CHARACTER /OO WHICH IS INCREMENTED EACH TIME THE ROUTINE IS RE-RUN 
IS USED AS VARIABLE DATA BY THIS ROUTINE. 

ROUTINE 13— TESTS DECODE OF CONTROL CHARACTERS IN TRANSPARENT MODE 

THIS ROUTINE IS BYPASSED WHEN RUNNING IN USASCII MODE. 

THE PROGRAM INITIALIZES THE CA TO A TRANSMIT TABLE CONTAINING A DLE 
CHARACTER FOLLOWED GY THE CHARACTER /OO, ANO RETRIEVES THE FIRST 
SEVEN CHARACTERS TRANSMITTED WHICH ARE THE PRE-SYN PADS, THE SYN-SYN 
SEQUENCE, THE DLE CHARACTER, AND THE CHARACTER /OO. THE THREE DSW'S 
ARE THEN SENSED AND SAVED, AND THE CA IS CLEARED. THE SENSED DSW'S 
ARE THEN CHECKED (EOOl), THE RETRIEVED DATA IS CHECKED (E005), AND 
THE PROGRAM CHECKS TO MAKE SURE NO INTERRUPT OCCURRED (E003). THE 
CHARACTER /OO IS THEN INCREMENTED BY ONE AND THE ROUTINE IS RE-RUN. 
THE ROUTINE IS LOOPED ON UNTIL ALL CHARACTERS (OO-FF) HAVE BEEN 
TRIED. THE PROGRAM CHECKS FOR THE PROPER BITS TO COME ON IN THE 
DSW'S AS THE VARIOUS BSC CONTROL CHARACTERS ARE DECOOEO. THE CHARACTER 
/OO WHICH IS INCREMENTED EACH TIME THE ROUTINE IS RE-RUN IS USED AS 
VARIABLE DATA BY THIS ROUTINE. 
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THIS ROUTINE INITIALIZES THE CA 
COUNT OF /IFF, AND RETRIEVES THE 
THE THREE DSW'S ARE THEN SENSED 
THE SENSED DSW'S ARE THEN CHECKE 
BYTE COUNT IS IN THE BYTE COUNT 
TO MAKE SURE NO INTERRUPT HAS OC 
BYTE COUNT IS THEN INCREMENTED B 
ROUTINE IS LOOPED ON, INCREHENTI 
UNTIL THE BYTE COUNT EXCEEDS /FF 
PROCEEDS TO THE NEXT SEQUENTIAL 
COUNT IS SET AT THE BEGINNING OF 
BY THIS ROUTINE. 



TO A TRANSMIT TABLE WITH A BYTE 

FIRST 512 CHARACTERS TRANSMITTED. 
AND SAVED, AND THE CA IS CLEARED. 
D TO MAKE SURE THE PROPER RESIDUAL 
DSW (EOOl). THE PROGRAM THEN CHECKS 
CURRED (E003). THE TRANSMIT TABLE 
Y 512 AND THE ROUTINE IS RE-RUN. THE 
NG THE BYTE COUNT BY 512 EACH TIME, 
F, AT WHICH TIME THE PROGRAM 
ROUTINE. THE VALUE TO WHICH THE BYTE 
THE ROUTINE IS USED AS VARIABLE DATA 



ROUTINE 16 — TESTS ABILITY TO CHAIN FROM TRANSMIT TABLE TO TRANSMIT 
TABLE 

THIS ROUTINE INITIALIZES THE CA TO A TRANSMIT TABLE CHAINED TO A 
SECOND TRANSMIT TABLE AND RETRIEVES THE FIRST ELEVEN CHARACTERS 
TRANSMITTED WHICH INCLUDE THE FIRST TRANSMIT TABLE AND TWO CHARACTERS 
FROM THE SECOND TRANSMIT TABLE. THE THREE DSW'S ARE THEN SENSED AND 
SAVED, AND THE CA IS CLEARED. THE DATA IS THEN CHECKED TO MAKE SURE 
THE CHAINING TOOK PLACE (E005), THE PROGRAM CHECKS TO HAKE SURE NO 
INTERRUPT OCCURRED (E003), AND THE SENSED DSW'S ARE CHECKED (EOOl). 

ROUTINE 17— TESTS TRANSMIT TIMEOUT 

THIS ROUTINE INITIALIZES THE CA TO A TRANSMIT TABLE CHAINED TO A 
SECOND TRANSMIT TABLE CONTAINING TWO SYN CHARACTERS AND CHAINED BACK 
TO ITSELF. THE PROGRAM THEN WAITS FOR 2.5 SECONDS AND CHECKS TO 
MAKE SURE NO INTERRUPT HAS OCCURRED (EOO3). THE PROGRAM THEN WAITS 
FOR 0.7 SECONDS MORE, CLEARS THE CA, AND CHECKS FOR A TIMEOUT 
INTERRUPT (E002, E004). 






ROUTINE 14- 



-TESTS FOR DLE INSERTION FOLLOWING TRANSMISSION OF DLE 
IN TRANSPARENT MODE 



THIS ROUTINE IS BYPASSED WHEN RUNNING IN USASCII MODE. 

THE PROGRAM INITIALIZES THE CA TO A TRANSMIT TABLE CONTAINING THE 
FOLLOWING CHARACTERS DLE STX /7F DLE /7F /7F , AND RETRIEVES THE 
TRANSMITTED DATA. THE THREE DSW'S ARE THEN SENSED AND SAVED, AND 
THE CA IS CLEARED. THE RETRIEVED DATA IS THEN COMPARED (E005). THE 
FOLLOWING STRING OF CHARACTERS SHOULD HAVE BEEN RETRIEVED /55 /55 
/55 SYN SYN DLE STX /7F DLE DLE /7F /7F. THE PROGRAM THEN CHECKS 
THE SENSED DSW'S (EOOl), AND CHECKS TO MAKE SURE NO INTERRUPT 
OCCURRED (E003). 



ROUTINE 18— TESTS FOR HARDWARE INSERTION OF SYN-SYN SEQUENCE 

THIS ROUTINE INITIALIZES THE CA TO A TRANSMIT TABLE WHICH IS CHAINED 
TO A SECOND TRANSMIT TABLE CONTAINING TWO /7F CHARACTERS AND CHAINED 
BACK TO ITSELF. THE PROGRAM THEN WAITS FOUR SECONDS, CLEARS THE CA, 
AND CHECKS TO MAKE SURE NO INTERRUPT HAS OCCURRED (E003). A TIMEOUT 
INTERRUPT INDICATES THE TIMER WAS NOT RESET BY HARDWARE INSERTION OF 
A SYN-SYN SEQUENCE. 

ROUTINE 19 — TESTS FOR DLE-SYN SEQUENCE INSERTIONS 

THIS ROUTINE IS BYPASSED WHEN RUNNING IN USASCII MODE. 

THE PROGRAM INITIALIZES THE CA TO THREE CHAINED TRANSMIT TABLES, AND 
MODIFIES THE CHAIN ADDRESSES TO CHAIN THE SECOND TABLE BACK ON 
ITSELF. THE FIRST TABLE CONTAINS A DLE-STX SEQUENCE, AND THE 
SECOND TABLE CONTAINS TWO /7F CHARACTERS. THE PROGRAM THEN WAITS 
FOUR SECONDS, CLEARS THE CA, AND CHECKS TO MAKE SURE THAT NO 
INTERRUPT HAS OCCURRED (E003). A TIMEOUT INTERRUPT INDICATES THAT 
THE TIMER HAS NOT RESET BY HARDWARE INSERTION OF A DLE-SYN SEQUENCE. 
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ROUTINE I A— TESTS LONG END SEQUENCE, SHORT END SEQUENCE, AND 

CALCULATION AND INSERTION OF BCC CHARACTERS IN NORMAL 
MODE 

THIS ROUTINE INITIALIZES THE CA TO A TRANSMIT TABLE CONTAINING THE 
FOLLOWING CHARACTERS STX /80 /Ol /DF /7F ETB /FF /FF, AND RETRIEVES 
THE TRANSMITTED DATA. THE THREE DSW'S ARE THEN SENSED AND SAVED. AND 
THE CA IS CLEARED. THE TRANSMITTED DATA IS THEN CHECKEO (E005), 
INCLUDING BCC CHARACTERS, THE SENSED DSW'S ARE CHECKED (EOOl), AND 
THE PROGRAM CHECKS FOR A TABLE COMPLETE INTERRUPT (E002, E004). THE 
PROGRAM THEN REPLACES THE ETB IN THE TRANSMIT TABLE WITH AN ETX AND 
RE-RUNS THE ROUTINE. THE ROUTINE IS RUN ONCE FOR EACH OF THE BSC 
END CONTROL CHARACTERS ETB, ETX, EOT, ENQ, NAK, AND ITB BEFORE 
CONTINUING ON TO THE NEXT SEQUENTIAL ROUTINE. THE BSC END CONTROL 
CHARACTERS ARE USED AS VARIABLE DATA BY THIS ROUTINE. 

ROUTINE 1B--TESTS LONG END SEQUENCE, SHORT END SEQUENCE, AND 
CALCULATION THE INSERTION OF BCC CHARACTERS IN 
TRANSPARENT MODE 

THIS ROUTINE IS BYPASSED WHEN RUNNING IN USASCH MODE. 

THE PROGRAM INITIALIZES THE CA TO A TRANSMIT TABLE CONTAINING THE 
FOLLOWING CHARACTERS DLE STX /Ol /80 OLE ETB /FF /FF, AND RETRIEVES 
THE TRANSMITTED DATA. THE THREE DSW'S ARE THEN SENSED AND SAVED, AND 
THE CA IS CLEARED. THE TRANSMITTED DATA IS THEN CHECKED (E005), 
INCLUDING BCC CHARACTERS, THE SENSED DSW'S ARE CHECKED (EOOl), AND 
THE PROGRAM CHECKS FOR A TABLE COMPLETE INTERRUPT (E002, E004). THE 
ETB IN THE TRANSMIT TABLE IS THEN REPLACED BY AN ETX, AND THE ROUTINE 
IS RE-RUN. THE ROUTINE IS RUN ONCE FOR EACH OF THE BSC END CONTROL 
CHARACTERS ETB, ETX, EOT, ENQ, NAK, AND ITB BEFORE CONTINUING ON TO 
THE NEXT SEQUENTIAL ROUTINE. THE BSC CONTROL END CHARACTERS ARE USED 
AS VARIABLE DATA BY THIS ROUTINE. 

ROUTINE 1C — TESTS TRANSMISSION OF CONTROL CHARACTERS IN NORMAL TEXT 

THIS ROUTINE INITIALIZES THE CA TO A TRANSMIT TABLE CONTAINING 
BSC CONTROL CHARACTERS, AND RETRIEVES THE TRANSMITTED DATA. THE THREE 
DSW'S ARE THEN SENSED AND SAVED, AND THE CA IS CLEARED. THE PROGRAM 
THEN CHECKS THE TRANSMITTED DATA (E005), CHECKS THE SENSED DSW'S 
(EOOl), AND CHECKS FOR A TABLE COMPLETE INTERRUPT (E002, E004). 

ROUTINE ID—TESTS TRANSMISSION OF CONTROL CHARACTERS IN TRANSPARENT 
MODE 

THIS ROUTINE IS BYPASSED WHEN RUNNING IN USASCH MODE. 

THE PROGRAM INITIALIZES THE CA TO A TRANSPARENT MODE TRANSMIT TABLE 
CONTAINING BSC CONTROL CHARACTERS, AND RETRIEVES THE TRANSMITTED DATA. 
THE THREE DSW'S ARE THEN SENSED AND SAVED, AND THE CA IS CLEARED. THE 
PROGRAM THEN CHECKS THE TRANSMITTED DATA (E005), CHECKS THE SENSED 
DSW'S (EOOl), AND CHECKS FOR A TABLE COMPLETE INTERRUPT (E002, E004). 
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ROUTINE IE — TESTS SYN-SYN SEQUENCE INSERTION IN NORMAL MODE 

THIS ROUTINE INITIALIZES THE CA TO A TRANSMIT TABLE FIFTY CHARACTERS 
LONG, AND RETRIEVES THE TRANSMITTED DATA. THE CA IS THEN CLEARED, 
AND THE RETRIEVED DATA IS SCANNED FOR AN INSERTED SYN-SYN SEQUENCE. 
IF NONE IS FOUND, THE RETRIEVED DATA IS CHECKED (EOO5), THE LENGTH 
OF THE TABLE IS INCREMENTED BY ONE, AND THE ROUTINE IS RE-RUN. THE 
ROUTINE IS LOOPED ON, INCREASING THE LENGTH OF THE DATA TABLE BY ONE 
EACH TIME UNTIL A SYN-SYN SEQUENCE INSERTION OCCURS. THEN THE DATA 
IS AGAIN CHECKED (E005), A DOOl MESSAGE Is PRINTED, GIVING THE LENGTH 
OF THE TABLE AT THE TIME THE INSERTION OCCURRED, AND THE PROGRAM 
PROCEEDS TO THE NEXT SEQUENTIAL ROUTINE. THE NUMBER OF CHARACTERS IN 
THE TRANSMIT TABLE IS USED AS VARIABLE DATA BY THIS ROUTINE. 

ROUTINE IF— TESTS DLE-SYN SEQUENCE INSERTION IN TRANSPARENT MODE 

THIS ROUTINE IS BYPASSED WHEN RUNNING IN USASCH MODE. 

THE PROGRAM INITIALIZES THE CA TO A TRANSPARENT MODE TRANSMIT TABLE 
FIFTY CHARACTERS LONG, AND RETRIEVES THE TRANSMITTED DATA. THE CA IS 
THEN CLEARED, AND THE RETRIEVED DATA SCANNED FOR AN INSERTED DLE-SYN 
SEQUENCE. IF NONE IS FOUND, THE RETRIEVED DATA IS CHECKED (E005), 
THE LENGTH OF THE TABLE IS INCREMENTED BY ONE, AND THE ROUTINE IS 
RE-RUN. THE ROUTINE IS LOOPED ON, INCREASING THE LENGTH OF THE DATA 
TABLE BY ONE EACH TIME UNTIL A DLE-SYN SEQUENCE INSERTION OCCURS. 
THEN THE DATA IS AGAIN CHECKED (E005), A DOOl MESSAGE IS PRINTED, 
GIVING THE LENGTH OF THE TABLE AT THE TIME THE INSERTION OCCURRED, 
AND THE PROGRAM PROCEEDS TO THE NEXT SEQUENTIAL ROUTINE. THE NUMBER OF 
CHARACTERS IN THE TRANSMIT TABLE IS USED AS VARIABLE DATA BY THIS 
ROUTINE. 

ROUTINE 20— TESTS ABILITY TO ESTABLISH CHARACTER PHASE IN RECEIVE 
MODE 

THIS ROUTINE INITIALIZES THE CA TO A RECEIVE TABLE, PLACES TWO SYN 
CHARACTERS ON THE RECEIVE DATA LINE, SENSES AND SAVES THE THREE DSW'S 
AND CLEARS THE CA. THE DSW'S ARE CHECKED TO MAKE SURE THAT CHARACTER 
PHASE WAS ESTABLISHED (EOOl), AND THE PROGRAM CHECKS TO MAKE SURE THAT 
NO INTERRUPT OCCURRED ( E003 ) . 

ROUTINE 21— TESTS ABILITY TO CHAIN FROM TRANSMIT TABLE TO RECEIVE 
TABLE, AND INITIAL RESET 

THIS ROUTINE INITIALIZES THE CA TO A TRANSMIT TABLE CHAINED TO A 
SECOND TRANSMIT TABLE CHAINED TO ITSELF. THE PROGRAM THEN WAITS FOR 
0.8 SECONDS, THEN CHANGES THE SECOND TRANSMIT TABLE TO A RECEIVE 
TABLE. THE PROGRAM THEN WAITS 2.5 SECONDS MORE, AND CHECKS TO MAKE 
SURE NO INTERRUPT HAS OCCURRED (E003). THE PROGRAM THEN WAITS AN 
ADDITIONAL 0.5 SECONDS, CLEARS THE CA, AND CHECKS FOR A TIMEOUT 
INTERRUPT (E002, E004). 
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ROUTINE 22— TESTS RECEIVE MODE DATA TRANSFER AND TABLE COMPLETE 
INTERRUPT 

THIS ROUTINE INITIALIZES THE CA TO A RECEIVE TABLE. AND GENERATES A 
MESSAGE ON THE RECEIVE DATA LINE. THE THREE DSW'S ARE THEN SENSED 
AND SAVED. AN© THE CA IS CLEARED. THE SENSED DSW'S ARE THEN CHECKED 
(E001), THE RECEIVED DATA IS CHECKED (E005), AND THE PROGRAM CHECKS 
FOR A TABLE COMPLETE INTERRUPT (E002. E004I. 

ROUTINE 23— TESTS HARDWARE DELETION OF SYN-SYN SEQUENCE 

THIS ROUTINE INITIALIZES THE CA TO A RECEIVE TABLE AND GENERATES A 
MESSAGE ON THE RECEIVE DATA LINE CONTAINING THE FOLLOWING CHARACTERS 
/7F /7F SYN SYN /7F /7F. THE THREE DSW'S ARE THEN SENSED AND SAVED. 
AND THE CA IS CLEARED. THE SENSED DSW'S ARE THEN CHECKED JE001), THE 
RECEIVED DATA IS CHECKED TO MAKE SURE THE SYN CHARACTERS WERE DELETED 
(E005), AND THE PROGRAM CHECKS TO MAKE SURE NO INTERRUPT OCCURRED 
(E003). 

ROUTINE 24— TESTS HARDWARE DELETION OF DLE AND DLE-SYN SEQUENCES 
IN TRANSPARENT MODE 

THIS ROUTINE IS BYPASSED WHEN RUNNING IN USASCU MODE. 

THE PROGRAM INITIALIZES THE CA TO A RECEIVE TABLE AND GENERATES A 
MESSAGE ON THE RECEIVE DATA LINE CONTAINING THE FOLLOWING CHARACTERS. 
DLE STX DLE DLE DLE SYN /7F /7F. THE THREE DSW'S ARE THEN SENSED AND 
SAVED, AND THE CA IS CLEARED. THE SENSED DSW'S ARE THEN CHECKED 
(E001), THE RECEIVED DATA IS CHECKED TO ENSURE THAT THE DLE' AND 
DLE-SYN SEQUENCE DELETIONS OCCURRED CORRECTLY (E005). AND THE PROGRAM 
CHECKS TO MAKE SURE NO INTERRUPT OCCURRED (E003). 

ROUTINE 25— TESTS END CHARACTER DECODED INTERRUPT 

THIS ROUTINE INITIALIZES THE CA TO A RECEIVE TABLE AND GENERATES 
A MESSAGE ON THE RECEIVE DATA LINE ENDED BY AN ETB. THE CA IS THEN 
CLEARED, AND THE RECEIVED DATA IS CHECKED (E005). THE PROGRAM THEN 
CHECKS FOR AN END CHARACTER DECODED INTERRUPT (E002, E004). THE ETB 
IN THE MESSAGE IS THEN REPLACED BY AN ETX AND THE ROUTINE IS RE-RUN. 
THE ROUTINE IS RUN ONCE FOR EACH OF THE BSC ENO CONTROL CHARACTERS 
ETB, ETX, EOT, ENQ, NAK, AND ITB. WHEN CHECKING THE ITB, THE PROGRAM 
EXPECTS NO END CHARACTER DECODED INTERRUPT, AND THEREFORE, CHECKS . 
TO MAKE SURE THAT NO INTERRUPT OCCURRED (E003), IN PLACE OF THE END 
CHARACTER DECODED INTERRUPT CHECK. THE BSC END CONTROL CHARACTERS ARE 
USED AS VARIABLE DATA BY THIS ROUTINE. 
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ROUTINE 26— TESTS DETECTION OF INCORRECT BCC 

THIS ROUTINE INITIALIZES THE CA TO A RECEIVE TABLE, AND GENERATES 
A MESSAGE ON THE RECEIVE DATA LINE. THE BCC IN THE GENERATED MESSAGE 
IS SET TO /04. IF RUNNING IN EBCDIC MODE, THE FIRST BCC CHARACTER 
FOLLOWING THE END CHARACTER IS SET TO /04. THE THREE DSW'S ARE THEN 
SENSED AND SAVED, AND THE CA IS CLEARED. THE SeNSED DSW'S ARE CHECKED 
(E001). THE RECEIVED DATA IS CHECKED. AND THE PROGRAM CHECKS FOR AN 
END CHARACTER DECODED INTERRUPT AND DATA BCC CHECK (E002, E004). THE 
/04 CHARACTER IS THEN INCREMENTED BY ONE AND THE ROUTINE IS RE-RUN. 
THE ROUTINE IS LOOPED ON UNTIL ALL CHARACTERS (04-FF ) EXCEPT THE 
CORRECT BCC CHARACTER HAVE BEEN USED. THE INCORRECT BCC CHARACTER IS 
USED AS VARIABLE DATA BY THIS ROUTINE. 

ROUTINE 27— TESTS STORAGE PROTECT VIOLATE INTERRUPT 

THIS ROUTINE INITIALIZES THE CA TO A RECEIVE TABLE, SETS THE 
STORAGE PROTECT BIT IN THE SECOND WORD OF THE DATA TABLE, AND 
GENERATES A MESSAGE ON THE RECEIVE DATA LINE. THE THREE DSW'S ARE 
THEN SENSED AND SAVED, AND THE CA IS CLEARED. THE PROGRAM THEN 
CHECKS THE SENSED DSW'S (E001), CHECKS THE RETRIEVED DATA (E005), AND 
CHECKS FOR RECEIPT OF A STORAGE PROTECT VIOLATE INTERRUPT (E002, 
E004). 

ROUTINE 28— TESTS TRANSMIT/RECEIVE DATA TRANSFER 

THIS ROUTINE INITIALIZES THE CA TO A TRANSMIT TABLE CONTAINING ALL 
VALID BIT COMBINATIONS JOO-FF) EXCEPT BSC CONTROL CHARACTERS, WHICH 
IS CHAINED TO A RECEIVE TABLE. THE TRANSMITTED DATA IS RETRIEVED, 
AND THE PROGRAM THEN CHECKS FOR A TABLE COMPLETE INTERRUPT (E002, 
E004). THE RETRIEVED DATA IS THEN GENERATED ON THE RECEIVE DATA 
LINE BY THE PROGRAM AND TRANSFERRED VIA THE CA TO THE RECEIVE TABLE. 
THE THREE DSW'S ARE THEN SENSED AND SAVED, AND THE CA IS CLEARED. 
THE PROGRAM THEN CHECKS THE DSW'S (E001), COMPARES THE RECEIVED DATA 
AGAINST THE DATA ORIGINALLY TRANSMITTED (E005), AND CHECKS FOR A 
TABLE COMPLETE INTERRUPT (E002,E004). 

ROUTINE 29— TESTS DIAGNOSTIC MODE 

THIS ROUTINE INITIALIZES THE CA TO A DIAGNOSTIC MODE TRANSMIT TABLE 
CHAINED TO A DIAGNOSTIC MODE RECEIVE TABLE, ANO RETRIEVES THE DATA 
TRANSMITTED. THE PROGRAM THEN CHECKS FOR A TABLE COMPLETE INTERRUPT 
(E002, E004), AND GENERATES A MESSAGE ON THE RECEIVE DATA LINE. THE 
THREE DSW'S ARE THEN SENSED AND SAVED, AND THE CA IS CLEARED. THE 
PROGRAM THEN CHECKS THE DSW'S (EOOD, CHECKS THE TRANSMIT ANO RECEIVE 
TABLES (E005), AND CHECKS FOR RECEIPT OF A TABLE COMPLETE INTERRUPT 
(E002, E004). 
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ROUTINE 2A— CONTINUOUS CLOCK ADVANCE 

THIS IS AN OPTIONAL ROUTINE AND MUST BE SELECTED IN ORDER TO BE RUN. 

THIS ROUTINE INITIALIZES THE CA TO A RECEIVE TABLE AND PLACES 
TRANSITIONS ON THE RECEIVE DATA LINE PRIOR TO THE RECEIVE DATA CLOCK 
REACHING A COUNT OF SIXTEEN. THIS CAUSES A CONTINUAL CLOCK ADVANCE. 
SEE 5.4 FOR HINTS ON USE OF AN OSCILLOSCOPE WHILE RUNNING THIS ROUTINE 
THE PROGRAM WILL REMAIN IN THIS ROUTINE UNTIL IT IS DE-SELECTED. THIS 
ROUTINE IS ONLY APPLICABLE TO CA LINES USING INTERNAL CLOCKING. 

ROUTINE 2B— CONTINUOUS CLOCK RETARD 

THIS IS AN OPTIONAL ROUTINE AND MUST BE SELECTED IN ORDER TO BE RUN. 

THIS ROUTINE INITIALIZES THE CA TO A RECEIVE TABLE AND PLACES 
TRANSITIONS ON THE RECEIVE DATA LINE EACH RECEIVE TIMING CYCLE AFTER 
THE RECEIVE CLOCK HAS REACHED A COUNT OF SIXTEEN. THIS CAUSES A 
CONTINUAL CLOCK RETARD. SEE 5.4 FOR HINTS ON USE OF OSCILLOSCOPE 
WHILE RUNNING THIS ROUTINE. THE PROGRAM WILL REMAIN IN THIS ROUTINE 
UNTIL IT IS DE-SELECTED. THIS ROUTINE Is APPLICABLE ONLY TO CA LINES 
WITH INTERNAL CLOCKING. 

ROUTINE 2C— TESTS DATA TRANSFER THROUGH DATA SET 

THIS IS AN OPTIONAL ROUTINE AND SHOULD BE RUN ONLY IF THE DATA SET 
HAS PROVISION TO WRAPAROUND INTERNALLY OR ON THE TELEPHONE LINE SIDE 
OF THE DATA SET. PROVISION HAS BEEN MADE TO ALLOW FOR ANY TIME DELAY 
THROUGH THE DATA StT. ONLY THE TRANSMIT PORTION OF THIS ROUTINE 
ACTUALLY WRAPS AROUND THROUGH THE DATA SET. 

THIS ROUTINE INITIALIZES THE CA TO A TRANSMIT TABLE CONTAINING ALL 
CHARACTERS (OO-FFI EXCEPT THE BSC CONTROL CHARACTERS! CHAINED TO A 
RECEIVE TABLE, AND RETRIEVES THE TRANSMITTED DATA. THE PROGRAM THEN 
CHECKS FOR A TABLE COMPLETE INTERRUPT (E002, EOO4), AND GENERATES 
THE RETRIEVED DATA ON THE RECEIVE DATA LINE. THE THREE DSW'S ARE 
THEN SENSED AND SAVED, AND THE CA IS CLEARED. THE PROGRAM THEN 
CHECKS THE SENSED DSW'S (EOOl), COMPARES THE RECEIVED DATA AGAINST 
THE DATA ORIGINALLY TRANSMITTED (E005), AND CHECKS FOR A TABLE 
COMPLETE INTERRUPT (E002, E004). 



5.3 SUPPORTING SUBROUTINES 



THE FOLLOWING SUBROUTINES ARE LISTED BY THE LABELS BY WHICH THEY 
ARE IDENTIFIED IN THE PROGRAM LISTING. 

XMRCV--THIS SUBROUTINE BUILDS A TRANSMIT OR RECEIVE TABLE, 

INITIALIZES THE CA TO IT, AND, IF NECESSARY, RETRIEVES DATA 
TRANSMITTED BACK INTO CORE STORAGE. 
CALLING SEQUENCE 
BSI L XMRCV 

1) DC /XXXX 

2) DC AAAA 

3) DC CCCC 

the first parameter (1) is the byte count word, and is placed in 
the data table exactly as it appears in the dc statement. 

the second parameter (2) is the address of the data to be placed 
in the transmit/receive table and is arranged exactly as it 
would appear in the data table in normal mode. all data 
including ending pads, except the byte count word should be at 
this address. the first character should be left-justified in 
the first word regardless of whether the byte count is odd or 
even. for receive operations, this parameter is set to zero 
and parameter three (3) is omitted. 

the third parameter 01 contains the number of transmitted 
characters to be retrieved back into core during transmit 
operations. if this parameter is zero, the program will return 
to the calling routine immediately after issuing an initialize 
instruction to the transmit ta8le. 

if the chaining bit is on in the byte count word (parameter 1), 
parameter 3 will contain either the byte count word for the 
second data table or be set to zero. a fourth and fifth 
parameter will be added. if parameter 3 contains the byte 
count word for the second table, parameter 4 will contain the 
address of the data for the second data table. if parameter 3 
contains zero, parameter 4 will contain the address of a word 
containing two characters which will be used to build a second 
data table which is chained to itself. parameter 5 will contain 
the count for the number of transmitted characters to be 
retrieved back into core. the second data table may be chained 
to a third data table by the chaining bit being on in the byte 
count word for the second data table in a like manor. if the 
second data table is a receive table, parameter 4 should be 
zero, and parameter 5 omitted. 

cntrl--this subroutine controls the sequence of execution of the 
test routines. 
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DELAY— THIS SUBROUTINE PROVIDES A PROGRAMMED TIME DELAY AND WILL 
DELAY BY MILLISECONDS ANYWHERE FROM APPROXIMATELY ONE 
MILLISECOND TO THIRTY-TWO SECONDS. 
CALLING SEQUENCE 
BSI L DELAY 
DC NNNN 

THE DC STATEMENT CONTAINS THE NUMBER OF MILLISECONDS OF DELAY 
DESIRED. 

PRINT— THIS SUBROUTINE CALLS UPON THE MONITOR LOG ROUTINE IN ORDER 
TO PRINT MESSAGES. THE MESSAGE STRING ADDRESS IS IN INDEX 
REGISTER TWO WHEN THIS SUBROUTINE IS CALLED. 

ERPRT— THIS SUBROUTINE CALLS UPON THE MONITOR ERROR PRINT ROUTINE 

TO PRINT ERROR MESSAGES. THE ERROR MESSAGE STRING ADDRESS IS 
INDEX REGISTER TWO WHEN THIS SUBROUTINE IS CALLED. 

GEN THIS SUBROUTINE GENERATES DATA ON THE RECEIVE DATA LINE VIA 

THE PROGRAMMED RECEIVE INPUT TRIGGER DURING RECEIVE 
OPERATIONS. 
CALLING SEQUENCE 
BSI L GEN 

1) DC CCCC 

2) DC AAAA 

PARAMETER 1 IS' THE NUMBER OF CHARACTERS (IN HEX) TO BE PLACED 
ON THE PROGRAMMED RECEIVE INPUT LINE. PARAMETER 2 IS THE 
ADDRESS OF THE DATA TO BE USED. 

CKTIM— THIS SUBROUTINE CHECKS TO MAKE SURE TRANSITIONS ARE OCCURRING 
AT REASONABLE INTERVALS ON THE TRANSMIT TIMING LINE AS 
SENSED AT BIT ZERO OF THE DIAGNOSTIC DSW. 

DCODE— THIS SUBROUTINE DECODES BSC CONTROL CHARACTERS AND BUILDS 

DECODE WORDS IN THE A AND Q REGISTERS. THE DECODE WORD FOR 
THE CHARACTER IN THE LEFT HALF OF THE WORD IN THE 'A' REGISTER 
WHEN THIS SUBROUTINE IS CALLED GOES INTO THE 'A' REGISTER. THE 
DECODE WORD FOR THE CHARACTER IN THE RIGHT HALF OF THE WORD 
IN THE 'A' REGISTER GOES INTO THE 'Q ■ REGISTER. THE DECODE 
WORDS ARE SET UP AS FOLLOWS 
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CHAR 


BIT 
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USASC 
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CALBC— THIS SUBROUTINE CALCULATES BCC CHARACTERS AND PLACES THE 

CALCULATED BCC IN A WORD IN CORE LABELED BCCA. THE RESULT 
IS ALSO IN THE 'A' REGISTER AT THE RETURN FROM THIS SUBROUTINE. 
IN THE CASE OF USASC 1 1 MODE, THE BCC CHARACTER IS IN THE LEFT 
HALF OF THE WORD AND A HEX 7F IS IN THE RIGHT HALF. 



IN THE CALLING SEQUENCE. IF 
A 'E001' MESSAGE IS PRINTED. 



SENSE — THIS SUBROUTINE SENSES AND STORES THE DIAGNOSTIC, BYTE COUNT, 
AND OPERATING DSW'S IN THAT ORDER AND IMMEDIATELY RETURNS 
TO THE CALLING ROUTINE. 

CKDSW — THIS SUBROUTINE COMPARES THE DSW'S SENSED IN THE 'SENSE' 
SUBROUTINE TO 'SHOULD BE' DSW'S 
THE DSW'S DO NOT COMPARE EQUAL, 
CALLING SEQUENCE 
BSI L CKDSW 

1) DC /XXXX 

2 ) DC /MMMM 

3) DC /XXXX 

4) DC /MMMM 

5) DC /XXXX 

6) DC /MMMM 

PARAMETERS 1, 3, AND 5 CONTAIN THE 'SHOULD BE' OPERATING, BYTE 

COUNT, AND DIAGNOSTIC DSW'S RESPECTIVELY. PARAMETERS 2, 4, ANO 

6 ARE THE MASKS FOR THE RESPECTIVE DSW'S. BITS ON IN THESE 
MASKS ARE IGNORED IN CHECKING THE DSW'S. 

CKDAT— THIS SUBROUTINE COMPARES DATA TRANSMITTED OR RECEIVED AGAINST 
A TABLE CONTAINING DATA WHICH SHOULD HAVE BEEN TRANSMITTED 
OR RECEIVED AND PRINTS OUT A 'E005' MESSAGE IF THE DATA DOES 
NOT COMPARE. 
CALLING SEQUENCE 
BSI L CKDAT 

1) DC AAAA 

2 ) DC AAAA 

3) DC CCCC 

PARAMETER 1 IS THE ADDRESS OF THE RETRIEVED DATA. PARAMETER 2 
IS THE ADDRESS OF THE EXPECTED DATA, AND PARAMETER 3 IS THE 
NUMBER OF CHARACTERS TO BE COMPARED. 

CKINT — THIS SUBROUTINE CHECKS INTERRUPTS- IF AN UNEXPECTED INTERRUPT 
OCCURRED, AN 'E003' MESSAGE IS PRINTED OUT. IF AN EXPECTED 
INTERRUPT FAILED TO OCCUR, AN 'E004' MESSAGE IS PRINTED. IF 
AN INTERRUPT WAS EXPECTED AND ONE DID OCCUR, THE DSW'S SENSED 
DURING THE SERVICING OF THE INTERRUPT ARE COMPARED WITH 
•SHOULD BE' DSW'S IN THE CALLING SEQUENCE AND AN 'E002' MESSAGE 
IS PRINTED OUT IF THE DSW'S DO NOT COMPARE EQUAL. 
CALLING SEQUENCE 





BSI 


L CKINT 


1) 


DC 


/XXXX 


2) 


DC 


/MMMM 


3) 


DC 


/XXXX 


4) 


DC 


/MMMM 


5) 


DC 


/XXXX 


6) 


DC 


/MMMM 



PARAMETERS 1, 3, AND 5 ARE THE 'SHOULD BE' OPERATING, BYTE 
COUNT, ANO DIAGNOSTIC DSW'S RESPECTIVELY. PARAMETERS 2, 4, ANO 
6 ARE THE MASKS FOR THE RESPECTIVE DSW'S. BITS ON IN THESE 
MASKS ARE IGNORED IN CHECKING THE DSW'S. IF NO INTERRUPT IS 
EXPECTED, PARAMETER 1 IS ZERO AND PARAMETERS 2 THROUGH 6 ARE 
OMITTED. 
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INT THIS IS THE INTERRUPT SERVICE SUBROUTINE. THE DIAGNOSTIC 

BYTE COUNT, AND OPERATING DSW'S ARE SENSED AND STORED IN 
THAT ORDER ANO AN IMMEDIATE RETURN IS MADE TO THE MONITOR 
COMMON INTERRUPT SUBROUTINE. THE OPERATING DSW IS SENSED 
WITH RESET. 



5.4 SERVICE HINTS 



A) INSTALLATION OF SLT BOARD SLIP-ON TEST JUMPERS 

THE FOLLOWING JUMPERS MUST BE INSTALLED ON THE «X3' BOARD OF EACH CA 
LINE TO BE TESTED IN ORDER FOR THE 1800 CA WRAPAROUND TEST TO BE RUN. 
ALL REFERENCES TO THE «X3« BOARD BELOW REFER TO THE 'Xl» BOARD IN THE 
CASE OF ODD NUMBERED CA LINES. 



\ 



JUMPER BYTE COUNT OSW BIT ZERO /jL=X2C2Gloi (MA371 ) - LINE 

Z-X2C2JI0 7MA3TIT -TINF"! 
TO INT OR EXT CLOCK TIMING Z-X3F3D04 (MM998) 

PRIOR TO EC 421344. 
TO INT OR EXT CLOCK TIMING Z-X305D13 (MM998 ) 
IF EC 421344 HAS BEEN INSTALLED. 

JUMPER BYTE COUNT DSW BIT ONE Z-X2C2J04 <MA361> - LINE 

Z-X2C2J07 (MA361) - LINE 1 
TO -RECEIVE SPACE Z-X3L3D02 (MK041) 

JUMPER RING INDICATOR Z-X3E7B04 (MM998) 
TO -3 VOLTS Z-X3E7B06. 

JUMPER CARRIER ON Z-X3C7B02 (MK041) 
TO -3 VOLTS Z-X3C7B06. 

THE FOLLOWING JUMPERS MUST BE INSTALLED ON LINES WIRED FOR DATA SET 
CLOCKING. 




JUMPER -CHAR2 Z-X3H5D09 (MM998) 
TO -CHAR2 FOR 3 LEADING 55«S 



Z-X3C6B12 (MM998) 



JUMPER RECEIVE TIMING Z-X3E7B02 (MM998) 

TO -3 VOLTS Z-X3F7B06. „.,,,. r , r , 

XJ (i — '-- 

JUMPER +EXT TRANSMIT CLOCK *i*3&5e©» (MM998) 

TO 1) 9.6KHZ TRIGGER Z-X2M6B12 (MB271) FOR 9600 BAUD 
2) 4.8KHZ TRIGGER Z-X2M6B13 (MB271) FOR 4800 BAUD 

3J Z.4KHZ TRIGGER Z-X2M6B1P (MB271 ) FOR 2400 BAUD 

"~S 4) 1.2KHZ TRIGGER Z-X2M6B04 (MB271) FOR 1200 BAUD 
5) 600HZ TRIGGER Z-X2M6B03 (MB281) FOR 600 BAUD 

B) USE OF OSCILLOSCOPE IN RUNNING ADVANCE/RETARD TEST ROUTINES. 

NOTE. ..THESE ROUTINES ARE APPLICABLE TO INTERNALLY CLOCKED CA LINES 
ONLY. 

THE OSCILLOSCOPE SHOULD BE USED TO DISPLAY THE INTERNAL CLOCK 
TRIGGER 16 Z-X3F7B02 (ML221). THE CONTINUAL ADVANCE SHOULD CAUSE 
THE PATTERN TO BE SHORTENED BY 1/32ND OF A CYCLE. AND THE CONTINUAL 
RETARD ROUTINE SHOULD CAUSE THE PATTERN TO BE LENGTHENED BY 1/32ND 
OF A CYCLE. ALTERNATELY SELECTING EACH OF THESE ROUTINES SHOULD 
PROVIDE A GOOD MEANS FOR COMPARISON OF THE TWO PATTERNS. 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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C) USE OF BYTE COUNT DSW C.E. JUMPERABLE BITS 

BIT 2 OF THE BYTE COUNT DSW AND BIT ZERO OF THE DIAGNOSTIC DSW ARE C.E. 
JUMPERABLE AND HAVE BEEN RESERVED FOR THE USE OF THE CE AS HE WISHES. 
THESE BITS ARE IGNORED DURING THE CHECKING OF THE DSW'S. BUT CAN BE 
CHECKED BY ALTERING THE MASKS IN THE CALLING SEQUENCE TO CHECK THE 
OSW'S (SEE 5.3--CKDSW). 

6. APPENDIX 

6.1 BSC LINE CONTROL CHARACTERS 

FUNCTIONAL MNEMONIC 

EBCDIC CODE IN HEXADECIMAL 

USASCII CODE IN HEXADECIMAL 

* . * . * . * NAME OF FUNCTION * 

* * * * * 

* * * * * 

* DLE * 10 * 10 * DATA LINK ESCAPE * 

* * * * * 

* SOH * 01 * 01 * START OF HEADING * 

* ' * * # * 

* STX * 02 * 02 * START OF TEXT * 

* * * * * 

* ETB * 26 * 97 * END OF TRANSMISSION BLOCK * 

* * * * * 

* ETX * 03 * 83 * END OF TEXT * 

* * * * * 

* EOT * 37 * 04 * END OF TRANSMISSION (SEE NOTE BELOW) * 

* * * * * 

* ENQ * 2D * 85 * ENQUIRY * 

* * * * * 

* NAK * 3D * 15 * NEGATIVE ACKNOWLEDGEMENT (SEE NOTE BELOW) * 

* * * * # 

* ITB * IF * IF * END OF INTERMEDIATE TRANSMISSION BLOCK * 

* * # * * 

* SYN *• 32 * 16 * SYNCHRONOUS IDLE * 

* * * # * 

* ACK * 2E * 86 * POSITIVE ACKNOWLEDGEMENT (SEE NOTE 2 BELOW) * 

* * * * * 

NOTE 1....THE EOT AND NAK CHARACTERS ARE RECOGNIZED AS CONTROL 

CHARACTERS ONLY IF THE FIRST FOUR BITS OF THE TRAILING 
PAD (ALL ONES CHARACTER) ARE SUCCESSFULLY RECEIVED. 

NOTE 2. ...ALTHOUGH THE ACK CHARACTER IS DEFINED AS A CONTROL CHARACTER, 
AND RESTRICTED FROM USE IN THOSE MESSAGES THAT TRANSMIT 
NORMAL TEXT, THE USE OF AN ACK AS A POSITIVE ACKNOWLEDGEMENT 
HAS BEEN REPLACED IN BSC PROCEDURES BY THE ACKO AND ACK1 
CONTROL SEQUENCES. 
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6.2 BSC LINE CONTROL SEQUENCES 



FUNCTIONAL MNEMONIC 

EBCDIC CODE IN HEXADECIMAL 

USASCII CODE IN HEXADECIMAL 
♦ . * . * . * NAME OF FUNCTION 



* * * * * 

* ACKO * 1070 * 10BO * EVEN ACKNOWLEDGEMENT * 

* * * * * 

* ACK1 * 1061 * 1031 * ODD ACKNOWLEDGEMENT * 

* * * * * 

* WACK * 106B * 103B * WAIT BEFORE TRANSMIT - POSITIVE ACKNOWLEDGEMENT * 

* * * * * 

* DISC * 1037 * 1004 * MANDATORY DISCONNECT * 

* * * * * 

* RVI * 107C * 10BC * REVERSE INTERRUPT * 

* * * * * 

* XSTX * 1002 * * TRANSPARENT START OF TEXT * 

* * * * * 

* xetb * 1026 * * transparent end of transmission block * 

* * * * * 

* XETX * 1003 * * TRANSPARENT END OF TEXT * 

* * * * * 

* XENQ * 102D * * TRANSPARENT BLOCK CANCEL * 

* * * * * 
.**XSYN * 1032 * * TRANSPARENT SYNCHRONOUS IDLE * 

* * * * * 

* XITB * 101F * * TRANSPARENT END OF INTERMEDIATE TRANSMISSION BLOCK * 

* * * * * 

* XDLE * 1010 * * DATA OLE IN TRANSPARENT TEXT * 

* * * * * 

If******************************************************************************* 

6.3 CA OPERATING, BYTE COUNT, AND DIAGNOSTIC DSW FORMATS 



BYTE COUNT DSW FORMAT 

BIT C.E. JUMPERABLE BIT 

BIT 1 C.E. JUMPERABLE BIT 

BIT 2 C.E. JUMPERABLE BIT 

BIT 3 TRANSMIT LATCH ON. 

BITS 4-15. ..BYTE COUNT IN ONES COMPLEMENT FORM. 



JUMPERED TO +TRANSMIT TIMING. 
JUMPERED TO RECEIVE DATA MARK. 
READS AS ONE IF NOT JUMPERED. 



OPERATING DSW FORMAT 

BIT MEANING WHEN ON 

CHANNEL STOP INDICATOR 

1 STORAGE PROTECT VIOLATION INDICATOR 

2 TIMED OUT INDICATOR 

3 END CHARACTER DECODED OR RINGING INDICATOR 

4 TABLE COMPLETE INDICATOR 

5 DATA PARITY CHECK INDICATOR 

6 DATA BCC CHECK INDICATOR 

7 DATA OVERRUN INOICATOR 

8 DATA SET READY CONDITION 

9 COMMAND REJECT INDICATOR 
10 CARRIER ON CONDITION 



CAUSES INTERRUPT 
YES 
YES 
YES 
YES 
YES 
NO 
NO 
NO 
NO 
YES 
NO 



DIAGNOSTIC DSW FORMAT 



BIT 


MEANING WHEN ON 





C.E. JUMPERABLE BIT 


1 


CHARACTER PHASE ON 


2 


CHARACTER TRIGGER 1 


3 


NOT CLEAR TO SEND 


4 


TRANSPARENT TRIGGER 


5 


TEXT TRIGGER ON 


6 


END TRIGGER ON 


7 


LINE TRIGGER ON 


6 


SER/DES BIT ON 


9 


SER/DES BIT 1 ON 


10 


SER/DES BIT 2 ON 


11 


SER/DES BIT 3 ON 


12 


SER/OES BIT 4 ON 


13 


SER/DES BIT 5 ON 


14 


SER/DES BIT 6 ON 


15 


SER/DES BIT 7 ON 



- READS AS ONE IF NOT JUMPERED. 



ON 



ON 



6.4 PROGRAM EDIT PROCEDURE 



THE 1800 CA WRAPAROUND TEST REQUIRES THE USE OF ONE PROGRAM 
EDIT CARD AND AN END OF EDIT CARD. 

THE FORMS ON THE FOLLOWING PAGES SHOULD BE USED TO PREPARE 
THE EDIT CARDS. FILL IN THE NECESSARY ENTRIES IN THE FORM 
BEFORE PUNCHING THE CARDS. FOR PAPER TAPE LOAD, THE FORM MAY BE 
USED TO MANUALLY ENTER THE EDIT INFORMATION (SEE DM USE PROCEDURE). 



( 












DATE 


14N0V69 


30JAN70 


06N0V70 


t 


EC NO. 


431319 


431319A 


431323 











PROG ID 


080E-* 


DATE 


14N0V69 


30JAN70 


06N0V70 


PAGE 


13 


EC NO. 


431319 


431319A 


431323 



PROG ID 
PAGE 



080E-* 
13A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM PART NO. 2279478 

PAGE 14 

CA WRAPAROUND TEST 



*****: 


********** 


***************; 


*********: 


********* 


******************* 


***** 


«*» * n 6 *p Sp "«K »i» »)* * *r 


*************** ************************************* 


** 
















** 


** 
















** 


** 


NN 


NN 


000000000000 


TTTTTTTTTTTT 


EEEEEEEEEEEE 


** 


** 


NNN 


NN 


000000000000 


TTTTTTTTTTTT 
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EDIT CARD I 

ENTRY 1 - CORE STORAGE SPEED 0002 ■= 2 MICROSEC, 0003 - 2.25 MICROSEC, 000<t - k MICROSEC 

ENTRY 2 = LINE CODE, ENTER ZERO IN COLUMN FOR EBCDIC MODE, F FOR USASC 1 1 MODE 

FIRST CA - COLUMN 22, SECOND CA - COLUMN 23, THIRD CA - COLUMN 2k, FOURTH CA - COLUMN 25 

ENTRY 3 - 10 = DDEF ENTRIES FOR CA LINES 0-7. 

ENTRY II ■= TERMINATOR, MUST FOLLOW LAST DOEF ENTRY 



COLUMN 



5 

o 

o 



1 



ec 

© 

a 

< o 

H 

1.1 I- 

z — 

o a 

(_> IU 



o 

oeuj 
<o 
oz 



— a 

a lli 
ui in 



10 



12 



13 



zo 

ui ec 

< 



CD UJ 

3 Z 

z o 



\k 



15 



K 



o 

o 



o 
u 



17 



18 



19 



20 



21 



LINE 
CODE 



< < < < 

« T>T)X 

i/( C I- *-> 

— cm c\.* 



m 



26 



LINE 
DDEF 



a. H 

3 — 

ae at 

uui > 

(- > (A 

ZU J 



3aoM/|3B9o 



31 



LINE 
DDEF 



SI.."* 

UUI ) z 

fcSSx 

— _l — u 



6 



L 



% 



J6 



H 



LINE 
DDEF 



UJ uj » z 
UJ J X 



M 



I 



LINE 
DDEF 



ec _i 
UJ UJ 



BO UJ 

25 



U6 

i 



LINE 
DDEF 



£UJ 



2 2 

— o 



51 



I 



LINE 
DDEF 



a. 
a 

ee _i 

UI UJ 



< 

X 

u 



56 



£1 



LINE 
DDEF 



% t_, 



ee 

UJ UJ 

z£ 



03 UJ 
in < 



61 



S 



LINE 
DDEF 



% t_, 



22 




o 



71 



K9 II I M 
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E9TTTISI II I IS I I 1 S3 
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S 



1 



^iimiimiimiii^iimiii^iimi im iii ^i i miim i i i 



S 



1 



HIIIHIIIM 
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END OF EDIT CARD 



COLUMN 
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H 
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07FF 



012C 





01 2D 





012E 





012F 





0130 





0131 





0132 





0133 





0134 






080C 1 1FF0 



0800 0005 



ORG *+/07FF 

*************************************************** 

* 

* MONITOR INTERFACE EQUATE TABLE 

* 

************************************** ************* 

* 

MONITOR BEGIN RTN ADDR 
MONITOR POLLING RTN ADOR 
END PROGRAM RTN ADDR 
LOG ROUTINE ADDRESS 
ERROR LOG ROUTINE ADOR 
REQUEST DEVICE RTN ADDR 
RELEASE DEVICE RTN ADDR 
INTERNAL INTRP EXPECT IND 
MONITOR MAT TBL ADDR 



/012C 

BEGIN+1 

START+1 

END + 1 

LOG+1 

ERROR+1 

REQDV+1 

RELDV+1 

CRCK+1 



BEGIN EQU 
START EQU 
END EQU 
LOG EQU 
ERROR EQU 
REQDV EQU 
RELDV EQU 
CRCK EQU 
MAT EQU 

*************************************************** 

* 

* PROGRAM STATUS TABLE 

* 

*************************************************** 

* 

PROGRAM ID 
ROUTINE ID 
ROUTINE ADDRESS 
CONTROL OPTIONS 
ROUTINE SELECTION 
LINE SELECTION 
VARIABLE DATA SELECTION 
INITIAL PROGRAM ADDR 
LOOP PROGRAM ADDR 
END PROGRAM ADDR 
MAINLINE SEQUENCE 
CONTROL FIELD 



07FF 





OEOO 


PID 


DC 


/OEOO 


0800 





0000 


RID 


DC 


*-* 


0801 





0000 


RAD 


DC 


*-* 


0802 





0000 


SWO 


DC 


*-* 


0803 





0000 


SW1 


DC 


*-* 


0804 





0000 


SH2 


DC 


*-* 


0805 





0000 


SW3 


DC 


*-* 


0806 


1 


08 3C 


I PA 


DC 


XEQ 


0807 


1 


0842 


LPA 


DC 


LXEQ 


0808 


1 


0848 


EPA 


DC 


DXEQ 


0809 





0000 


MLSCF 


DC 


*-* 


080A 





0000 




DC 


*-* 


080B 





FFFF 


TERM 

* 


DC 


/FFFF 



DC 



BSS 



PEND 



PROGRAM END ADDRESS 



RESERVED 



*************************************************** 

* 

* PROGRAM EDIT AREA 

* 

*************************************************** 

* 



0812 


0000 


CORE 


DC 


*-* 


CORE 


STORAG 


0813 


0000 


CODE 


DC 


*-* 


LINE 


CODE 


0814 


0000 


LINEO 


DC 


*-* 


LINE 


DDEF 


0815 


0000 


LINE1 


DC 


*-* 


LINE 


1 DDEF 


0816 


0000 


LINE2 


DC 


*-* 


LINE 


2 DDEF 


0817 


0000 


LINE3 


DC 


*-* 


LINE 


3 DDEF 


0818 


0000 


LINE4 


DC 


*-* 


LINE 


4 ODEF 


0819 


0000 


LINE5 


DC 


*-* 


LINE 


5 DDEF 


081A 


0000 


LINE6 


DC 


*-* 


LINE 


6 DDEF 


081B 


0000 


LINE7 


DC 


*-* 


LINE 


7 DDEF 


081C 


FFFF 


* 
* 


DC 


/FFFF 







*************************************************** 

* 

* PROGRAMMED TIME DELAY 

* 



80E00020 
80F00030 
80E00040 
80EC0050 
80EC0060 
80E0007? 
80E00080 
80E00090 
80E0010C 
80E00110 
80E00120 
80E00130 
80E0014C 
80E0015C 
80E00160 
80E00170 
80E00I80 
80E00190 
80E00210 
80E00210 
8OE0022O 
80E00230 
80E00240 
80E00250 
80E00260 
80E00270 
80E00280 
80E0029" 
80E00300 
80F0031C 
80E 00320 
80E00330 
80E 00340 
80F00350 
80EP0360 
80E00370 
80E00380 
80E03390 
80E00400 
80E00410 
80E0042C 
80E00430 
80E00440 
80E00450 
80E00460 
80E 00470 
80E00480 
80E00490 
80E00500 
80E00510 
80E00520 
80E00530 
80E00540 
80E00550 
80E00560 
80E00570 
80E00530 
80E00590 
80E00600 
80E00610 
80E00620 
80E00630 
80E00640 
80E00650 
80E00660 
80E00670 
80E00680 
80E00690 



*************************************************** 
* 

ENTRY 



FETCH DELAY MSEC COUNT 
AND SAVE 



081D 





0000 




DELAY 


DC 




*-* 


08 IE 
0820 


1 
1 


C480 
D400 


0810 
1631 


£ 


LD 
STO 


I 
L 


DELAY 
TEMPI 


0822 


1 


7401 


081D 


$ 


MDX 


L 


DELAY, 1 


0824 
0825 




c 


CODD 
1805 






LD 
SRA 




SWO 

5 



081D 

0828 6200 

0829 1 6E00 1632 
082B 7201 
082C 1 C400 1632 
082E 1 F400 1631 

0830 1 4C98 081D 



0832 1 C400 
0834 1 4CA0 



15D7 
081D 



BSC I DELAY, E 

* 

LDX 2 

* 

DLAY1 STX L2 TEMP2 
MDX 2 1 

LD L TEMP2 

EOR L TEMPI 

BSC I DELAY, +- 

* 

LD L INT 

BSC I DELAY, Z 



0836 6700 0000 

083 8 7301 
0839 70FE 

083A 1 4C00 0829 



SET UP RETURN ADDRESS 

CHECK BYPASS DELAY 

OPTION 
BR IF ON 



CHECK 
FOR 
END OF 
DELAY 
RETURN IF END OF DELAY 

RETURN IF 
INTERRUPT HAS OCCURRED 

XR3=DELAY CONSTANT 



LOOP FOR 
ONE MSEC 

GO CHECK DELAY CNT AGAIN 



083C 0000 

0830 1 6700 0854 

083F 6BC9 

0840 1 4C80 083C 



0842 0000 

0843 1 6700 0873 

0845 6BC3 

0846 1 4C80 0842 



TIME LDX L3 *-* 

* 

DLAY2 MDX 3 1 

MDX DLAY2 

* 

BSC L DLAY1 
* 
* 

*************************************************** 
* 

* EXECUTE PROGRAM - LOOP PROGRAM 

* 

*************************************************** 
* 

XEQ DC *-* INITIAL PROGRAM ENTRY 
* 

LDX L3 STRT SET INITIAL PROGRAM 

STX 3 MLSCF MLSCF ENTRY 
* 

BSC I XEQ RETURN 
* 



LOOP PROGRAM ENTRY 

SET LOOP PROGRAM 
MLSCF ENTRY 

RETURN 



0848 0000 

0849 C006 
084A 1 4C98 0848 

084C 1 OCOO 1618 



LXEQ DC *-* 

* 

LDX L3 STRT1 
STX 3 MLSCF 

* 

BSC I LXEQ 
* 
* 

*************************************************** 
* 

* CLEAR CA AND RELEASE LINE 

* 

*************************************************** 
* 

DXEQ DC *-* ENTRY 

* 

LD DX1 

BSC I DXEQ.+- RETURN IF NO LINE ACTIVE 
* 

XIO L CLEAR CLEAR CA 

* 



80E 00700 
80E00710 
80E00720 
80E00730 
80E00740 
80E00750 
80E00760 
80E00770 
80E00780 
80E00790 
80E00800 
80E 00810 
80E00820 
80E00830 
80E00840 
80E00850 
80E00860 
80E00870 
80E00880 
80E00890 
80E00900 
80E00910 
80E00920 
80E00930 
80E00940 
80E00950 
80E00960 
80E00970 
80E00980 
80E00990 
80E01000 
80E01010 
80E010 20 
80E01030 
80E01040 
80E01050 
80E01060 
80E01070 
80E01080 
80E01090 
80E01100 
80E01110 
80E01120 
80E01130 
80E01140 
80E01150 
80E01160 
80E01170 
80E01180 
80E01190 
80E01200 
80E01210 
80E01220 
80E01230 
80E01240 
80E01250 
80E01260 
80E01270 
80E01280 
80E012 90 
80E01300 
80E01310 
80E01320 
80E01330 
80E01340 
80E01350 
80E01360 
80E01370 



iJATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



080E-T 
1 



JATE 

EC Nil. 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



080E-0 
1A 
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084E 4480 0132 

0850 0000 

0851 1 080B 

0852 1 4C80 0848 



0X1 



BSI 

DC 

DC 



RELDV 

*-* 
TERM 



BSC I DXEQ 



RELEASE LINE 
CURRENTLY 
BEING TESTED 

RETURN 



0854 6300 

0855 1 C700 0815 

0857 F0B3 

0858 7301 

0859 1 4C20 0855 

085B COAF 
08 5C 1B00 
085D FOAD 
085E 1 D400 1628 

0860 7302 

0861 1 6F00 1649 

0863 1010 

0864 1 D700 1648 

0866 73FF 

0867 70FC 

0868 C09B 

0869 1 E400 1628 
086B 1 D400 164D 

086D 1 6580 0812 
086F 1 C500 1674 
0871 1 D400 0837 

0873 1 6500 1676 



0875 
0876 
0877 
0878 
0879 
087A 
087B 

08 7 C 
0870 
087E 
087F 
0880 
0881 



1010 
D08E 
D0D8 
D1B1 
D1B3 
D1B4 
D1B5 

C086 
E104 
0084 
4808 
8117 
D400 0800 



0883 1 9400 1613 
0885 1 4C08 0889 

0887 1010 

0888 70F5 

0889 1 6780 0800 
088B 1 C700 15E5 
088D 1 D400 0801 



********** 

* 

* 

* 

********** 

* 

STRT LDX 
LD 
EOR 
MOX 
BSC 

* 

LD 
SRA 
EOR 
STO 

* 

MDX 
STX 

* 

SLA 
STO 
MDX 
MDX 

* 

LD 

AND 

STO 

* 

LDX 

LO 

STO 

* 

STRT1 LDX 

* 

SLA 
STO 
STO 
STO 
STO 
STO 
STO 

* 

LD 
AND 

STRT2 STO 
BSC 
A 
STO 

* 

S 
BSC 

* 

SLA 
MDX 

* 

STRT3 LDX 
LD 
STO 

* 
* 



***************************************** 

PROGRAM INITIALIZATION 
***************************************** 



3 
L3 LINEO+1 
TERM 

3 1 
L STRT+l.Z 

TERM 
3 
TERM 
L DDEFS 

3 2 
L3 PASS-3 

16 
L3 PASS-1 
3 -1 

*-4 

SW2 
L DDEFS 
L LINES 

II CORE 
LI TIME2-2 
L TIME+1 



LI T 



16 

SW3 

DX1 

LINE-T 

LOCK-T 

ERLOK-T 

LNRID-T 



SW1 
1 HOOFF-T 

SW1 

♦ 
1 Dl-T 
L RID 

L LRTN 
L STRT3,* 

16 
STRT 2 

13 RID 

L3 RTTBL-1 

L RAD 



DETERMINE NUMBER OF 
LINES SPECIFIED ON 
EDIT CARD ANO SET 
LINE COUNT IN XR3 
LOOP UNTIL COUNT FOUND 

SET UP MASK 
FOR LINE 
SELECTION 
OPTION ENTRY 

SET MODIFIER COUNT 
FOR SUMMARY PRINTOUT 

CLEAR SUMMARY 
PRINTOUT 
TABLE 



FETCH FUNCTION 2 ENTRY 

SET LINES SELECTED INO 

SET UP 
TIME DELAY 
CONSTANT 

XR1=C0NSTANT TBL BASE ADDR 

RESET TO ZERO 

FUNCTION 3 ENTRY 

ACTIVE LINE INDICATOR 

LINE NUMBER 

RTN LOCK INDICATOR 

LOOP ON ERROR IND 
LINE/RTN SELECT IND 

FETCH RTN SELECTION AND 
MASK OUT UNUSED BITS 

SKIP IF RTN SELECTED 
SET UP STARTING 
ROUTINE NUMBER 



BR IF VALID RTN NUMBER 

INVALID RTN SELECTEO, 
RESET SELECTION 

SET UP STARTING 
ROUTINE 
ADDRESS 



tJATE 

EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



80E01380 

80E01390 

80E01400 

80E01410 

80E01420 

80E01430 

80E01440 

80E01450 

80E01460 

80E01470 

80E01480 

80E01490 

80E01500 

80E01510 

80E01520 

80E01530 

80E01540 

80E01550 

80E01560 

80E01570 

80E01580 

80E01590 

80E01600 

80E01610 

80E01620 

80E01630 

80E01640 

80E01650 

80E01660 

80E01670 

80E01680 

80E01690 

80E01700 

80E01710 

80E01720 

80E01730 

80E01740 

80E01750 

80E01760 

80E01770 

80E01780 

80E01790 

80E01800 

80E01810 

80E01820 

80E01830 

80E01840 

80E01850 

80E01860 

80E01870 

80E01880 

80E01890 

80E01900 

80E01910 

80E01920 

80E01930 

80E01940 

80E01950 

80E01960 

80E01970 

80E01980 

80E01990 

80E02000 

80E02010 

80E02020 

80E02030 

80E02040 

80E02050 



PROG ID 
PAGE 



080E-0 
2 



jATE 

cC N3. 







*************************************************** 


80E02060 








* 










80E02070 








* 






PROGRAM CONTROL ROUT INS 


80E02080 








* 










80E02090 








*************************************************** 


80E02100 








* 










80E02110 




08 8F 


40B8 


CNTRL 

* 


BSI 




DXEQ 


RELEASE ANY ACTIVE LINE 


80E02120 
80E02130 




0890 1 


C400 0804 




LD 


L 


SU2 


CK LINE SELECTION 


80E02140 




089 2 


E1B2 




AND 


1 


DDEFS-T 




80E02150 




0893 1 


4C20 089B 


* 


BSC 


L 


CNTR1.Z 


BR IF VALID LINE SELECTED 


80E02160 
80E02170 




0895 1 


6600 1643 




LDX 


L2 


COCA 


PRINT LINE SELECT REQUEST 


80E02180 




0897 1 


4400 121B 


* 


BSI 


L 


PRINT 




80E02190 
80E02200 




0899 


30CA 


WTCA 

* 


WAIT 




/CA 


WAIT FOR LINE SELECTION 


80E02210 
80E 02220 




089A 


70B9 


* 


MOX 




STRT 


GO TO INITIALIZE AGAIN 


8OE02230 
80E02240 




089B 


F1D7 


CNTR1 


EOR 


1 


LINES-T 




80E02250 




089C 1 


4C20 0854 


* 


BSC 


L 


STRT.Z 


BR IF NEW LINE SELECTION 


80E02260 
80E02270 




089E 1 


C400 0803 




LD 


L 


SHI 




80E02280 




08A0 1 


4C18 08B0 


* 


BSC 


L 


CNTR2.+- 


BR IF NO ROUTINE SELECTED 


80E02290 
80E02300 




0BA2 1 


F400 0800 




EOR 


L 


RID 




80E02310 




08 A4 


1008 




SLA 




8 




80E02320 




08A5 1 


4C20 0854 


* 


BSC 


L 


STRTtZ 


BR IF NEW ROUTINE SELECTED 


80E02330 
80E02340 




08A7 


C1B4 




LD 


1 


ERLOK-T 


CK LOOP ON ERROR IND 


80E02350 




08A8 1 


4C20 08 BO 


* 


BSC 


L 


CNTR2tZ 


BR TO LOOP ON ERROR 


80E02360 
80E02370 




08AA 1 


C400 0805 




LD 


L 


SM3 




80E02380 




08AC 1 


4C10 0880 


* 


BSC 


L 


CNTR2,- 


BR IF NO FUNCTION 3 ENTRY 


80E02390 
80E02400 




08AE 


D1B3 




STO 


1 


LOCK-T 


SET RTN DATA LOCK IND 


80E 02410 




08AF 


700A 


* 


MDX 




CNTR5 


GO TO SET UP TEST LINE 


80E02420 
80E02430 




0880 


C1B4 


CNTR2 


LD 


1 


ERLOK-T 


CK LOOP ON ERROR IND 


80E02440 




08B1 1 


4C18 08B7 


* 


BSC 


L 


CNTR3t+- 


BR IF NO LOOP 


80E02450 
80E02460 




08B3 


9117 




S 


1 


Dl-T 


RESTORE FAILING VARIABLE 


80E02470 




08B4 


4828 




BSC 




Z + 


SKIP IF NO VARIABLE USED 


80E02480 




08B5 


D1B3 




STO 


1 


LOCK-T 


SET RTN LOCK IND 


80E02490 




08B6 


7005 


* 


MDX 




CNTR5+2 


GO TO SET UP LINE 


8OE02500 
80E02510 




08B7 


C1B3 


CNTR3 


LD 


1 


LOCK-T 




80E02520 




08B8 1 


4C20 08BC 


* 


BSC 


L 


CNTR5*2tZ 


BR IF RTN LOCK IS ON 


80E02530 
80E02540 




08BA 1 


7401 1627 


CNTR5 


MDX 


L 


LINE.l 


INCREMENT LINE NUMBER BY 1 


80E02550 




08BC 1 


6780 1627 




LDX 


13 


LINE 




80E02560 




08BE 1 


C700 0813 




LD 


L3 


LINE 0-1 


FETCH DOEF FOR THIS LINE 


80E02570 




08C0 1 


4C10 08DB 


* 


BSC 


L 


CNTR6f- 


BR IF EDITED FOR THIS LINE 


80E02580 
80E02590 




08C2 


1010 




SLA 




16 




80E02600 




08C3 


D1B1 




STO 


1 


LINE-T 


RESET TO LINE 


80E02610 




08C4 1 


C400 0803 




LD 


L 


SW1 




80E02620 




08C6 1 


4C20 08BA 


* 


BSC 


L 


CNTR5.Z 


BR IF ANY RTN IS SELECTED 


80E02630 
80E02640 




08C8 1 


C400 0800 




LD 


L 


RID 




80E02650 




08CA 


E104 




AND 


1 


HOOFF-T 




80E02660 




08CB 1 


9400 1612 




S 


L 


LNRTN 


CK FOR NORMAL END PROG 


80E02670 




08CD 1 


4C28 08D8 


* 


BSC 


L 


CNTR4.Z+ 


BR IF NOT END YET 


80E02680 
80EC2690 




08CF 1 


7401 164C 




MDX 


L 


PASStl 


INCRE PASS COUNT BY 1 


80E02700 




08D1 


1000 


* 


NOP 








80E 02710 
80E0272O 




08 02 1 


6600 1649 




LDX 


L2 


DOCA 


PRINT SUMMARY 


80E02730 




14N0V69 30JAN70 












PROG 10 


080E-0 


431319 431319A 












PAGE 


2A 
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08D4 1 4400 


121B 


* 


BSI 


L 


PRINT 




80E02740 
80E02750 






08 06 4C80 


012E 


* 


BSC 


I 


END 


END PROGRAM 


80E02760 
80E02770 






08D8 1 7401 


0800 


CNTR4 


MDX 


L 


RID.l 


ADVANCE TO NEXT ROUTINE 


80E02780 






08 DA 70DF 




* 


MDX 




CNTR5 


GO TO SET UP LINE 


80E02790 
80E02800 






08DB 1 C400 


0804 


CNTR6 


LD 


L 


SW2 


CHECK 


80E02810 






080D 1801 






SRA 




1 


LINE 


80E02820 






08DE 1300 






SLA 


3 





SELECTION 


80E02830 






08DF 1 4C10 


08BA 


* 


BSC 


L 


CNTR5,- 


BR IF LINE NOT SELECTED 


80E02840 
80E02850 






08E1 1 7700 


0813 




MDX 


L3 


LINEO-1 


XR3=DDEF ADDRESS 


80E02860 






08 E3 1000 






NOP 








80E02870 






08E4 1 6F00 


0850 




STX 


L3 


DX1 


SET UP RELEASE CALL 


80E02880 






08E6 6810 




* 


STX 


3 


XI 


SET UP REQUEST CALL 


80E02890 
80E02900 






08E7 1 6500 


08ED 


CNTR7 


LDX 


LI 


CNTR8 


SET MLSCF RETURN 


80E02910 






08 E9 1 6D00 


0809 


* 


STX 


LI 


MLSCF 


TO REQUEST DEVICE CALL 


80E02 920 
80E02930 






08EB 4C80 


012D 


* 


BSC 


I 


START 


GO TO MONITOR 


80E 02940 
80E02950 






08 ED 1 6500 


1676 


CNTR8 

* 


LDX 


LI 


T 


RESTORE XR1 


80E0296C 
80E02970 






08EF 6780 


0134 




LDX 


13 


MAT 


CHECK MONITOR 


80E02980 






08F1 C302 






LD 


3 


2 


LOG BUSY INDICATOR 


80EOZ990 






08F2 1 4C20 


08E7 


* 


BSC 


L 


CNTR7.Z 


BR IF LOG BUSY 


80E03000 
80E03010 






08F4 4480 


0131 




BSI 


I 


REQOV 


REQUEST 


80E03020 






06F6 1 08E7 






DC 




CNTR7 


CA LINE 


80E03030 






08F7 0000 




XI 


DC 




*-* 


TO BE 


80E03040 






08F8 1 1506 






DC 




INT-1 


TESTED 


80E03050 






08F9 1 080B 




* 


DC 




TERM 




80E03060 
80E03070 






08FA 63EE 




CNTR9 


LDX 


3 


IOCCS-ASCII INSERT AREA 


80E03080 






08FB 1 C700 


1627 




LD 


L3 


ASCII+1 


CODE ANO 


80E03090 






08FD E105 






AND 


1 


H07BF-T 


LINE SELECT 


80E03100 






08 FE 1 ECOO 


15D6 




OR 


L 


INT-1 


BIT IN ALL 


80E03110 






0900 1 0700 


1627 




STO 


L3 


ASCII+1 


CA IOCC'S 


80E03120 






0902 7302 






MDX 


3 


2 




80E03130 






0903 70F7 




* 


MDX 




CNTR9+1 




80E03140 
80E03150 






0904 1 6780 


1627 




LDX 


13 


LINE 


DETERMINE 


80E03160 






0906 1 7780 


1627 




MDX 


13 


LINE 


CODE USED 


80E03170 






0908 73FF 






MDX 


3 


-1 


ON LINE 


80E03180 






0909 1 C400 


0813 




LD 


L 


CODE 


BEING TESTEO 


80E03190 






090B 1300 






SLA 


3 







80E03200 






090C 1 4C10 


0912 


* 


BSC 


L 


CNTRA, - 


BR IF EBCDIC CODE 


80E03210 
80E03220 






090E DlBO 




* 


STO 


1 


ASCII-T 


SET USASCII CODE INO 


80E03230 
80E03240 






090F 1 6700 


1B03 




LDX 


L3 


XMRCT 


POINT TO USASCII CODE TBL 


80E03250 






0911 7004 






MDX 




CNTRB+2 


GO TO MOVE CODE TABLE 


80E03260 




- 






* 










80E03270 






0912 1010 




CNTRA 


SLA 




16 




80E03280 






0913 DlBO 




* 


STO 


1 


ASCII-T 


RESET USASCII CODE I ND 


80E03290 
80E03300 






0914 1 6700 


1A19 


CNTRB 


LDX 


L3 


ASCCT 


POINT TO EBCDIC CODE TBL 


80E03310 






0916 6B03 




* 


STX 


3 


CNTRC+1 




80E03320 
80E 03330 






0917 6700 


FF16 




LDX 


L3 


DLE-TTBL1 


MOVE PROPER 


80E03340 






0919 C700 


0000 


CNTRC 


LD 


L3 


*-* 


CODE TABLE 


80E03350 




- 


091B 1 D700 


1784 




STO 


L3 


TTBL1 


TO COMMON 


80E03360 






0910 7301 






MDX 


3 


1 


TABLE AREA 


80E03370 






091E 70FA 




* 


MDX 




CNTRC 




80E03380 
80E03390 






091F C12D 






LD 


1 


SYN-T 




80E03400 






0920 1 D400 


17CB 




STO 


L 


VTBL+2 




80E03410 




UATE 


14N0V69 30JAN70 












PROG ID 


080E-0 


EC NO. 


431319 431319A 












PAGE 


3 



0922 1 C400 0800 

0924 E104 

0925 1 D400 0800 

0927 1 678C 0800 

0929 1 C700 15E5 
092B 1 D400 0801 

092D ClBl 

092E 9117 

092 F 100C 

0930 1 ECOO 0800 
0932 1 D400 0800 

0934 F1B5 

0935 1 4C20 093A 

09 37 1 7400 1629 

093 9 7009 



093A 1 
093C 
093D 1 

093F 1 
0941 1 

0943 1 

0945 

0946 

0947 

0948 

0949 1 
094B 
094C 
094D 



C400 
100B 
4C28 

6600 
4400 

C400 
D1B5 

C1B3 
1890 

1010 
D400 
D1B3 
D1B4 
DlCA 



0802 

0943 

1646 
121B 

0800 



15D7 



094E 1 2C40 1B04 



0950 
0951 



0953 1 

0955 

0956 1 



18D0 
4C98 

7401 
E109 
4C80 



0801 
0801 
0801 



0958 1000 

0959 1 4400 1274 
095 B 2006 
095C 1 16A7 
095D 0000 

095E 09A2 

095F 1 4400 14BD 

0961 1 4400 14CC 



LD 

AND 

STO 

LDX 

LD 

STO 

LD 

S 

SLA 

OR 

STO 

EOR 
BSC 

MDX 
MDX 



L RID 

1 HOOFF-T 
L RID 

13 RIO 

L3 RTTBL-1 

L RAD 

1 LINE-T 

1 Dl-T 
12 
L RID 
L RID 

1 LNRID-T 
L CNTRD.Z 

L LOCK 

CNTRE 



CNTRD LD L SWO 

SLA 11 

BSC L CNTRE, Z+ 
* 

LDX L2 AOCA 

BSI 



CNTRE LD 
STO 

* 

LD 
SRT 

SLA 
STO 
STO 
STO 
STO 



PRINT 

RID 
1 LNRID-T 

1 LOCK-T 
16 



16 
L INT 
1 LOCK-T 
1 ERLOK-T 
1 DIAGS-T 



DELETE 
LINE NUMBER 
FROM RID 

SET UP TEST 
ROUTINE 
ADDRESS 

INSERT 
NEW LINE 
NUMBER 
IN RID 



BR IF NEW LINE OR RTN 

BR IF RTN LOCK IND ON 

CK OPERATING OPTIONS 

BR IF BYPASS START RTN MSG 

PRINT RTN START MESSAGE 

SAVE NEW LINE 
NUMBER AND RID 

SAVE ROUTINE 
LOCK IND IN Q 

CLEAR INDICATORS 
INTERRUPT OCCURRED IND 
RTN LOCK IND 
LOOP ON ERROR INO 
DIAGNOSTIC MODE IND 



STS L XMRCT+1,/40 CLEAR STG PROT BIT 



RTE 
BSC 

MDX 
AND 
BSC 



16 
I RAD,+- 

L RAD,1 

1 HOFFF-T 
I RAD 



GET RTN LOCK DATA 
GO TO RTN IF NO LOCK 

INCRE RTN ADDR BY 1 
DELETE FLAG BIT 
GO TO TEST ROUTINE 



* 

* TEST ROUTINE 01 

*************************:Mc ********** ************** 



RTN01 


NOP 








* 


BSI 

DC 
DC 
DC 


L 


XMRCV 
/2006 
TBL2 




INITIALIZE CA 
TO TRANSMIT 
TABLE 


* 


XIO 


1 


CLEAR-T 


CLEAR CA 


* 


BSI 


L 


SENSE 


SENSE DSWS 




BSI 


L 


CKDSM 


CHECK DSWS 



JATE 

EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



80E03420 
80E03430 
80E03440 
80E 03450 
80E03460 
80E 03470 
80E03480 
80E03490 
80E03500 
80E 03510 
80E03520 
80E03530 
80E03540 
80E03550 
80E03560 
80E03570 
80E03580 
80E03590 
80E03600 
80E036 10 
80E03620 
80E03630 
80E03640 
80E03650 
80E03660 
80E 03670 
80E03680 
80E03690 
80E03700 
80E03710 
80E03720 
80E03730 
80E03740 
80E03750 
80E03760 
80E03770 
80E03780 
80E03790 
80E03800 
80E03810 
80E03820 
80E03830 
80E03840 
80E03850 
80E 03860 
80E 03870 
80E03880 
80E03890 
80E03900 
80E 03910 
80E03920 
80E03930 
80 EO 39 40 
80E03950 
80E03960 
80E 03970 
80E03980 
80E03990 
80E04000 
80E04010 
80E04020 
80E04030 
80E 04040 
80E04050 
80E 04060 
80E04070 
80E 04080 
80E 04090 



PRDG ID 

PAGE 



080E-0 
3A 
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0963 





0000 






DC 




/OOOO 


0964 





0080 






DC 




/0080 


0965 





0000 






DC 




/OOOO 


0966 





EOOO 






DC 




/EOOO 


0967 





0155 






DC 




/0155 


0968 





9000 




£ 


DC 




/9000 


0969 


1 


4400 


081D 




BSI 


L 


DELAY 


096B 





OFAO 




£ 


DC 




4000 


096C 


1 


4400 


15A0 




BSI 


L 


CKINT 


096 E 





0000 




f 


DC 







096F 


1 


4C00 


088F 


* 
* 


BSC 


L 


CNTRL 



WAIT 4 SECONDS 



CHECK FOR 
UNEXPECTED INTERRUPT 



EXIT ROUTINE 



*************************************************** 

* 

* TEST ROUTINE 02 

*************************************************** 

* 



0971 





1000 




RTN02 

* 


NOP 








0972 


1 


4400 


1274 




BSI 


L 


XMRCV 


INITIALIZE CA 


0974 





2006 






DC 




/2006 


TO TRANSMIT 


0975 


1 


16A7 






DC 




TBL2 


TABLE 


0976 





OOOO 




g|| 


DC 









0977 


1 


4400 


14BD 


£ 


BSI 


L 


SENSE 


SENSE DSWS 


0979 





09A2 




* 


XIO 


1 


CLEAR-T 


CLEAR CA 


097A 


1 


4400 


14CC 




BSI 


L 


CKOSW 


CHECK DSWS 


097C 





0080 






DC 




/0080 




0970 





OOOO 






DC 




/OOOO 




097E 





1FF9 






DC 




/1FF9 




097F 





EOOO 






DC 




/EOOO 




0980 





2155 






DC 




/2155 




0981 





8000 




* 


DC 




/8000 




0982 


1 


4400 


0810 


BSI 


L 


DELAY 


WAIT 4 SECOND 


0984 





OFAO 




£ 


DC 




4000 




0985 


1 


4400 


15A0 




BSI 


L 


CKINT 


CHECK FOR 


0987 





OOOO 




* 


DC 







UNEXPECTED I 


0988 


1 


4C00 


088F 


* 
* 


BSC 


L 


CNTRL 


EXIT ROUTINE 



*************************************************** 

* 

* TEST ROUTINE 03 

* 

*************************************************** 

* 



- 


098A 





1000 




RTN03 


NOP 










098B 
098D 
098E 


1 




4400 
0004 
OOOO 


1274 


* 
* 


BSI 
DC 

DC 


L 


XMRCV 
/0004 



INITIALIZE CA 
TO RECEIVE 
TABLE 




098F 





09A2 




XIO 


1 


CLEAR-T 


CLEAR CA 




0990 


1 


4400 


14B0 


* 


BSI 


L 


SENSE 


SENSE DSWS 




0992 
0994 


1 




4400 
OOOO 


14CC 


BSI 

DC 


L 


CKOSW 
/OOOO 


CHECK DSWS 


DATE 
EC NO. 


14N0V69 30JAN70 
431319 431319A 













80E04100 

80E04110 

80E04120 

80E04130 

80E04140 

80E04150 

80E04160 

80E04170 

80E04180 

80E04190 

80E04200 

80E04210 

80E04220 

80E04230 

80E04240 

80E04250 

80E04260 

80E04270 

80E04280 

80E04290 

80E04300 

80E 04310 

80 EO 4320 

80E04330 

80EC4340 

80E043 50 

80E04360 

80E04370 

80E04380 

80E04390 

80E 04400 

80E04410 

80E04420 

80E04430 

80E04440 

80E04450 

80E 04460 

80E04470 

80E04480 

80E04490 

80E04500 

80E 04510 

80E04520 

80E 04530 

80E04540 

80E04550 

80E04560 

80E 04570 

80E04580 

80E04590 

80E 04600 

80E04610 

80E 04620 

80E04630 

80E04640 

80E04650 

80E 04660 

80E04670 

80E04680 

80E04690 

80E04700 

80E04710 

80E04720 

80E 04730 

80E04740 

80E04750 

80E04760 

80E04770 



PROG 10 
PAGE 



080E-0 
4 



1>ATE 
EC NO. 



099 5 





0080 




DC 




/0080 




80E04780 




0996 





OOOO 




DC 




/OOOO 




80E04790 




0997 





EOOO 




DC 




/EOOO 




80E04800 




0998 





0100 




DC 




/0100 




80E04810 




0999 





90FF 


* 


DC 




/90FF 




80E04820 
80E048 30 




099A 


1 


4400 08 ID 




BSI 


L 


DELAY 


WAIT 4 SECONDS 


80E04840 




099C 





OFAO 


* 


DC 




4000 




80E04850 
80E04860 




099D 


1 


4400 15A0 




BSI 


L 


CKINT 


CHECK FOR 


80E 04870 




099F 





OOOO 


* 


DC 







UNEXPECTED INTERRUPT 


80E04880 
80E 04890 




09A0 


1 


4C00 088F 


* 
* 


BSC 


L 


CNTRL 


EXIT ROUTINE 


80E04900 
80E 04910 
80E049 20 










*************************************************** 


80E04930 










* 










80E04940 










* 






TEST ROUTINE 04 


80E04950 










* 










80E04960 










*************************************************** 


80E04970 










* 










80E04980 




09A2 





1000 


RTN04 

* 


NOP 








80E04990 
80E 05000 




09A3 


1 


4400 1274 




BSI 


L 


XMRCV 


INITIALIZE CA 


80E05010 




09A5 





0004 




DC 




/0004 


TO RECEIVE 


8OE05020 




09A6 





OOOO 


* 


DC 







TABLE 


80E05030 
80E05040 




09A7 


1 


4400 14BD 


* 


BSI 


L 


SENSE 


SENSE DSWS 


80E05050 
80E 05060 




09A9 





09A2 


* 


XIO 


1 


CLEAR-T 


CLEAR CA 


80E05070 
80E 05080 




09AA 


1 


4400 14CC 




BSI 


L 


CKDSW 


CHECK OSWS 


80E05090 




09AC 





0080 




DC 




/0080 




80E05100 




09AD 





OOOO 




DC 




/OOOO 




80E05110 




09AE 





OFFB 




DC 




/OFFB 




80E05120 




09AF 





EOOO 




DC 




/EOOO 




80E05130 




09B0 





0100 




DC 




/0100 




80E05140 




09B1 





90FF 


* 


DC 




/90FF 




80E 05150 
80E05160 




09B2 


1 


4400 0810 




BSI 


L 


DELAY 


WAIT 4 SECONDS 


80E 05170 




09B4 





OFAO 


* 


DC 




4000 




80E05180 
80E05190 




09B5 


1 


4400 15 AO 




BSI 


L 


CKINT 


CHECK FOR 


8OEO5200 




09B7 





OOOO 


* 


DC 







UNEXPECTED INTERRUPT 


80E05210 
80E05220 




09B8 


1 


4C00 088F 


* 
* 


BSC 


L 


CNTRL 


EXIT ROUTINE 


80E05230 
80E05240 
80E05250 










*************************************************** 


80E05260 










* 










80E05270 










* 






TEST ROUTINE 05 


80E05280 










* 










80E05290 










*************************************************** 


80E05300 










* 










80E05310 




09BA 





1000 


RTN05 

* 


NOP 






- 


80E05320 
80E05330 




09BB 


1 


4400 1274 




BSI 


L 


XMRCV 


INITIALIZE CA 


80E05340 




09BD 





2006 




DC 




/2006 


TO TRANSMIT 


80E05350 




09BE 


1 


16A7 




DC 




TBL2 


TABLE 


80E05360 




09BF 





OOOO 


* 


DC 









80E05370 
80E05380 




09C0 





09A4 


* 


XIO 


1 


INITL-T 


INITIALIZE AGAIN 


80E05390 
80E05400 




09C1 





1000 




NOP 






COMMAND REJECT INTERRUPT 


80E05410 




09C2 





1000 


* 


NOP 






SHOULD OCCUR HERE 


80E05420 
80E05430 




09C3 


1 


4400 14B0 


* 


BSI 


L 


SENSE 


SENSE OSW'S 


80E05440 
80E05450 




14N0V69 30JAN70 












PROG ID 


080E-0 


431319 431319A 












PAGE 


4A 
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09C5 





09A2 




* 


XIO 


1 


CLEAR-T 


CLEAR CA 


09C6 


1 


4400 


15A0 


BSI 


L 


CKINT 


CHECK FOR 


09C8 





OOCO 






DC 




/OOCO 


COMMAND 


09C9 





0000 






DC 




/OOOO 


REJECT 


09CA 





0FF9 






DC 




/0FF9 


INTERRUPT 


09CB 





FOOO 






DC 




/FOOO 




09CC 





2000 






DC 




/2000 




09CD 





81FF 




£ 


DC 




/81FF 




09CE 


1 


4400 


14CC 




BSI 


L 


CKOSW 


CHECK DSW'S 


09D0 





0080 






DC 




/0080 




09D1 





0000 






DC 




/OOOO 




0902 





0FF9 






DC 




/0FF9 




0903 





FOOO 






DC 




/FOOO 




09 04 





2000 






DC 




/2000 




09D5 





81FF 




* 

* 
* 


DC 




/81FF 




0906 


1 


4C00 


088F 


BSC 


L 


CNTRL 


RETURN TO CO 



*************************************************** 

* 

* TEST ROUTINE 06 

* 

*************************************************** 

* 



0908 





1000 




RTN06 


NOP 








09D9 


1 


4400 


1274 


BSI 


L 


XMRCV 


INITIALIZE CA 


090B 





0006 






DC 




6 


TO RECEIVE TA8LI 


090C 





OOOO 




* 


DC 









090D 


1 


4400 


081D 




BSI 


L 


DELAY 


WAIT 


090F 





0014 




* 


DC 




20 


20 MILLISECONDS 


09E0 


1 


4400 


14B0 


* 


BSI 


L 


SENSE 


SENSE THE DSWS 


09E2 


1 


4400 


14CC 


BSI 


L 


CKDSW 


CHECK THE DSWS 


09E4 





0080 






DC 




/0080 




09E5 





OOOO 






DC 




/OOOO 




09E6 





4FF9 






DC 




/4FF9 




09E7 





AOOO 






DC 




/AOOO 




09E8 





01FF 






DC 




/01FF 




09E9 





9000 




* 


DC 




/9000 




09EA 





09AE 




* 


XIO 


1 


SETRC-T 


TURN ON PROG REC 


09EB 


1 


4400 


0810 


BSI 


L 


DELAY 


WAIT 


09E0 





0014 




* 
* 
* 


DC 




20 


20 MILLISECONDS 


09EE 


1 


4400 


14B0 


BSI 


L 


SENSE 


SENSE THE DSWS 


09F0 





09 A2 




XIO 


1 


CLEAR-T 


CLEAR THE CA 


09F1 


1 


4400 


14CC 


BSI 


L 


CKDSW 


CHECK THE DSWS 


09F3 





0080 






DC 




/0080 




09F4 





OOOO 






DC 




/OOOO 




09F5 





0FF9 






DC 




/0FF9 




09F6 





AOOO 






DC 




/AOOO 




09F7 





0100 






DC 




/0100 




09F8 





9000 






DC 




/9000 




09F9 


1 


4C00 


088F 


* 
* 


BSC 


L 


CNTRL 


EXIT ROUTINE 



*************************************************** 

* 



80E05460 

80F05470 

80E05480 

80F05490 

80E05500 

80E05510 

80E05520 

80E05530 

80E05540 

80E05550 

80E05560 

80E05570 

80E05580 

80E05590 

80EC5600 

80E05610 

80E05620 

S0EO5630 

80E05640 

80E05650 

80E05660 

80E05670 

80E05630 

80E05690 

80E05700 

80E05710 

80E05720 

80E05730 

80E 05740 

80E05750 

80E 05760 

80E05770 

80E05780 

80E05790 

80E05800 

80EC5810 

80E05820 

80E 05830 

80E05840 

80E 05850 

80E05860 

80E05870 

80E05880 

80E 05890 

80E05900 

80E05910 

80E05920 

80E05930 

80E 05940 

80E05950 

80E 05960 

80E05970 

80E05980 

80E05990 

80E 06000 

80E06010 

B0E06020 

80E06030 

80F06040 

80E06050 

80E0f>06D 

80E06070 

80E06080 

80E 06090 

80E06100 

80E 06110 

80E06120 

80E 06130 



09FB C117 

09FC 1000 

09FD E109 

09FE 0006 

09FF 1 4C08 09FB 

0A01 8117 

0A02 D1B3 

0A03 1 4400 1274 

0A05 OOOO 

0A06 OOOO 

0A07 1 4400 14BD 

0A09 09A2 



* TEST ROUTINE 07 

* 

*************************************************** 

* 

RTN07 LD 1 Dl-T PICK UP 1ST BYTE COUNT 

NOP 
* 

ANO 

STO 

BSC 
* 

A 

STO 
* 

BSI 
RN07B DC 

DC 



OAOA 
OAOB 
OAOC 
OAOO 

OAOE 
0A10 
0A11 
0A12 
0A13 
0A14 
0A15 



C1B3 
9117 
F109 

D004 

4400 14CC 

0080 

OOOO 

OOOO 

FOOO 

0100 

90FF 



0A16 C1B3 

0A17 811A 

0A18 D1B3 

0A19 1003 

0A1A 1 4C10 088F 

0A1C 1010 

0A1D D1B3 

0A1E 1 4C00 088F 



BSI 

XIO 

LD 
S 

EOR 
STO 



BSI 

DC 

DC 

RN07C DC 
DC 
DC 
DC 

* 

LD 

A 

STO 

* 

SLA 
BSC 

* 

SLA 
STO 
BSC 



1 HOFFF-T 

RN07B 

L RTN07.+ 

1 Dl-T 
1 LOCK-T 

L XMRCV 
*-* 



L SENSE 

1 CLEAR-T 

1 LOCK-T 
1 Dl-T 
1 HOFFF-T 
RN07C 

L CKDSW 
/0080 
/OOOO 
*-* 
/FOOO 
/0100 
/90FF 

1 LOCK-T 
1 04-T 
1 LOCK-T 



L CNTRL, - 

16 
1 LOCK-T 
L CNTRL 



STO BYTE COUNT IN CALL SEQ 
ZERO COUNT NOT ALLOWEO 

SET VARIABLE 

DATA IND 

INITIALIZE CA 
TO RECEIVE TABLE 



SENSE DSWS 

CLEAR CA 

SET UP 
BYTE 
COUNT DSW 
SHOULD BE 

CHECK DSWS 



INCREMENT 
VARIABLE DATA 
INDICATOR BY 4 

CK FOR END OF ROUTINE 
RETURN TO CNTRL IF NOT END 



RESET VARIABLE DATA INO 
RETURN TO CONTROL SUBRTN 



0A20 1000 

0A21 09A8 

0A22 1 4400 081D 

0A24 0708 

0A25 1 4400 15A0 

0A2 7 OOOO 

0A28 1 4400 081D 

0A2A 0190 

0A2B 09 A2 



* 

* 

*************************************************** 

* 

* TEST ROUTINE 08 

* 

*************************************************** 

* 

RTN08 NOP 

* 

XIO 



BSI 

DC 

BSI 

DC 

BSI 

DC 

XIO 



1 TIMER-T 

L DELAY 
1800 

. CKINT 


L DELAY 

400 

1 CLEAR-T 



START CONTINUE TIMER 
WAIT 1.8 SECONDS 



CHECK FOR 
UNEXPECTED INTERRUPT 



WAIT .4 SECONDS 



CLEAR CA 



80E06140 

80E06150 

80E06160 

80E05170 

80E06180 

80E06190 

80E06200 

S0E06210 

80E06220 

30E06230 

80E06240 

80E0625O 

80E06260 

80E06270 

80E06280 

80E06290 

80E06300 

80E06310 

80E 06320 

80E06330 

80E06340 

80E06350 

80E06360 

80E06370 

80E06380 

80E06390 

80E06400 

80E06410 

80E 0642 

80E06430 

8 OE 06440 

80E06450 

80E06460 

80E06470 

80E 06480 

80E06490 

80E06500 

80E06510 

80E06520 

80E06530 

80EC6540 

80E06550 

80E06560 

80E 06570 

80E06580 

80E06590 

80E06600 

80E06610 

80E06620 

80E06630 

80E06640 

80E06650 

80E06660 

80E06670 

80E 06680 

80E06690 

80E06700 

80E06710 

80E 06720 

80E06730 

80E06740 

80E06750 

80E 06760 

80E06770 

80E06780 

80E06790 

80E06800 

80E 06810 



DATE 
EC NO. 



14N0V69 
431319 



3 0JAN70 
431319A 



PROS ID 
PAGE 



080E-? 



J ATE 

EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



080 E-0 
5A 
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0A2C 1 4400 


15A0 




8SI 


L 


CKINT 


0A2E 2000 






DC 




/2000 


0A2F 0080 






DC 




/0080 


0A30 0000 






DC 




/OOOO 


0A31 FOOO 






DC 




/FOOO 


0A32 0100 






DC 




/0100 


0A33 90FF 




* 


DC 




/90FF 


0A34 1 4C00 


088F 


* 


BSC 


L 


CNTRL 



CHECK FOR 
TIMEOUT INTERRUPT 



0A36 1000 

0A37 1 4400 1274 
0A39 0004 
0A3A 0000 

0A3B 1 4400 081D 
0A3D 09C4 

0A3E 1 4400 15A0 
OA40 0000 

0A41 1 4400 0810 
0A43 02BC 

0A44 09A2 



EXIT ROUTINE 



*************************************************** 

* 

* TEST ROUTINE 09 

* 

*************************************************** 

* 

RTN09 NOP 

* 



0A45 
0A47 
0A48 
0A49 
0A4A 
0A4B 
0A4C 



4400 15A0 

2080 

0000 

OFFB 

FOOO 

0100 

90FF 



BSI 

DC 

DC 

BSI 

DC 

BSI 

DC 

BSI 
DC 

XIO 

BSI 

DC 
DC 
DC 
DC 
DC 
DC 



XMRCV 
/0004 


DELAY 
2500 

. CKINT 


. DELAY 
700 

1 CLEAR-T 

CKINT 
/2080 
/OOOO 
/OFFB 
/FOOO 
/0100 
/90FF 



INITIALIZE CA 
TO RECEIVE TABLE 



WAIT 2.5 SECONDS 



CHECK FOR 
UNEXPECTED INTERRUPT 

WAIT .7 SECONDS 



CLEAR CA 

CHECK FOR 
TIMEOUT INTERRUPT 



0A4D 1 4C00 088F 



BSC L CNTRL 



EXIT ROUTINE 



* 

* 

*************************************************** 

* 

* TEST ROUTINE OA 

* 

*************************************************** 

* 



0A4F 1000 



0A50 1 
0A52 
0A53 

0A54 1 
0A56 



4400 1274 

1004 

OOOO 

4400 0810 
OFAO 



0A57 09A2 



0A58 1 
0A5A 



4400 15A0 
OOOO 



RTNOA NOP 

* 

BSI 

DC 

DC 



BSI 

DC 

XIO 

BSI 

DC 



0A5B 1 4C00 088F 



XMRCV 
/1004 


DELAY 

4000 

1 CLEAR-T 

. CKINT 




BSC L CNTRL 



INITIALIZE CA 
TO RECEIVE TABLE WITH 
TIMEOUT SUPPRESSED 

WAIT 4 SECONDS 



CLEAR CA 

CHECK FOR 
UNEXPECTED INTERRUPT 

EXIT ROUTINE 



80E 06820 

80E06830 

80E06840 

80E06850 

80E 06860 

80E06870 

80E 06880 

80E06890 

80E06900 

80E06910 

80E 06920 

80E06930 

80E06940 

80E06950 

80E 06960 

80E 06970 

80E06980 

80E 06990 

80E07000 

80E07010 

80E07020 

80E07030 

80E07040 

80E07050 

80E07060 

80E07070 

80E07080 

80E07090 

80E07100 

80E07110 

80E07120 

80E07130 

80E07140 

80E07150 

80E07160 

80E07170 

80E07180 

80E07190 

80E07200 

80E07210 

80E07220 

80E07230 

80E07240 

80E07250 

80E07260 

80E07270 

80E07280 

80E 07290 

80E07300 

80E07310 

80E07320 

80E07330 

80E07340 

80E07350 

80E07360 

80E07370 

80E07380 

80E07390 

80E07400 

80E07410 

80E 07420 

80E07430 

80E07440 

80E07450 

80E07460 

80E07470 

80E07480 

80E07490 



0A5D 1000 

0A5E 1 4400 1274 

0A60 2006 

0A61 1 16A7 

0A62 0001 

0A63 1 4400 14BD 

0A65 09 A2 



*************************************************** 

* 

* TEST ROUTINE OB 

* 

*************************************************** 

* 

RTNOB NOP 

* 



0A66 1 
0A68 
0A69 
0A6A 
0A6B 
0A6C 
0A6D 



4400 14CC 

0080 

OOOO 

0FF9 

FOOO 

OOOO 

81FF 



0A6E 1 4400 150C 

0A70 1 1C93 

0A71 1 16A4 

0A72 0002 

0A73 1 4400 15A0 

0A7 5 OOOO 

0A76 1 4C00 088F 



0A78 1000 



0A79 1 
0A7B 
0A7C 1 
0A7D 



4400 12 74 

2006 

16A7 

0005 



0A7E 1 4400 14BD 



0A80 09 A2 



0A81 
0A83 
0A84 
0A85 



4400 14CC 
0080 
OOOO 
OFF A 



0A86 FOOO 
0A87 4000 
0A88 80FF 

0A89 1 4400 150C 

0A8B I 1C93 

0A8C 1 16A4 

0A8D 0006 

0A8E 1 4400 15A0 



BSI 

OC 

DC 
DC 

BSI 

XIO 

BSI 

DC 
DC 
DC 
DC 
DC 
DC 

BSI 

DC 
DC 
DC 

BSI 
DC 

BSC 



. XMRCV 
/2006 
TBL2 

1 

. SENSE 

1 CLEAR-T 

L CKDSW 
/0080 
/OOOO 
/0FF9 
/FOOO 
/OOOO 
/81FF 

L C KDAT 
SRCTB 
TBL1 
2 

L CKINT 


L CNTRL 



INITIALIZE CA TO TRANSMIT 
TABLE AND RETRIEVE 1ST 
CHARACTER TRANSMITTED 



SENSE DSWS 
CLEAR CA 
CHECK DSWS 



CHECK TRANSMITTED 
DATA 



CHECK FOR 
UNEXPECTED INTERRUPT 



EXIT ROUTINE 



* 

* • 

*************************************************** 
* 

* TEST ROUTINE OC 
* 

*************************************************** 
* 

RTNOC NOP 
* 

BSI 

DC 

DC 

DC 



BSI 

XIO 

BSI 

DC 

DC 

DC 

DC 

DC 

DC 

BSI 

DC 
DC 
DC 



XMRCV 
/2006 
TBL2 
5 

. SENSE 

I CLEAR-T 

L CKDSW 
/0080 
/OOOO 
/OFFA 
/FOOO 
/4000 
/80FF 

L CKDAT 
SRCTB 
TBL1 
6 



INITIALIZE CA TO TRANSMIT 
TABLE AND RETRIEVE FIRST 
5 CHARS TRANSMITTED 



SENSE DSWS 
CLEAR CA 
CHECK THE DSWS 



BSI L CKINT 



CHECK RETRIEVED OATA 



CHECK FOR 



80E07500 

80E07510 

80E07520 

80E07530 

80E07540 

80E07550 

80E07560 

80E07570 

80E07580 

80E07590 

80E07600 

80E07610 

80E07620 

80E07630 

80E07640 

80E 07650 

80E07660 

80E 07670 

80E07680 

80E07690 

80E07700 

80E07710 

80E07720 

80E07730 

80E07740 

80E07750 

80E07760 

80E07770 

80E07780 

80E07790 

80E07800 

80E07810 

80E07820 

80E07830 

80E07840 

80E07850 

80E07860 

80E07870 

80E07880 

80E 07890 

80E07900 

80E 07910 

80E07920 

80E 07930 

80E07940 

80E 07950 

80E07960 

80E07970 

80E07980 

80E07990 

80E 08000 

80E08010 

80E08020 

80E08030 

80E08040 

80E08050 

80E08060 

80E08070 

80E08080 

80E08090 

80E08100 

80E08110 

80E08120 

80E08130 

80E08140 

80E08150 

80E08160 

80E08170 



OATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



PROS ID 
PAGE 



080E-0 
6 



UATE 

£C NO. 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



080E-0 
6A 



I! I 
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0A90 0000 


* 


DC 







0A91 1 4C00 088F 


BSC 


L 


CNTRL 



0A9 3 1000 



0A94 1 
0A96 
0A97 1 
0A98 



4400 
2006 
16A7 

OOOB 



1274 



0A99 09A2 



0A9A 1 
0A9C 1 
0A9D 1 
0A9E 



0A9F 
0AA1 
0AA2 

0AA3 
0AA4 
0AA5 
0AA6 



4400 150C 
1C93 
16A4 
OOOA 

4400 15A0 

0880 

0000 

OFFF 

FOOO 

407F 

9000 



0AA7 1 4C00 088F 



0AA9 1000 

OAAA 1 4400 12 74 

OAAC 2005 

OAAD 1 16A7 

OAAE 0009 

OAAF 09A2 

OABO 1 4400 150C 

0AB2 1 1C93 

0AB3 1 16A4 

0AB4 0009 



0AB5 
0AB7 
0AB8 
0AB9 
OABA 
OABB 
OABC 



4400 15A0 

0880 

0000 

OFFF 

FOOO 

407F 

9000 



OABD 1 4C00 088F 



UNEXPECTED INTERRUPT 
EXIT ROUTINE 



*************************************************** 

* 

* TEST ROUTINE OD 

* 
*************************************************** 

* 

RTNOD NOP 

* 

BSI 
DC 

DC 
DC 



XIO 

BSI 
DC 

DC 
DC 

BSI 

DC 
DC 
DC 
DC 
DC 
DC 



XMRCV 
/2006 
TBL2 
II 

1 CLEAR-T 

CKDAT 
SRCTB 
TBL1 
10 

CKINT 
/0880 
/OOOO 
/OFFF 
/FOOO 
/407F 
/9000 



INITIALIZE CA TO TRANSMIT 
TABLE AND RETRIEVE 11 
CHARS FROM RECEIVE 
DATA LINE 

CLEAR CA 

CHECK RETRIEVED 
DATA 



CHECK FOR 
TABLE COMPLETE INTRPT 



BSC L CNTRL 



EXIT ROUTINE 



* 

* 

*************************************************** 

* 

* TEST ROUTINE OE 

* 

*************************************************** 

* 

RTNOE NOP 

* 

BSI 

DC 

DC 

DC 



XIO 

BSI 

DC 
DC 
DC 

BSI 

DC 
DC 
OC 
OC 
DC 
DC 



XMRCV 
/2005 
TBL2 
9 

1 CLEAR-T 

CKDAT 
SRCTB 
TBL1 
9 

. CKINT 
/0880 
/OOOO 
/OFFF 
/FOOO 
/407F 
/9000 



INITIALIZE CA TO TRANSMIT 
TABLE WITH ODD BYTE COUNT 
AND RETRIEVE 9 CHARS 
FROM RECEIVE DATA LINE 

CLEAR CA 

CHECK RETRIEVED 
DATA 



CHECK FOR 
TABLE COMPLETE INTRPT 



BSC L CNTRL 



EXIT ROUTINE 



* 
* 
*************************************************** 

* 



KATE 
EC NO. 



14N0V69 
431319 



3 0JAN70 
431319A 



80E08180 
80E08190 
80E08200 
80E08210 
8OEO8220 
80E08230 
80E08240 
80E08250 
80E08260 
80E08270 
80E08280 
80E08290 
80E08300 
80E08310 
80E08320 
80E08330 
80E08340 
80E08350 
80E08360 
80E0837C 
80E08 380 
80E08390 
80E08400 
80E08410 
80E08420 
80E08430 
80E08440 
80E08450 
80E08460 
80E08470 
80E08480 
80E08490 
80E08500 
80E08510 
80E08520 
80E08530 
80E08540 
80E08550 
80E08560 
80E08570 
80E08580 
80E08590 
80E08600 
80E08610 
80E08620 
80E08630 
80E08640 
80E08650 
80E08660 
80E08670 
80E08680 
80E08690 
80E 08700 
80E08710 
80E 08720 
80E08730 
80E08740 
80E08750 
80E08760 
80E08770 
80E08780 
80E08790 
80E08800 
80E08810 
80E0R820 
80E08830 
80E08840 
80E 08850 



PROS ID 
PAGE 



OABF 1000 



OACO 1 
0AC2 
0AC3 1 
0AC4 



4400 1274 
6006 
16A7 
OOOO 



0AC5 1 4400 081 D 

0AC7 09C4 

0AC8 1 4400 15 AO 

OACA OOOO 

OACB 1 4400 0810 

OACD 02BC 

OACE 09A2 



OACF 
0AD1 
0AD2 
0A03 
0AD4 
0AD5 



4400 15A0 

2080 

OOOO 

CFFF 

FOOO 

4000 



0AD6 91FF 
0AD7 1 4C00 088F 



* TEST ROUTINE OF 

* 

*************************************************** 

* 

RTNOF NOP 

* 

BSI 

DC 

DC 

DC 



BSI 

DC 

BSI 

DC 

BSI 
DC 

XIO 

BSI 
DC 

DC 
DC 
DC 
DC 
DC 

BSC 



XMRCV 
/6006 
TBL2 



DELAY 
2500 

. CKINT 



DELAY 
700 

1 CLEAR-T 

. CKINT 
/2080 
/OOOO 
/OFFF 
/FOOO 
/4000 
/91FF 

CNTRL 



INITIALIZE TO TRANSMIT 
TABLE WITH TABLE COMPLETE 
INTERRUPT SUPPRESSED 



WAIT FOR 
2.5 SECONDS 

CHECK FOR 
UNEXPECTED INTERRUPT 

WAIT FOR 
.7 SECONDS 

clear ca 

check for 
timeout interrupt 



EXIT ROUTINE 



080E-? 

7 



0AD9 





1010 


OADA 





1000 


OADB 





E104 


OADC 





D1B3 


OADD 


1 


4400 141A 


OADF 





1089 


OAEO 





100 A 


OAEl 





4820 


0AE2 





C10C 


0AE3 





1805 


0AE4 





E90C 


0AE5 





1801 


0AE6 





DOIC 


0AE7 





C1B3 


0AE8 





1008 


0AE9 





E90A 


OAEA 


1 


D400 16 AE 


OAEC 





1C82 


OAED 





1010 


OAEE 





1081 


OAEF 





1003 


OAFO 





E917 


0AF1 





1007 


0AF2 





DOOC 


JATE 14N0V69 30JAN70 


EC NO. 431319 431319A 



* 

* 

*************************************************** 

* 

* TEST ROUTINE 10 

* 

*************************************************** 

* 

RTN10 SLA 16 INITIALIZE WITH CHAR /OO 

NOP 
* 

AND 

STO 



BSI 

SLT 

SLA 

BSC 

LD 

SRA 

OR 

SRA 

STO 

LD 
SLA 
OR 
STO 

SLT 

SLA 

SLT 

SLA 

OR 

SLA 

STO 



1 HOOFF-T 
1 LOCK-T 

. DCODE 

9 

10 

Z 
1 H8000-T 

5 
1 H8000-T 

1 

RT10B 

1 LOCK-T 

8 
1 H007F-T 
L TBL4 

2 

16 
1 
3 
1 Dl-T 
7 
RT10A 



SAVE VARIABLE DATA 
DECODE CONTROL CHARACTER 



DEVELOPE 
DIAGNOSTIC 
DSW SHOULD 
BE WORD 



SET DATA CHAR 
IN XMIT TABLE 



DEVELOPE 
OPERATING 
DSW SHOULD 
BE WORD 



80E08860 

80E0887C 

80E08880 

80E08890 

80E08900 

80E08910 

80E08920 

80E08930 

80E08940 

80E08950 

80E08960 

80E08970 

80E08980 

80E 08990 

80E09000 

80E09010 

80E09020 

80E09030 

80E09040 

80E09050 

80E09060 

80E09070 

80E09080 

80E09090 

80E09100 

80E09110 

80E09120 

80E09130 

80E09140 

80E09150 

80E09160 

80E09170 

80E09180 

80E09190 

80E09200 

80E09210 

80E09220 

80E09230 

80E09240 

80E09250 

80E09260 

80E09270 

80E09280 

80E09290 

80E09300 

80E09310 

80E09320 

80E09330 

80E09340 

80E09350 

80E09360 

80E09370 

80E09380 

80E09390 

80E09400 

80E09410 

80E09420 

80E09430 

80E09440 

80E09450 

80E09460 

80E 09470 

80E09480 

80E 09490 

8OE095O0 

80E09510 

80E0952P 

80E 09530 



PROS ID 
PAGE 



080E-0 
7A 
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0AF3 1 7401 1629 

OAF 5 1 4400 1274 
0AF7 2006 
0AF8 1 16AE 
0AF9 0005 

OAFA 1 4400 14BD 

OAFC 09A2 



HOX 

BSI 
DC 

DC 
DC 

BSI 

XIO 



OAFD 
OAFF 
OBOO 
0B01 
0BO2 
0B0 3 
OB 04 



4400 14CC 

0000 

0000 

OFFA 

FOOO 

0000 

81FF 



0B05 1 4400 150C 

OB07 1 1C93 

0B08 1 16AB 

0809 0006 

OBOA 1 4400 15A0 

OBOC 0000 

OBOD C1B3 

OBOE 1008 

OBOF 4818 

OBIO 01B3 

0811 1 4C00 088F 



BSI 
RT10A DC 
DC 
DC 
DC 
RT10B DC 
DC 

BSI 
DC 
DC 
DC 
* 

BSI 
DC 

LD 

SLA 

BSC 

STO 

BSC 



L L0CK.1 

L XMRCV 
/2006 
TBL4 

5 

L SENSE 
1 CLEAR-T 

L CKDSW 

*-* 

/oooo 

/OFFA 
/FOOO 
*-* 
/81FF 

L CKDAT 
SRCTB 
TBL3 
6 

L CKINT 



1 LOCK-T 
8 

+— 
1 LOCK-T 
L CNTRL 



INCRE VARIABLE DATA 

INITIALIZE CA TO 
TRANSMIT TABLE AND 
RETRIEVE FIRST 5 
CHARACTERS TRANSMITTED 

SENSE DSW'S 

CLEAR CA 

CHECK DSW'S 



CHECK 
RETRIEVED DATA 



CHECK FOR 
UNEXPECTED INTERRUPT 

CHECK IF 
END OF 
ROUTINE 
CLEAR RTN LOCK IF END 
RETURN TO CONTROL 



♦♦♦♦at********************************************** 

* TEST ROUTINE 11 

* 
*************************************************** 

INITIALIZE WITH CHAR /OO 



SAVE VARIABLE DATA 

DECODE CONTROL CHARACTERS 

SET UP BYTE COUNT AND 
DIAG DSW FOR NO CONT CHAR 

CK DECODE BITS 

BR IF NOT CONTROL CHAR 



0B13 
0814 






1010 
1000 




RTN 11 


SLA 

NOP 




16 


OBIS 
0B16 






E104 
D1B3 




f 


AND 
STO 


1 

1 


HOOFF-T 
LOCK-T 


0817 


1 


4400 


141A 


♦ 


BSI 


L 


OCODE 


0819 
OBIB 







6600 
6700 


OFFB 
4000 


£ 


LDX 
LOX 


L2 
L3 


/OFFB 
/4000 


0B1D 
OBIE 
OBIF 






1 


1089 
1008 
4C18 


0B31 


£ 


SLT 
SLA 
BSC 


L 


9 
8 
RTllDt*- 


0B21 
0B22 




1 


1002 
4C18 


0B2B 


♦ 


SLA 
BSC 


L 


2 

RT11B.+- 


0824 
0B25 
0B26 






1 


1002 
1800 
4C08 


0B2E 




SLA 
SRA 
BSC 


L 


2 

13 

RT11C* 



0B28 6700 4000 
0B2A 7006 

0B2B 6700 4400 
0B2D 7003 



LDX L3 /4000 

MOX RT11D 

* 

RT11B LDX L3 /4400 

MDX RT110 



BR IF SOH OR STX 



BR IF LONG END CHAR 

SET DIAG DSW FOR SHORT END 
BRANCH 

SET DIAG OSW FOR TEXT 
BRANCH 



80E 09540 

80E09550 

80E09560 

80E09570 

80E09580 

80E09590 

80E09600 

80E09610 

80E09620 

80E 09630 

80E09640 

80E 09650 

80E09660 

80E09670 

80E09680 

80E 09690 

80E09700 

80E 09710 

80E09720 

80E09730 

80E09740 

80E09750 

80E09760 

80E09770 

80E 09780 

80E09790 

80E09800 

80E09810 

80E 09820 

80E09830 

80E 09840 

80E09850 

80E 09860 

80E 09870 

80E09880 

80E09890 

80E09900 

80E09910 

80E09920 

80E 09930 

80E09940 

80E09950 

80E09960 

80E09970 

80E09980 

80E09990 

80E10000 

80E10010 

80E10020 

80E10030 

80E10040 

80E10050 

80E10060 

80E13070 

80E10080 

80E10090 

80E10100 

80E10110 

80E10120 

80E10130 

80E10140 

80E10150 

80E10160 

80E10170 

80E10180 

80E10190 

80E10200 

80E10210 



0B2E 6700 6200 
0B30 72FF 

0B31 6A1B 
0B32 6B1C 

0B33 C1B3 

0B34 1008 

0B35 E90A 

0B36 1 D400 16AE 



0B3 8 
0B39 
0B3A 
0B3B 
0B3C 
0B3D 
0B3E 



1082 
1010 
1081 
1003 
E917 
1007 
OOOC 



0B3F 1 7401 1629 

0B41 1 4400 1274 

0B43 2006 

0B44 1 16AE 

0B45 0006 

0B46 1 4400 14BD 

0B48 09A2 



OB 49 
0B4B 
0B4C 
0B4D 
0B4E 
0B4F 
0B50 



4400 14CC 

0000 

0000 

0000 

FOOO 

0000 

81FF 



0B51 1 4400 150C 

0B53 1 1C93 

0B54 1 16AB 

OB 55 0006 

0B56 1 4400 15A0 

0858 0000 

0B59 C1B3 

0B5A 1008 

0B5B 4818 

0B5C D1B3 

0B5D 1 4C00 088F 



RT11C LDX 
MDX 

* 

RT11D STX 
STX 

LD 
SLA 
OR 
STO 

SLT 

SLA 

SLT 

SLA 

OR 

SLA 

STO 



* 
* 

* 
* 
* 



MDX 

BSI 
DC 

DC 
DC 

BSI 

XIO 



L3 /6200 
2 -1 

2 RT11F 

3 RT11G 

1 LOCK-T 

8 
1 H007F-T 
L TBL4 

2 

16 
1 
3 
1 Dl-T 
7 
RT11E 



BSI 

RT11E DC 
DC 

RT11F DC 
DC 

RT11G DC 
DC 

* 

BSI 
DC 
DC 
DC 

* 

BSI 
DC 

LD 

SLA 

BSC 

STO 

BSC 



LOCK.l 

XMRCV 
/2006 
TBL4 
6 

. SENSE 

1 CLEAR-T 

L CKDSW 
*-* 
/OOOO 
*-* 
/FOOO 
*-* 

/81FF 

L C KDAT 
SRCTB 
TBL3 
6 

L CKINT 



1 LOCK-T 
8 



1 LOCK-T 
L CNTRL 



SET DIAG DSW FOR LONG END 
SET LONG END BYTE COUNT 

STORE EXPECTED BYTE CNT 
STORE EXPECTED DIAG DSW 

SET VARIABLE 
DATA CHARACTER 
IN XMIT TABLE 



DEVELOPE 
OPERATING DSW 
SHOULD BE 
WORD 



INCRE VARIABLE DATA 

INITIALIZE CA TO 
TRANSMIT TABLE AND 
RETRIEVE FIRST 6 
CHARACTERS TRANSMITTED 

SENSE DSW'S 

CLEAR CA 

CHECK DSW'S 



CHECK 
RETRIEVED DATA 



CHECK FOR 
UNEXPECTED INTERRUPT 

CHECK IF 
END OF 
ROUTINE 
CLEAR RTN LOCK IND IF END 
RETURN TO CONTROL 



* 

*************************************************** 

* 

* TEST ROUTINE 12 

*************************************************** 
* 

INITIALIZE WITH CHAR /OO 



SAVE VARIABLE DATA 
DECODE CONTROL CHARACTERS 



0B5F 1810 
0B60 1000 




RTN12 


SRA 
NOP 


16 


0B61 E104 
0B62 D1B3 




* 


AND 
STO 


1 HOOFF-T 
1 LOCK-T 


0B63 1 4400 


14 IA 


* 


BSI 


L DCODE 



80E10220 

80E10230 

80E10240 

80E10250 

80E10260 

80E10270 

80E10280 

80E10290 

80E10300 

80E10310 

80E10320 

80E10330 

80E10340 

80E10350 

80E10360 

80E10370 

8OE10380 

80E10390 

80E10400 

80E10410 

80E10420 

80E 10430 

80E10440 

80E10450 

80E10460 

80E10470 

80E10480 

80E 10490 

80E 10500 

80E10510 

80E10520 

80E10530 

80E 10540 

80E10550 

80E10560 

80E10570 

80E10580 

80E10590 

80E10600 

80E10610 

80E10620 

80E1063 

80E10640 

80E10650 

80E10660 

80E 10670 

80E10680 

80E10690 

80E10700 

80E10710 

80E10720 

80E10730 

80E10740 

80E10750 

80E 10760 

80 E 10770 

80E10780 

80E10790 

80E10800 

80E10810 

80E10820 

80E10830 

80E10840 

80E10850 

80E10860 

80E10870 

80E10880 

80E 10890 



TJATE 
EC NO. 



14N0V69 
431319 



3 0JAN70 
431319A 



PROS ID 
PAGE 



080 E-0 
8 



tlATE 

EC NO. 



14N0V69 
431319 



30JANT0 
431319A 



PROG ID 
PAGE 



080E-0 
8A 



(<<((<< <<<<<(<<<<<<<< (<<<<<<<<<(<( 
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PART NO. 
PAGE 



2279476 
9A 





0B65 1 


7400 


1626 




MDX 


L 


ASCII 


CHECK ASCII CODE IND 


80E1090P 


OBAO 





1000 






0B67 


7033 




* 


MDX 




RN12D 


BR IF USASCII CODE 


80E10910 
80E 10920 


0BA1 





E104 






0B68 


1083 






SLT 




3 




80E10930 


0BA2 





D1B3 






0B69 


100F 






SLA 




15 




80E 10940 












0B6A 


1804 






SRA 




4 




80E10950 


OB A3 


1 


4400 


141A 




0B6B 


DO IF 






STO 




RN12B 




80E 10960 












0B6C 


1087 






SLT 




7 




80E1097C 


0BA5 


1 


7400 


1626 




0B6D 


1801 






SRA 




1 


DEVELOP 


80E10980 


0BA7 





7047 






0B6E 


1081 






SLT 




1 


DIAGNOSTIC 


80E10990 












0B6F 


4820 






BSC 




Z 


DSW SHOULD 


80E11000 


0BA8 





6600 


OFFC 




0B70 


C10C 






LD 


1 


H8000-T 


BE WORD 


80E11010 


OBAA 





6700 


4000 




0B71 


1805 






SRA 




5 




80E11020 












0B72 


E90C 






OR 


1 


H8000-T 




80E11030 


OBAC 





1083 






0B73 


1801 






SRA 




1 




80E11040 


OBAD 





100 E 






0B74 


E816 






OR 




RN12B 




80E11050 


OBAE 


1 


4C28 


OBBF 




0B75 


D015 




* 


STO 




RN12B 




80E11060 
80E11070 


OBBO 


1 


4C20 


0BC2 




OB 76 


ClOC 






LD 


1 


H8000-T 


SET DATA 


80E11080 












0B77 


1803 






SRA 




3 


character 


80E11090 


0BB2 





1C87 






0B7S 


E9B3 






OR 


1 


LOCK-T 


IN TRANSMIT 


80E11100 


0BB3 





1801 






0B79 1 


D400 


16AE 


* 


STO 


L 


TBL4 


table 


80E11110 
80E11120 


0BB4 
0BB5 




1 


1081 
4C18 


0BC8 




0B7B 1 


7401 


1629 


* 


MDX 


L 


LOCK.l 


INCRE VARIABLE DATA 


80E11130 
80E11140 


0BB7 





1881 






0B7D 1 


4400 


1274 




BSI 


L 


XMRCV 


INITIALIZE CA TO TRANSMIT 


80E11150 


0BB8 





1801 






0B7F 


2006 






DC 




/2006 


TABLE AND RETRIEVE <=IRST 


80EU16C 


0BB9 





108D 






OBSO I 


16AE 






DC 




TBL4 


6 CHARACTERS FROM 


80E11170 


OBBA 


1 


4C18 


0BC5 




0B81 


0006 




* 


DC 




6 


RECEIVE DATA LINE 


80E11180 
80E11190 


OBBC 





6700 


4000 




OB82 1 


4400 


14BD 


* 


BSI 


L 


SENSE 


SENSE DSWS 


80E11200 
30E11210 


OBBE 





7009 






0884 


09A2 




* 


XIO 


1 


CLEAR-T 


CLEAR CA 


80E11220 
80E11230 


OBBF 
0BC1 






6700 
7006 


4400 




0B85 1 


4400 


14CC 




BSI 


L 


CKDSW 


CHECK DSWS 


80E1I240 












OB 87 


0080 






DC 




/0080 




80E11250 


0BC2 





6700 


4C00 




0B88 


0000 






DC 




/OOOO 




80E11260 


0BC4 





7003 






0B89 


OFFB 






DC 




/OFFB 




80E11270 












0B8A 


FOOO 






DC 




/FOOO 




80E11280 


0BC5 





6700 


6200 




0B8B 


0000 




RN12B 


DC 




*_* 




80E11290 


0BC7 





72FF 






0B8C 


81FF 




* 


DC 




/81FF 




80E11300 
80E11310 


0BC8 





6A14 






0B80 1 


4400 


150C 




BSI 


L 


CKDAT 


CHECK 


80E11320 


0BC9 





6B15 






0B8F 1 


1C93 






DC 




SRCTB 


RETRIEVED DATA 


80E11330 












0B90 1 


16 AB 






DC 




TBL3 




80E11340 


OBCA 





ClOC 






0B91 


0006 




* 


DC 




6 




80E11350 
80E1136C 


OBCB 
OBCC 






1803 
E9B3 






0B92 I 


4400 


15A0 




BSI 


L 


CKINT 


CHECK FOR 


80E11370 


OBCD 


1 


D400 


16AE 




OB 94 


0000 




* 


DC 







UNEXPECTED INTRPT 


80E11380 
80E11390 


OBCF 


1 


7401 


1629 




08 95 


C1B3 






LD 


1 


LOCK-T 


CHECK FOR 


80E11400 












0B96 


1008 






SLA 




8 


END OF 


80E1141C 


0BD1 


1 


4400 


1274 




OB 97 


4818 






BSC 




♦ - 


ROUTINE 


80E11420 


0BD3 





2006 






0B98 


D1B3 




RN12C 


STO 


1 


LOCK-T 


CLEAR RTN LOCK IF END 


80E11430 


0BD4 


1 


16AE 






0B99 1 


4C00 


088F 


* 


BSC 


L 


CNTRL 


RETURN TO CONTROL SU8RTN 


80E11440 
80E11450 


0BD5 





0007 






0B9B 


1010 




RN12D 


SLA 




16 




80E11460 


0BD6 


1 


4400 


14BD 




0B9C 1 


D400 


0803 




STO 


L 


swi 


RESET ROUTINE SELECTION 


80E11470 












0B9E 


70F9 




* 
* 


MDX 




RN12C 




80E11480 
80E11490 
80E11500 


0BD8 
0BD9 




1 


09A2 
4400 


14CC 










#*******#******************♦*********************** 


80E11510 


OBDB 





0080 












* 










80E11520 


OBDC 





0000 












* 






TEST ROUTINf 13 


80E11530 


OBDD 





0000 












* 










80E11540 


OBOE 





FOOO 












********#****#*************#*********************** 


80E11550 


OBDF 





0000 












* 










80E11560 


OBEO 





81FF 






0B9F 


1010 




RTN13 


SLA 




16 


INITIALIZE WITH CHAR /OO 


80E11570 










OATE 


14N0V69 30JAN70 












PROS ID 080 E-0 


JATE 14N0V69 30JAN70 


EC NO. 


431319 431319A 












PAGE 9 


cC NQ. 431319 431319A 



* 
RN13A 

* 
RN13B 

RN13C 

* 
RN13D 



* 
* 
* 

RN13E 
RN13F 

* 



NOP 

AND 
STO 

BSI 

MDX 
MDX 

LDX 
LDX 

SLT 
SLA 
BSC 

BSC 

SLT 
SRA 
SLT 
BSC 

SRT 
SRA 
SLT 

BSC 

LDX 
MDX 

LDX 

MDX 

LDX 
MDX 

LDX 

MDX 

STX 
STX 

LD 
SRA 
OR 
STO 

MDX 

BSI 
DC 
DC 
DC 

BSI 

XIO 

BSI 

DC 

DC 

DC 

DC 

DC 

DC 



1 HOOFF-T 
1 LOCK-T 

L DCODE 

L A SC 1 1 
RN13H 

L2 /OFFC 
L3 /4000 



3 

14 

RN13A.Z+ 

RN13B.Z 



7 
1 
1 
L RN13D.+- 



1 
1 

13 
L RN13Ci+- 

L3 /4000 
RN13D 

L3 /4400 
RN13D 

L3 /4C00 
RN13D 

L3 /6200 
2 -1 

2 RN13E 

3 RN13F 

1 H8000-T 

3 
1 LOCK-T 
L TBL4 



LOCK.l 

XMRCV 
/2006 
TBL4 

7 

. SENSE 
1 CLEAR-T 



L CKDSW 
/0080 
/OOOO 
*-* 

/FOOO 

*-* 

/81FF 



SAVE VARIABLE DATA 

OECODE CONTROL CHARACTERS 

CHECK ASCII CODE IND 
BR IF USASCII CODE 

SET UP BYTE COUNT AND 
DIAG DSW FOR NON-CONTROL 



BRANCH IF SOH 
BRANCH IF STX 

BR IF NOT CONTROL CHAR 

BRANCH IF LONG END 

SET DIAG DSW FOR SHORT 
END CHAR AND BRANCH 

SET DIAG DSW FOR SOH 
CHAR AND BRANCH 

SET DIAG DSW FOR STX 
CHAR ANO BRANCH 

SET UP DIAG ANO BYTE 
COUNT DSW FOR LONG END 

STO EXPECTED BYTE COUNT 
AND DIAG OSW'S 

SET VARIABLE 
DATA CHARACTER 
IN TRANSMIT 
TABLE 

INCRE VARIABLE DATA 

INITIALIZE CA TO TRANSMIT 
TABLE AND RETRIEVE FIRST 
7 CHARACTERS FROM 
RECEIVE DATA LINE 

SENSE DSWS 

CLEAR CA 

CHECK DSWS 



80E11580 
80E11590 
80E11600 
80E11610 
80E11620 
80E11S30 
80E11640 
80E11650 
80E11660 
80E11670 
80EH680 
80E11690 
80E11700 
80E11710 
80E11720 
80E11730 
80E11740 
80E11750 
80E11760 
80E11770 
80E11780 
80E11790 
80E11800 
80E11810 
80E11820 
80E11830 
80E11840 
80E11850 
80E11860 
30E11870 
80E11880 
80E11890 
80E11900 
80E11910 
80E11920 
80E11930 
80E11940 
80E11950 
80E11960 
80E11970 
80E11980 
80E11990 
80E12000 
80E12010 
80E12020 
80E12030 
80E12040 
80E12050 
80E120 60 
80E12070 
80E12080 
80E12090 
80E12100 
80E12110 
80E12120 
80E12130 
80E12140 
80E12150 
80E12160 
80E12170 
80E12180 
80E12190 
80E12200 
80E12210 
80E12220 
80E12230 
80E12240 
80E12250 



PROG ID 
PAGE 



080E-0 
9A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
fCA WRAP AROUND TEST 
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JBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
iCA WRAP AROUND TEST 



PART NO. 2279476 
PAGE 10A 



iMTE 
EC NO. 



0BE1 1 4400 150C 




BSI 


L 


CKDAT 


CHECK 


80E12260 




0BE3 1 1C93 




DC 




SRCTB 


RETRIEVED DATA 


80E12270 




0BE4 1 16AB 




DC 




TBL3 




80E12280 




0BE5 0008 




DC 




8 




80E12290 




06E6 1 4400 15A0 




BSI 


L 


CKINT 


CHECK FOR 


80E12300 




0BE8 0000 


* 


DC 







UNEXPECTED INTRPT 


80E12310 
80E12320 




08E9 C1B3 




LD 


1 


LOCK-T 


CHECK FOR 


80E12330 




OBEA 1008 




SLA 




8 


END OF 


80E12340 




OBEB 4818 




BSC 




♦ - 


ROUTINE 


80E12350 




OBEC D1B3 


RN13G 


STO 


1 


LOCK-T 


CLEAR RTN LOCK IND IF END 


80E12360 




OBED 1 4C00 088F 


* 


BSC 


L 


CNTRL 


RETURN TO CONTROL SUBRTN 


80E12370 
80E12380 




OBEF 1010 


RN13H 


SLA 




16 




80E12390 




OBFO 1 D400 0803 




STO 


L 


SW1 


RESET ROUTINE SELECTION 


SOE 12400 




0BF2 70F9 


* 
* 


MDX 




RN13G 




80E12410 
80E12420 
80E 12430 






*************************************************** 


80E12440 






* 










80E12450 






* 






TEST ROUTINE 14 


80E12460 






* 










80E12470 






*************************************************** 


80E12480 






* 










80E12490 




0BF3 1000 


RTN14 

* 


NOP 








80E12500 
80E12510 




0BF4 1 7400 1626 




MDX 


L 


ASCII 




80E12520 




0BF6 701A 


* 


MDX 




RN14A 


BR IF USASCII CODE 


80E12530 
80E12540 




0BF7 1 4400 1274 




BSI 


L 


XMRCV 


INITIALIZE CA TO TRANSMIT 


80E12550 




0BF9 2008 




DC 




/2008 


TABLE AND RETRIEVE FIRST 


80E12560 




OBFA 1 1784 




DC 




TTBL1 


11 CHARACTERS 


80E12570 




OBFB OOOB 


* 


DC 




11 


TRANSMITTED 


80E12580 
80E12590 




OBFC 1 4400 14B0 


* 


BSI 


L 


SENSE 




80E12600 
80E12610 




OBFE 09A2 


* 


XIO 


1 


CLEAR-T 




80E12620 
80E12630 




OBFF 1 4400 150C 




BSI 


L 


CKDAT 


COMPARE DATA 


80E12640 




0C01 1 1C93 




DC 




SRCTB 


FOR INSERTED 


80E12650 




0C02 1 1788 




DC 




TTBL2 


OLE CHARACTER 


80E12660 




0CO3 OOOC 


* 


DC 




12 




80E12670 
80E12680 




0C04 1 4400 14CC 




BSI 


L 


CKDSW 


CHECK DSW'S 


80E12690 




0C06 0080 




DC 




/0080 




80E12700 




0C07 0000 




DC 




/OOOO 




80E12710 




0C08 OFFD 




DC 




/OFFO 




80E127 20 




0C09 FOOO 




DC 




/FOOO 




80E12730 




OCOA 4C00 




DC 




/4C00 




80E12740 




OCOB 81FF 


* 


DC 




/81FF 




80E12750 
80E12760 




OCOC 1 4400 15A0 




BSI 


L 


CKINT 


CHECK FOR 


80E12770 




OCOE 0000 


* 


DC 







UNEXPECTED INTERRUPT 


80E12780 
80E12790 




OCOF 1 4C00 088F 


* 


BSC 


L 


CNTRL 


RETURN TO CONTROL 


8OE128O0 
80E12810 




0C11 1010 


RN14JJ 


l SLA 




16 




80E12820 




0C12 1 D400 0803 


* 


STO 


L 


SW1 


RESET INVALID RTN SELECT 


80E12830 
80E12840 




0C14 1 4C00 088F 


* 
* 


BSC 


L 


CNTRL 


EXIT ROUTINE 


80E128 50 
80E12860 
80E12870 






*************************************************** 


• 80E12880 






* 










80E12890 






* 






TEST ROUTINE 15 


80E12900 






* 










80E12910 






*************************************************** 


' 80E12920 






* 










80E12930 




14N0V69 30JAN70 
431319 431319A 












PROG ID 
PAGE 


080E-0 
10 



0C16 C107 
0C17 1000 

0C18 E109 
0C19 01B3 

0C1A E906 
0C1B 1 0400 1B03 

0C1D CIB3 
0C1E 9107 
0C1F 1 4C10 0C27 

0C21 1010 

0C22 D1B3 

0C23 1 D400 0805 

0C25 1 4C00 088F 

0C27 8119 
0C28 F109 
0C29 D01B 

0C2A 1 7401 1629 



RTN15 LD 
NOP 

* 

AND 
STO 



0C2C 
0C2E 
0C30 
0C32 
0C33 
0C35 
0C36 



6700 FED4 
C400 16AF 
0700 1C31 
C12D 

D700 IC30 
7302 
70F7 



0C37 1 6700 0C30 
0C39 1 6F00 1274 
0C3B 1 4C00 134F 

0C30 0200 

0C3E 1 4400 14BD 

0C40 09A2 



0C41 
0C43 



4400 14CC 
0080 



0C44 0000 

0C45 0000 

0C46 FOOO 

0C47 4000 

0C48 81FF 

0C49 1 4400 15A0 

0C4B 0000 

0C4C C1B3 

0C4D 1004 

0C4E 4818 

0C4F D1B3 

0C50 1 4C18 088F 

0C52 1804 

0C53 8107 

0C54 D1B3 

0C55 1 4C00 088F 



OR 
STO 

* 

LD 

S 

BSC 

* 

SLA 
STO 
STO 
BSC 

* 

RT15A A 

EOR 
STO 

* 

MDX 

* 

LDX 

RT15B LD 
STO 
LD 
STO 
MDX 
MDX 

* 

LDX 
STX 
BSC 

* 

RT15C DC 

* 

BSI 

* 

XIO 

* 

BSI 

DC 

DC 

RT15D DC 
DC 
DC 
DC 

* 

BSI 
DC 

* 

LD 

SLA 

BSC 

STO 

BSC 

* 

SRA 
A 

STO 
BSC 
* 
* 

********** 
* 
* 



I H01FF-T 



1 HOFFF-T 
1 LOCK-T 

1 H2000-T 
L XMRCT 

I LOCK-T 

1 H01FF-T 

L RT15A,- 

16 
1 LOCK-T 
L SW3 
L CNTRL 

1 D3-T 
1 HOFFF-T 
RT15D 

L L0CK,1 

L3 -300 

L TBL4+1 

L3 XMRCT+302 

1 SYN-T 

L3 XMRCT+301 

3 2 

RT15B 

L3 RT15C 
L3 XMRCV 
L CAIO 

/0200 

L SENSE 

1 CLEAR-T 

L CKDSW 
/0080 
/OOOO 
*-* 
/FOOO 
/4000 
/81FF 

L CKINT 


1 LOCK-T 

4 

+- 
1 LOCK-T 
L CNTRL, +- 



1 H01FF-T 
1 LOCK-T 
L CNTRL 



FETCH INITIAL BYTE COUNT 



SAVE CURRENT BYTE COUNT 

SET XMIT BIT 

STORE XMIT BYTE COUNT 

CHECK FOR OPERATOR 

SELECTION OF INVALID CNT 
BR IF COUNT OK 



clear variable data ind 
clear function 3 
return to control 

SET UP . 
BYTE COUNT THAT 
SHOULD BE SENSED 

INCRE VARIABLE DATA IND 

SET UP 
TRANSMIT 
DATA 



SENSE DSW'S 
CLEAR CA 
CHECK DSW'S 



CHECK FOR 
UNEXPECTED INTERRUPT 

CHECK FOR 
END OF ROUTINE 

CLEAR VARIABLE IF RTN END 
GO TO CONTROL IF END RTN 

INCREMENT 
VARIABLE XMIT 
BYTE COUNT BY 511 
GO TO CONTROL 



***************************************** 
TEST ROUTINE 16 



80E12940 

80E12950 

80E12960 

80E12970 

80E12980 

80E12990 

80E13000 

80E13010 

80E13020 

80E13030 

80E13040 

80E13050 

80E13060 

80E13070 

80E13080 

80E13090 

80E13100 

80E13110 

80E13120 

80E13130 

80E13140 

80E13150 

80E 13160 

80E13170 

80E13180 

80E13190 

80E13200 

80E13210 

80E13220 

80E13230 

80E13240 

80E13250 

80E13260 

80E13270 

80E13280 

80E13290 

80E13300 

80E13310 

80E13320 

80E13330 

80E 13340 

80E13350 

80E13360 

80E13370 

80E13380 

80E13390 

80E13400 

80E13410 

80E13420 

80E13430 

80E13440 

80E13450 

80E13460 

80E13470 

80E13480 

80E13490 

80E13500 

80E13510 

80E13520 

80E13530 

80E13540 

80E13550 

80E13560 

80E13570 

80E13580 

80E13590 

80E13600 

80E13610 



JATE 
tC N3. 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



080E-0 
10A 



I II I) II I 



I II II II II II 



I I 



II 



I III 



II II II I 



I ( 
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*************************************************** 



0C57 





1000 




RTN16 

* 


NOP 








0C58 


1 


4400 


1274 




BSI 


L 


XMRCV 


INITIALIZE CA TO 


0C5A 





E004 






DC 




/E004 


TRANSMIT TABLE 


0C5B 


1 


16C3 






DC 




TBL7+3 


CHAINED TO SECOND 


0C5C 





2008 






DC 




/2008 


TRANSMIT TABLE 


0C5D 


1 


16C5 






DC 




TBL7+5 




0C5E 





OOOB 




* 


DC 




11 




0C5F 


1 


4400 


14BD 


* 


BSI 


L 


SENSE 


SENSE DSH'S 


0C61 





09A2 




* 


XIO 


1 


CLEAR-T 


CLEAR CA 


0C62 


1 


4400 


150C 




BSI 


L 


CKDAT 


CHECK 


0C64 


1 


1C93 






DC 




SRCTB 


RETRIEVEO 


0C65 


1 


16C0 






DC 




TBL7 


XMIT DATA 


0C66 





OOOC 




* 


DC 




12 




0C67 


1 


4400 


15A0 




BSI 


L 


CKINT 


CHECK FOR 


0C69 





0000 




* 


DC 







UNEXPECTED INTERRUPT 


0C6A 


1 


4400 


14CC 


BSI 


L 


CKDSW 


CHECK DSW'S 


0C6C 





0080 






DC 




/0080 




0C6D 





0000 






DC 




/OOOO 




0C6E 





OFFA 






DC 




/OFFA 




0C6F 





FOOO 






DC 




/FOOO 




0C70 





4000 






DC 




/4000 




0C71 





8 IFF 




* 


DC 




/81FF 




0C72 


1 


4C00 


088 F 


* 
* 


BSC 


L 


CNTRL 





0C74 1000 

0C75 1 4400 1274 
0C77 E004 
0C78 1 16A7 
0C79 0000 
0C7A 1 16A3 
0C7B 0000 

0C7C 1 4400 081D 
0C7E 09C4 

0C7F 1 4400 15A0 
0C81 0000 

0C82 1 4400 081D 
0C84 02BC 

0C85 09A2 



*************************************************** 

* 

* TEST ROUTINE 17 

* 

*************************************************** 

* 

RTN17 NOP 

* 



0C86 
0C88 



4400 15A0 
2080 



0C89 0000 
0C8A 0000 







0C8B 
0C8C 



FFFF 
4000 



0C8D A1FF 



BSI 
DC 

DC 
DC 
DC 
DC 

BSI 

DC 

BSI 
DC 

BSI 

DC 

XIO 

BSI 

DC 
DC 
DC 
DC 
DC 
DC 



. XMRCV 
/E004 
TBL2 


SYN 


DEL AY 
2 500 

. CKINT 


. DELAY 
700 

1 CLEAR-T 

. CKINT 
/2080 
/OOOO 
/OOOO 
/FFFF 
/4000 
/A1FF 



INITIALIZE CA TO XMIT TBL 
AND CHAIN TO 2ND TBL 
WHICH CONTAINS TWO 
SYN CHARACTERS AND 
IS CHAINED BACK 
TO ITSELF 

DELAY 2.5 SECONDS 



CHECK FOR 
UNEXPECTED INTERRUPT 

DELAY .7 SECONDS 



CLEAR CA 

CHECK FOR 
TIMEOUT 
INTERRUPT 



LiATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



80E1362C 
80E13630 
80E13640 
80E13650 
80E13660 
80E13670 
80E13680 
80E13690 
80E13700 
80E13710 
80E13720 
80E13730 
80E13740 
80E1375C 
80E13760 
80E13770 
80E13780 
80E13790 
80E13800 
30E13810 
80E13820 
30E13830 
80E13840 
80E13850 
80E13860 
80E13870 
80E13880 
80E13890 
80E13900 
80E13910 
80E13920 
80E13930 
80E13940 
80E13950 
80E13960 
80E 13970 
80E13980 
80E13990 
80E14000 
80E14310 
80E14020 
80E140 30 
80E14040 
80E14050 
80E14060 
80E14370 
80E14080 
80E14090 
80E14100 
80E14110 
80E14120 
80E14130 
80E14140 
80E14150 
80E14160 
80E14170 
80E14180 
80E14190 
80E14200 
80E14210 
80E14220 
80E14230 
80E14240 
80E14250 
80E14260 
80E14270 
30E14280 
80E14290 



PROG ID 
PAGE 



080E-0 
11 



J ATE 

EC NO. 







* 










80E14300 




0C8E 1 


4C00 088F 


* 
* 


BSC 


L 


CNTRL 


GO TO CONTROL 


80E14310 
80E14320 
80E14330 








*************************************************** 


80E14340 








* 










80E14350 








* 






TEST ROUTINE 18 


80E14360 








* 










80E14370 








*************************************************** 


80E14380 








* 










80E14390 




0C90 


1000 


RTN18 

* 


NOP 








80E14400 
80E14410 




0C91 1 


4400 1274 




BSI 


L 


XMRCV 


INITIALIZE CA TO XMIT TBL 


80E14420 




0C93 


E004 




DC 




/E004 


AND CHAIN TO 2ND TBL 


80E14430 




0C94 1 


16A7 




DC 




TBL2 


WHICH CONTAINS TWO 


80E14440 




0C95 


OOOO 




DC 







/7F CHARACTERS AND 


80E14450 




0C96 1 


16AF 




DC 




TBL4+1 


IS CHAINED BACK 


80E14460 




0C97 


OOOO 




DC 







TO ITSELF 


80E 14470 




0C98 1 


4400 081 D 


* 


BSI 


L 


DELAY 


DELAY 4 SECONDS 


80E 14480 
80E14490 




0C9A 


OFAO 


♦ 


DC 




4000 




80E14500 
80E14510 




0C9B 


09A2 


* 


XIO 


1 


CLEAR-T 


CLEAR CA 


80E14520 
80E14530 




0C9C 1 


4400 15A0 




BSI 


L 


CKINT 


CHECK FOR 


80E14540 




0C9E 


OOOO 


* 


DC 







UNEXPECTED INTERRUPT 


80E14550 
80E 14560 




0C9F 1 


4C00 088F 


* 
* 


BSC 


L 


CNTRL 


GO TO CONTROL 


80E14570 
80E14580 
80E14590 








*************************************************** 


80E14600 








* 










80E14610 








* 






TEST ROUTINE 19 


80E14620 








* 










80E14630 








*************************************************** 


80E14640 








* 










80E14650 




0CA1 


1000 


RTN19 

* 


NOP 








80E14660 
80E14670 




0CA2 1 


7400 1626 




MDX 


L 


ASCII 




80E 14680 




0CA4 


7018 


* 


MDX 




RN19A 


BR IF USASCII CODE 


80E 14690 
80E14700 




0CA5 1 


4400 1274 




BSI 


L 


XMRCV 


INITIALIZE CA TO 


80E14710 




0CA7 


E006 




DC 




/E006 


THREE CHAINED 


80E14720 




0CA8 1 


1797 




DC 




TTBL5 


TRANSMIT TABLES 


80E 14730 




OCA 9 


E008 




DC 




/E008 




80E 14740 




OCAA 1 


1798 




DC 




TTBL5+1 




80E14750 




OCAB 


OOOO 




DC 









80E14760 




OCAC 1 


16AF 




DC 




TBL4+1 




80E 14770 




OCAD 


OOOO 


* 


DC 









80E14780 
80E14790 




OCAE 1 


6700 IB07 




LDX 


L3 


XMRCT+4 


MODIFY CHAIN ADDRESSES 


80E14800 




OCBO 1 


6F00 1B0E 




STX 


L3 


XMRCT+11 


TO LOOP 2ND TBL BACK 


80E14810 




0CB2 1 


6FO0 1B0C 


* 


STX 


L3 


XMRCT+9 


TO ITSELF 


80E14820 
80E14830 




0CB4 1 


4400 081D 




BSI 


L 


DELAY 


DELAY 4 SECONDS 


80E14840 




0CB6 


OFAO 


* 


DC 




4000 




80E14850 
80E14860 




0CB7 


09A2 


* 


XIO 


1 


CLEAR-T 


CLEAR CA 


80E14870 
80E14880 




0CB8 1 


4400 15A0 




BSI 


L 


CKINT 


CHECK FOR 


80E14890 




OCBA 


OOOO 


* 


DC 







UNEXPECTED INTERRUPT 


80E14900 
80E14910 




OCBB 1 


4C00 088F 


* 


BSC 


L 


CNTRL 


RETURN TO CONTROL 


80E14920 
80E 14930 




OCBD 


1010 


RN19A 


SLA 




16 




80E 14940 




OCBE 1 


0400 0803 




STO 


L 


SW1 


RESET INVALID RTN SELECT 


80E14950 




OCCO 1 


4C00 088F 


* 


BSC 


L 


CNTRL 


RETURN TO CONTROL 


80E 14960 
80E14970 




14N0V69 30JAN70 












PROG ID 


080E-3 


431319 


I 431319A 












PAGE 


11A 
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0CC2 C127 
0CC3 1000 

0CC4 1888 

0CC5 C10A 

0CC6 1088 

0CC7 1 D400 16CE 

0CC9 1 4400 141A 

OCCB 1089 

OCCC 100A 

OCCD 1 4C18 0014 

OCCF 1 C400 16CE 

OCDl E104 

0CD2 8117 

0CD3 D1B3 

0CD4 1 4400 1274 

0CD6 2008 

0CD7 1 16CC 

0CD8 OOOF 

0CD9 *1 4400 14BD 

OCOB 09A2 

OCOC 1 C400 16CE 

OCOE 1 4400 141A 

OCEO 1088 

0CE1 1000 

0CE2 1 7400 1626 
0CE4 7032 

0CE5 1 4C20 OCED 

0CE7 1 4400 1458 
0CE9 1 16CC 
OCEA 0005 

OCEB 1 D400 16CF 

OCED 1 4400 150C 
OCEF 1 1C93 
OCFO 1 16C9 
OCFl OOOE 

0CF2 1 4400 14CC 
0CF4 0080 
0CF5 0000 
0CF6 OFFF 
0CF7 FOOO 
0CF8 4400 
0CF9 91FF 

OCFA 1 4400 15A0 
OCFC 0880 
OCFO 0400 
OCFE OFFF 
OCFF FOOO 



*************************************************** 

* 

* TEST ROUTINE 1A 

*************************************************** 
* 

1 ETB-T LOAD 1ST END CHAR 



RTN1A LD 

NOP 

SRT 
LD 
SLT 
STO 

BSI 
SLT 
SLA 
BSC 

LD 

AND 

A 

STO 



BSI 

DC 
DC 
DC 

BSI 

XIO 

LD 
BSI 
SLT 
SLA 

MOX 

MUX 

BSC 

BSI 

DC 

DC 

STO 



RN1A1 BSI 
DC 
OC 
DC 

* 

BSI 

DC 

DC 

DC 

DC 

DC 

DC 

* 

BSI 

DC 

DC 

DC 

DC 



8 
1 H00 7F-T 
8 
TBL8^5 

DCOOE 

9 

10 

RN1A5.+- 

TBL8+5 
1 HOOFF-T 
1 Dl-T 
1 LOCK-T 

XMRCV 
/2008 
TBL8+3 
15 



L SENSE 
1 CLEAR-T 



TBL8+5 

DCODE 

8 

13 

ASCII 
RN1A6 

RN1A1.Z 

CALBC 

TBL8+3 

5 

TBL8+6 

CKDAT 
SRCTB 
TBL8 
14 

CKDSW 
/0080 
/OOOO 
/OFFF 
/FOOO 
/4400 
/91FF 

CKINT 
/0880 
/0400 
/OFFF 
/FOOO 



STORE 
CHARACTER 
IN TABLE 



BR IF NOT END CHAR 



SET VARIABLE 
DATA IND 

INITIALIZE CA TO TRANSMIT 
TABLE AND RETREIVE 
TRANSMITTED DATA 



SENSE DSWS 

CLEAR CA 

PICK UP 
CONTROL CHARACTER 



BR IF USASCII COOE 

BR IF SHORT END 

CALCULATE 
BCC 

SHOULD BE 

STORE IN DATA TABLE 
COMPARE DATA 



CHECK DSW'S 



CHECK FOR 
TABLE COMPLETE 
INTERRUPT 



80E149S0 
80E 14990 
80E15000 
80E15010 
80E15020 
80E15030 
80E15040 
80E15050 
80E15060 
80E15070 
80E15080 
80E15090 
80E15110 
80E15H0 
80E15120 
80E15130 
80E15140 
80E15150 
80E15160 
80E15170 
80E15180 
80E15190 
80E15200 
80E15210 
80E15220 
80E15230 
80E15240 
80E15250 
80E15260 
80E15270 
80E15280 
80E15290 
80E15300 
80E15310 
80E15320 
80E15330 
80E15340 
80E15350 
80E15360 
80E15370 
80E15380 
80E15390 
80E15400 
80E15410 
80E15420 
80E15430 
80E 15440 
80E15450 
80E15460 
80E15470 
80E15480 
80E15490 
80E15500 
80F15510 
80E15520 
80E15530 
80E15540 
80E15550 
80E15560 
80E15570 
80E15580 
80E15590 
80E15600 
80E15610 
80E15620 
80E15630 
80E15640 
80E15650 



ODOO 
0001 






4400 
91FF 




* 


DC 
DC 




/4400 
/91FF 


0002 
0004 


1 
1 


C400 
4400 


16CE 
141A 


£ 


LD 
BSI 


L 

L 


TBL8+5 
DCOOE 


0006 
0D07 







1C92 
63F8 




£ 


SLT 
LOX 


3 


18 
-5 


0D08 
0D09 




1 


1001 
4C10 


OOOE 


RN1A2 

* 

* 


SLA 
BSC 


L 


1 
RN1A3,- 


OOOB 
ODOD 


1 




C700 
7003 


16A3 


LD 
MDX 


L3 


ITB+1 
RN1A4 


OOOE 
ODOF 






7301 
70F8 




RN1A3 


MDX 
MDX 


3 


1 
RN1A2 


0D10 
0011 
0012 





1 


1010 
D1B3 
4C00 


088F 


RN1A4 


SLA 
STO 
BSC 


1 

L 


16 

LOCK-T 

CNTRL 


0014 
0D16 


1 




D400 
70FA 


0805 


RN1A5 

* 
RN1A6 


STO 

MDX 


L 


SW3 
RN1A4 


0017 


I 


4C18 


OOIE 


BSC 


L 


RNlA7t«~ 


0D19 
001 A 
0D1C 
001D 




1 





C108 
ECOO 
0159 
70CF 


1C99 


£ 


LD 
OR 
STO 

MDX 


1 
L 
1 


HOFOO-T 
SRCTB+6 
TBL8+6-T 
RN1A1 


0D1E 
ODIF 
0D21 
0022 




1 





1081 
C400 
E104 
0159 


1C99 


RN1A7 

* 


SLT 

LD 

AND 

STO 


L 

1 
1 


1 

SRCTB+6 
HOOFF-T 
TBL8+6-T 


0D23 
0D25 
0026 


1 
1 




4400 
16CC 
0005 


1458 


* 


BSI 
DC 

DC 


L 


CALBC 

TBL8+3 

5 


0027 
002 8 
0029 







E114 
E959 
70C1 




* 
* 


AND 

OR 

MOX 


1 
1 


HFFOO-T 

TBL8+6-T 

RN1A1-2 



0D2A C127 
002B 1000 

0D2C 1888 
0D2D C124 
0D2E 1088 
0D2F 1 0400 17A1 

0D31 1 4400 141A 

0033 1089 

0034 100A 

0035 1 4C18 0D80 

0D37 1 7400 1626 
0D39 7049 



FETCH LAST END CHAR USED 
BUILD CONT CHAR OECODE WD 



CK DECODE BIT 

BR IF BIT NOT YET FOUNO 

FETCH NEXT END CHAR 
GO TO SAVE CHARACTER 

POINT TO NEXT END CHAR 
GO TO CK NEXT DECODE BIT 

RESET VAR IND IF RTN END 
SET/RESET VARIABLE IND 
GO TO CONTROL 

RESET INVALID SW3 
GO TO CONTROL 

BR IF LONG END 



STORE PADS IN 

EXPECTED DATA TABLE 
BRANCH 

SET UP 



CALCULATE BCC 



COMBINE BCC WITH PAD 
BRANCH 



*************************************************** 

* 

* TEST ROUTINE IB 

* 

*************************************************** 

* 

RTN1B LD 1 ETB-T LOAD 1ST END CHAR 

NOP 
* 

SRT 

LD 

SLT 

STO 



BSI 
SLT 
SLA 
BSC 

MDX 

MDX 



8 
1 DLE-T 
8 
TTBL6+5 

DCODE 

9 

10 

RN1B5.+- 

ASCII 
RN1B6 



STORE 
CHARACTER 
IN TABLE 



BR IF NOT END CHAR 
BR IF USASCII CODE 



80E15660 

80E15670 

80E15680 

80E15690 

80E15700 

80E15710 

80E 1572 

80E15730 

80E15740 

80E15750 

80E15760 

80E15770 

80E15780 

80E15790 

80E15800 

80E15810 

80E15820 

80E15830 

80E15840 

80E15850 

80E15860 

80E15870 

80E15880 

80E15890 

80E15930 

80E15910 

80E15920 

80E15930 

80E15940 

80E15950 

80E15960 

80E15970 

80E15980 

80E15990 

80E16000 

80E16010 

80E16020 

80E16030 

80E16040 

80E16050 

80E16060 

80E16070 

80E16080 

80E16090 

80E16100 

80E16110 

80E16120 

80E16130 

80E16140 

80E16150 

80E16160 

80E16170 

80E16180 

80E16190 

80E16200 

80E16210 

80E16220 

80E16230 

80E16240 

80E16250 

80E16260 

80E16270 

80E16280 

80E16290 

80E163 00 

80E16310 

80E16320 

80E16330 



l)ATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



080 E-0 
12 



JATE 

cC NO. 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



08PE-0 
12A 



I II 



I II II I 
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0D3A 1 C400 17A1 

0D3C E104 

0D3D 8117 

0D3E D1B3 

0D3F 1 C400 17A3 

0D41 1 D400 17A2 

0043 1 4400 1274 

0045 2008 

0D46 1 179F 

0D47 000 F 

0048 1 4400 14BD 

0D4A 09A2 

0D4B 1 C400 17A1 

0D4D 1 4400 141 A 

0D4F 1C88 

0050 100D 

005 1 1 4C20 0059 

0D53 1 4400 1458 

0D55 1 179F 

0D56 0002 

0057 1 D400 17A2 

0059 1 4400 150C 

005B 1 1C93 

0D5C 1 179C 

0D5D 0010 



0D5E 
0060 
0061 
0062 
0063 
0064 
006 5 



4400 14CC 

0080 

0000 

OFFF 

FOOO 

45FF 

9800 



0D66 1 4400 15A0 

0068 0880 

0069 0000 
006A OFFF 
0D6B FOOO 
006C 45FF 
0060 9800 

0D6E 1 C400 17 A 1 

0070 1 4400 141A 

007 2 1092 

0073 63FB 

0D74 1001 
0075 1 4C10 0D7A 

0077 1 C700 16A3 
0079 7003 

0D7A 7301 
007B 70F8 

007C 1010 
0070 01B3 
007E 1 4C00 088F 



LD 

ANO 

A 

STO 

LD 
STO 

BSI 

DC 
DC 
DC 

BSI 

XIO 

LD 
BSI 
SLT 
SLA 

BSC 

BSI 

DC 
DC 

STO 



RNJB1 BSI 
DC 
DC 
DC 

* 

BSI 

DC 

DC 

DC 

DC 

DC 

DC 

BSI 

DC 
DC 
DC 
DC 
DC 
DC 
* 

LD 
BSI 

SLT 
LOX 

RN1B2 SLA 
BSC 

* 

LD 
MDX 

* 

RN1B3 MOX 
MOX 

SLA 

RN1B4 STO 

BSC 



L TTBL6+5 

I HOOFF-T 

1 Dl-T 

1 LOCK-T 

L TTBL6+7 
L TTBL6+6 

L XMRCV 
/2008 
TTBL6+3 
15 

L SENSE 

1 CLEAR-T 



TTBL6+5 

DCODE 

8 

13 

RN1B1,Z 

CALBC 

TTBL6+3 

2 

TTBL6+6 



L CKDAT 
SRCTB 
TTBL6 
16 

L CKOSM 
/0080 
/OOOO 
/OFFF 
/FOOO 
/45FF 
/9800 

L CKINT 
/0880 
/OOOO 
/OFFF 
/FOOO 
/45FF 
/9800 



TTBL6+5 
OCODE 



18 
3 -5 



L RN1B3,- 

L3 ITB+1 
RN1B4 

3 1 

RN1B2 

16 
1 LOCK-T 
L CNTRL 



SET VARIABLE 
DATA IND 

RESTORE TABLE 



INITIALIZE CA TO TRANSMIT 
TABLE AND RETREIVE 
TRANSMITTED DATA 



SENSE DSWS 

CLEAR CA 

PICK UP 
CONTROL CHARACTER 

BR IF SHORT END 

CALCULATE 
BCC 
SHOULD BE 

STORE IN DATA TABLE 

COMPARE DATA 



CHECK DSWS 



CHECK FOR 
TABLE COMPLETE 
INTRPT 



FETCH LAST END CHAR USED 
BUILD CONT CHAR DECOOE WD 



CK DECODE BIT 

BR IF BIT NOT YET FOUND 

FETCH NEXT END CHAR 
GO TO SAVE CHARACTER 

POINT TO NEXT END CHAR 
GO TO CK NEXT DECODE BIT 

RESET VAR IND IF RTN END 
SET/RESET VARIABLE IND 
GO TO CONTROL 



JATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



80E16340 
80E16350 
80E16360 
80E16370 
80E16380 
80E16390 
80E16400 
80E16410 
80E1642 
80E16430 
80E16440 
80E16450 
80E 16460 
80E16470 
80E16480 
80E16490 
80E16500 
80E16510 
80E16520 
80E16530 
80E16540 
80E16550 
80EI6560 
80EI6570 
80E16580 
80E16590 
80E16600 
80E16610 
80E15520 
80E 16630 
80E16640 
80E16650 
80E16660 
80E16670 
80E16680 
80E16690 
80E16700 
80E16710 
80E16720 
80E16730 
80E16740 
80E16750 
80E16760 
80E16770 
80E16780 
80E16790 
80E16800 
80E16810 
80E16820 
80E1S830 
80E16840 
80E16850 
80E16860 
80E16870 
80E16880 
80E16890 
80E 16900 
80E 16910 
80E16920 
80E16930 
80E16940 
80E16950 
80E16960 
80E16970 
80E16980 
80E16990 
80E17000 
80E170IO 



PROG ID 
PAGE 



080E-0 
13 



-DATE 

EC NO. 











* 












80E17020 




0080 


1 


0400 


0805 


RN1B5 


STO 


L 


SW3 


RESET INVALID 


SW3 


80E17030 




0D82 





70FA 




* 


MDX 




RN134 


GO TO CONTROL 




80E17040 
80E17050 




0083 





1010 




RN1B6 


SLA 




16 






80E17060 




0D84 


1 


D400 


0803 




STO 


L 


SW1 


RESET INVALID 


RTN SELECT 


80E17070 




0D86 





70F6 




* 
* 


MDX 




RN1B4 


GO TO CONTROL 




80E17080 
80E 17090 
80E17100 












*************************************************** 


80E17110 












* 












80E17120 












* 






TEST ROUTINif 1C 




80E17130 












* 












80E17140 












*************************************************** 


80E17150 












* 












80E17160 




0D87 





1000 




RTN1C 

* 


NOP 










80E17170 
80E17180 




0088 


1 


4400 


1274 




BSI 


L 


XMRCV 


INITIALIZE CA 


TO 


80E17190 




0D8A 





200A 






DC 




/200A 


XMIT TABLE AND 


80E17200 




0D8B 


1 


16B1 






DC 




TBL5 


RETRIEVE XMITTEO 


80E17210 




0D8C 





0013 




* 


DC 




19 


DATA FROM 1 


LINE 


80E17220 
80E17230 




0D8D 


1 


4400 


14BD 


* 


BSI 


L 


SENSE 


SENSE DSW'S 




80E 17240 
80E17250 




0D8F 





09A2 




* 


XIO 


1 


CLEAR-T 


CLEAR CA 




80E17260 
80E17270 




0090 


1 


4400 


1458 




BSI 


L 


CALBC 


CALCULATE 




80E 17280 




0D92 


1 


16B1 






DC 




TBL5 


FIRST BCC 




80E17290 




0D93 





0003 




* 


DC 




3 






80E17300 
80E17310 




0094 


1 


7400 


1626 




MOX 


L 


ASCII 






80E17320 




0096 





700C 




* 


MOX 




RT1C2 


BR IF USASCII 


CODE 


80E17330 
80E17340 




0097 


1 


D400 


16BB 


RT1C1 

* 


STO 


L 


TBL6+5 


STORE BCC IN 


TABLE 


80E17350 
80E17360 




0099 


1 


4400 


1458 




BSI 


L 


CALBC 


CALCULATE 




80E 17370 




009 B 


1 


16B3 






DC 




TBL5+2 


SECOND BCC 




80E17380 




0D9C 





0003 




* 


DC 




3 






80E17390 
80E17400 




009 D 


1 


7400 


1626 




MDX 


L 


ASCII 






80E17410 




009 F 





7007 




* 


MDX 




RT1C3 


BR IF USASCII 


CODE 


80E17420 
80E 17430 




ODAO 


1 


D400 


16BE 




STO 


L 


TBL6+8 


STOER BCC IN 


TABLE 


80E 17440 




0DA2 





7009 




* 


MOX 




RT1C4 


BRANCH 




80E17450 
80E17460 




0DA3 





1898 




RT1C2 


SRT 




24 


INSERT 




80E17470 




0DA4 





C12D 






LD 


1 


SYN-T 


FIRST 




80E 17480 




00A5 





18C8 






RTE 




8 


BCC IN 




80E17490 




0OA6 





70F0 




* 


MDX 




RT1C1 


TABLE 




80E17500 
80E17510 




0DA7 





1890 




RT1C3 


SRT 




16 


INSERT 




80E17520 




0DA8 





C128 






LD 


1 


ETX-T 


SECOND 




80E17530 




00A9 





1088 






SLT 




8 


BCC IN - 




80E17540 




ODAA 


1 


D400 


16BD 


* 


STO 


L 


TBL6+7 


TABLE 




80E17550 
80EI7560 




ODAC 


1 


4400 


150C 


RT1C4 


BSI 


L 


CKDAT 


CHECK RETRIVED 


80E17570 




ODAE 


1 


1C93 






DC 




SRCTB 


TRANSMIT DATA 




80E17580 




ODAF 


1 


16B6 






DC 




TBL6 






80E17590 




OOBO 





0014 




* 


DC 




20 






80E17600 
80E17610 




00B1 


1 


4400 


14CC 




BSI 


L 


CKDSW 


CHECK DSW'S 




80E17620 




0OB3 





0080 






DC 




/0080 






80E17630 




0DB4 





OOOO 






DC 




/OOOO 






80E 17640 




0DB5 





OFFF 






DC 




/OFFF 






80E17650 




0DB6 





FOOO 






DC 




/FOOO 






80E17660 




0DB7 





45FF 






DC 




/45FF 






80E17670 




0DB8 





9000 




* 


DC 




/9000 






80E17680 
80E 17690 




14N0V69 30JAN70 














PROG ID 


080E-0 


431319 431319A 
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CHECK FOR 
TABLE COMPLETE 
INTERRUPT 



RETURN TO CONTROL 



*************************************************** 

* TEST ROUTINE ID 

* 
*************************************************** 



0DB9 1 4400 


15A0 




BSI 


L 


CKINT 


OOBB 08S0 






DC 




/0880 


ODBC 0000 






DC 




/OOOO 


ODBO OFFF 






DC 




/OFFF 


ODBE FOOO 






DC 




/FOOO 


ODBF 45FF 






DC 




/45FF 


ODCO 9000 




* 


DC 




/9000 


0DC1 1 4C00 


088F 


* 
* 


BSC 


L 


CNTRL 



00C3 1000 

0DC4 1 7400 1626 
0DC6 7024 

0DC7 1 4400 1274 
00C9 201C 
ODCA 1 17A4 
OOCB 002D 

OOCC 1 4400 14BD 

ODCE 09A2 

ODCF 1 4400 1458 
0DD1 1 17A4 
0D02 0016 

0003 1 D400 17C7 

0005 1 4400 150C 

ODD 7 1 1C93 

0008 1 17B2 

00D9 002E 



OOOA 


1 


4400 


14CC 


OODC 





0080 




ODDD 





0000 




OODE 





OFFF 




ODOF 





FOOO 




OOEO 





45FF 




0DE1 





9000 




0DE2 


1 


4400 


15A0 


0DE4 





0880 




0DE5 





0000 




0DE6 





OFFF 




0DE7 





FOOO 




ODES 





45FF 




0DE9 





9000 





OOEA 7003 

OOEB 1010 
ODeC 1 D400 0803 
ODEE 1 4C00 088F 



RTN1D 


NOP 










MOX 


L 


ASCII 




£ 


MOX 




RT1D1 


BR IF USASCII CODE 




BSI 


L 


XMRCV 


INITIALIZE CA TO 




DC 




/201C 


XMIT TABLE AND 




DC 




TTBL7 


RETRIEVE XMITTEO 


£ 


DC 




45 


DATA FROM LINE 


£ 


BSI 


L 


SENSE 


SENSE DSW'S 


£ 


XIO 


1 


CLEAR-T 


CLEAR CA 




BSI 


L 


CALBC 


CALCULATE 




DC 




TTBL7 


BCC CHARACTERS 




DC 




22 




* 










* 


STO 


L 


TTBL8+21 


STORE BCC IN TABLE 




BSI 


L 


CKDAT 


CHECK RETRIEVED 




DC 




SRCT8 


TRANSMIT DATA 




DC 




TTBL8 






DC 




46 




* 












BSI 


L 


CKOSW 


CHECK DSW'S 




DC 




/0080 






DC 




/OOOO 






DC 




/OFFF 






DC 




/FOOO 






DC 




/45FF 




* 


DC 




/9000 






BSI 


L 


CKINT 


CHECK FOR 




DC 




/0880 


TABLE COMPLETE 




DC 




/OOOO 


INTERRUPT 




DC 




/OFFF 






DC 




/FOOO 






DC 




/45FF 




£ 


DC 




/9000 




£ 


MOX 




RT1D1+3 


RETURN TO CONTROL 


RT1D1 


SLA 




16 






STO 


L 


SW1 


RESET INVALIO RTN 




BSC 


L 


CNTRL 


RETURN TO CONTROL 



*************************************************** 
* TEST ROUTINE IE 



iJATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



80E17700 










* 










80E18380 




80E17710 










**************************** *********************** 


80E18390 




80E17720 










* 










80E18400 




80EI7730 


ODFO 





CUE 




RTN IE 


LD 


1 


D50-T 


INITIAL COUNT=50 


80E18410 




80E17740 


0DF1 





1000 






NOP 








80EI8420 




80E17750 










* 










80E18430 




80E17760 


0DF2 





D1B3 






STO 


1 


LOCK-T 


SET VARIABLE DATA INO 


80E 18440 




80E17770 










* 










80E18450 




80E17780 


0DF3 





911F 






S 


1 


D700-T 


CHECK FOR VALID COUNT. 


80E18460 




80E17790 


0DF4 


1 


4C08 


ODFC 




BSC 


L 


RT1EA,+ 


BR IF COUMT OK 


80E18470 




80E17800 










* 










80E18480 




80E17810 


0DF6 





1010 






SLA 




16 




80E 18490 




80E17820 


0DF7 





D1B3 






STO 


1 


LOCK-T 


RESET VARIABLE DATA IND 


80E18500 




80E17830 


0DF8 


1 


D400 


0805 




STO 


L 


SW3 


RESET INVALIO SW3 


80E18510 




80E17840 


ODFA 


1 


4C00 


088F 




BSC 


L 


CNTRL 


RETURN TO CONTROL 


80E18520 




80E17850 










* 










80E 18530 




80E17860 


ODFC 


1 


7401 


1629 


RT1EA 


MDX 


L 


LOCK.l 


INCRE VARIABLE DATA IND 


80E18540 




80E17870 










* 










80E18550 




80E17880 


ODFE 





6700 


FE9D 




LDX 


L3 


-355 




80E 18560 




80E17890 


OEOO 


1 


C400 


16AF 




LO 


L 


TBL4+1 




80E18570 




80E17900 










* 










80E18580 




80E17910 


0E02 


1 


D700 


192F 


RT1EB 


STO 


L3 


VTBL+358 


FILL XMIT 


80E18590 




80E17920 


0E04 





7301 






MDX 


3 


1 


TABLE WITH 


80E18600 




80E179 30 


0E05 





70FC 






MDX 




RT1EB 


/7F CHARACTERS 


80E18610 




80E 17940 










* 










80E 18620 




80E17950 


0E06 





1890 






SRT 




16 




80E18630 




80E17960 


OE07 





C126 






LD 


1 


STX-T 




80E18640 




80E17970 


0E08 





1088 






SLT 




8 


PUT STX IN 


80E18650 




80E17980 


0E09 


I 


0400 


17CC 




STO 


L 


VTBL+3 


TRANSMIT TABLE 


80E 18660 




80E17990 










* 










80E18670 




80E18000 


OEOB 





C1B3 






LD 


1 


LOCK-T 


STORE BCC CALCULATION 


80E18680 




80E18010 


OEOC 





D025 






STO 




RT1EG 


CHARACTER COUNT 


80E18690 




80E18020 










* 










80E18700 




80E18030 


OEOD 





8119 






A 


1 


D3-T 


SET UP 


80E 18710 




80E18040 


OEOE 





E906 






OR 


1 


H2000-T 


TRANSMIT 


80E18720 




80E 18050 


OEOF 





001B 






STO 




RTlEF 


BYTE COUNT 


80E18730 




80E18060 










* 










80E18740 




80E18070 


0E10 





C1B3 






LD 


1 


LOCK-T 




80E 18750 




80E18080 


0E11 





811C 






A 


1 


Dll-T 


STORE DATA 


80E18760 




80E18090 


0E12 


1 


0400 


0E9B 




STO 


L 


RT1ES 


COMPARE CHARACTER COUNT 


80E18770 




80E18100 










* 










80E18780 




80E18110 


0E14 





8118 






A 


1 


D2-T 


STORE DATA RETRIEVE 


80E 18790 




80E18120 


0E15 





D017 






STO 




RT1EF+2 


CHARACTER COUNT 


80E18800 




80E18130 










* 










80E18810 




80E18140 


0E16 





C1B3 






LD 


1 


LOCK-T 




80E18820 




80E18150 


0E17 





1881 






SRT 




1 




80E18830 




80E18160 


0E18 





D001 






STO 




* + l 




30E18840 




80E18170 


0E19 





6700 


OOOO 




LDX 


L3 


*-* 


XR3=XMIT TABLE LENGTH 


80E18850 




80E18180 










* 










80E18860 




80E18190 


0E1B 





C128 






LD 


1 


ETX-T 




80E18870 




80E18200 


0E1C 





1800 






RTE 




16 




80E18880 




80E18210 


0E1D 


1 


4C10 


0E24 




BSC 


L 


RTIED, - 


BR IF XMIT CHAR CNT EVEN 


80E 18890 




80E18220 










* 










80E18900 




80E18230 


0E1F 


1 


C700 


17CC 




LD 


L3 


VTBL+3 


BUILD 


80E18910 




80E18240 


0E21 





1808 






SRA 




8 


XMIT TABLE 


80E 18920 




80E18250 


0E22 





1088 






SLT 




8 


END WORD" 


80E18930 




80E18260 


0E23 





7003 






MDX 




RT1EE 


BRANCH 


80E18940 




80E18270 










* 










80E18950 




80E18280 


0E24 


1 


C700 


17CC 


RTIED 


LD 


L3 


VTBL+3 


BUILD XMIT TABLE 


80E18960 




80E18290 


0E26 





18C8 






RTE 




8 


END WORD 


80E18970 




80E18300 










* 










80E18980 




80E18310 


0E27 


1 


D700 


17CC 


RT1EE 


STO 


L3 


VTBL+3 


STORE ETX IN XMIT TBL 


80E18990 




80E18320 










* 










80E19000 




80E18330 


0E29 


1 


4400 


1274 




BSI 


L 


XMRCV 


TRANSMIT AND 


80E19010 




80E18340 


0E2B 





OOOO 




RTlEF 


DC 




*-* 


RETRIEVE TRANSMITTED 


80E19020 




80E18350 


0E2C 


1 


17CC 






DC 




VTBL+3 


CHARACTERS 


80E 19030 




80E18360 


0E2D 





OOOO 






DC 




*-* 




80E 19040 




80E18370 










* 










80E19050 




PROG ID 080E-0 


JATE 14N0V69 30JAN70 












PROS ID 


080 E-0 


PAGE 14 


EC NO. 431319 431319A 












PAGE 


14A 
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II 
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0E2E 09A2 

0E2F 1 4400 1458 
0E31 1 17CC 
0E32 0000 

0E33 1 7400 1626 
0E35 E904 

0E36 D1BB 

0E37 1010 
0E38 D1CB 

0E39 1 6500 1C96 
0E3B 1 6600 17CC 
0E3D 1 6780 1629 

0E3F ClOO 
0E40 F200 
0E41 1008 
0E42 1 D400 1641 
0E44 1 4C20 0E59 

0E46 73FF 
0E47 7001 
0E48 702C 

0E49 7101 
0E4A 7201 

0E4B ClOO 

0E4C F200 

0E40 1808 

064 E 1 D400 1641 

0E50 1 4C18 0E56 

0E52 1 C400 16A3 
0E54 0200 
0E55 7017 

0E56 73FF 
0E57 70E7 
0E58 702A 



RT1EG 



* 
RT1EI 



RUE J 



0E59 
0E5B 
0E5C 
0E5D 
0E5E 
0E5F 



C400 16A3 

1890 

C200 

1808 

1088 

D200 



* 
RT1EH 



* 
RT1EK 



0E60 7201 
0E61 1090 
0E62 D200 

0E63 73FF 
0E64 7001 
0E65 700F 



0E66 1 
0E68 
0E69 
0E6A 
0E6B 
0E6C 



C400 16AF 

1890 

C200 

1808 

1088 

D200 



RT1EL 



* 
RT1EM 



0E6D 7201 



* 
RT1EN 



XIO 

BSI 
DC 

DC 

MDX 

OR 

STO 

SLA 
STO 

LDX 
LDX 
LDX 

LD 

EOR 

SLA 

STO 

BSC 

MDX 
MDX 
MDX 

MDX 
MDX 

LD 

EOR 

SRA 

STO 

BSC 

LD 

STO 

MDX 

MDX 
MDX 
MDX 

LD 

SRT 

LD 

SRA 

SLT 

STO 

MDX 
SLT 
STO 

MDX 
MDX 
MDX 

LD 

SRT 

LD 

SRA 

SLT 

STO 

MOX 



1 CLEAR-T 

L CALBC 
VTBL+3 

*-* 

L ASCII 
1 HOOFF-T 

1 TEMP1-T 

16 
1 INSRT-T 

LI SRCTB+3 
L2 VTBL+3 
13 LOCK 

1 

2 
8 

L INSRT 
L RT1EK.Z 

3 -1 
RT1EJ 
RT1EP 

1 1 

2 1 

1 

2 
8 

L INSRT 
L RTlEHt+- 

L SYN 

2 
RT1EN 

3 -1 
RT1EI 
RT1EQ 

L SYN 

16 
2 

8 

8 
2 

2 1 
16 

2 

3 -1 
RT1EM 
RT1EP 

L TBL4+1 

16 
2 

8 

8 
2 

2 1 



JATE 

EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



CLEAR CA 




80E19060 
80E19070 


0E6E 
0E6F 


73FF 

7001 






MDX 
MDX 


3 -1 
RTIEO 






80E 19740 
80E19750 




CALCULATE 




80E19080 


0E70 


7012 






MDX 


RT1EQ 






80E19760 




BCC 




80E19090 








* 










80E19770 








80E19100 


0E71 1 


C400 


16AF 


RTIEO 


LD 


L TBL4+1 






80E 19780 








80E19110 


0E73 


D200 






STO 


2 






80E19790 








80E19120 


0E74 


7CEE 






MDX 


RT1EL 






80E19800 








80E19130 








* 










80E19810 








80E19140 


0E75 1 


C400 


169E 


RT1EP 


LD 


L ETX 


STORE 




80E19820 




SAVE BCC 




80E19150 


0E77 


1888 






SRT 


8 


ETX CHARACTER 




80E19830 








80E19160 


0E78 


C200 






LD 


2 


IN EXPECTED 




80E19840 








80E19170 


0E79 


1808 






SRA 


8 


DATA TABLE 




80E19850 




RESET SYN INSERTION 


IND 


80E19180 
80E19190 


0E7A 
0E7B 


1088 
0200 






SLT 
STO 


8 
2 






80E19860 
80E19870 




XR1=RETRIEVED DATA i 


^DDR 


80E19200 








* 










80E19880 




XR2=EXPECTED DATA ADOR 


80E19210 


0E7C 1 


C400 


1631 




LD 


L TEMPI 


STORE BCC IN 




80E19890 




XR3=XMIT CHARACTER COUNT 


80E19220 


0E7E 


020 1 






STO 


2 1 


EXPECTED DATA 


TABLE 


80E19900 








80E19230 








* 










80E19910 




CHECK 




80E19240 


0E7F 1 


C400 


168C 




LD 


L HFFFF 


STORE 




80 E 199 20 




FOR INSERTION CHAR 




80E19250 


0E81 


0202 






STO 


2 2 


DATA TABLE 




80E19930 




IN DATA TABLE 




80E19260 








* 










80E19940 




SET/RESET SYN INSERTION 


80E19270 


0E82 


700D 






MDX 


RT1ER 






80E19950 




BR IF INSERTION OCCURRED 


80E19280 








* 










80E19960 








80E19290 


0E83 1 


C400 


1631 


RT1EQ 


LD 


L TEMPI 


STORE 




80E19970 




DECRE CHAR COUNT 




80E19300 


0E85 


1890 






SRT 


16 


ETX AND FIRST 


BCC 


80E19980 




BR IF MORE TEXT 




80E19310 


0E86 1 


C400 


169E 




LD 


L ETX 


IN EXPECTED 




80E19990 




BR IF END OF TEXT 




80E 19320 
80E19330 


0E88 
0E89 


1088 
D200 






SLT 

STO 


8 
2 


DATA TABLE 




80E20000 
80E20010 




INC RE RETRIEVED DATA ADDR 


80E 19340 








* 










80E20020 




INCRE EXPECTED DATA 


ADDR 


80E19350 


0E8A 


1888 






SRT 


8 


STORE 




80E200 30 








80E 19360 


0E8B 1 


C400 


168C 




LD 


L HFFFF 


ENDING PADS 




80E20040 




CHECK FOR 




80E19370 


0E8D 


D202 






STO 


2 2 


IN EXPECTED OATA TBL 


80E20050 




INSERTION CHAR 




80E19380 








* 










80E20060 




IN DATA TABLE 




80E19390 


0E8E 


18C8 






RTE 


8 


IN EXPECTED 




80E20070 




SET/RESET INSERTION 


IND 


80E 19400 


0E8F 


0201 






STO 


2 1 


DATA TABLE 




80E20080 




BR IF NO INSERTION 




80E 19410 








* 










80E20090 








80E 19420 


0E90 1 


6500 


1676 


RT1ER 


LDX 


LI T 


RESTORE XR1 




80E20100 




STORE TWO SYN'S 




80E19430 








* 










80E20110 




IN EXPECTED DATA TABLE 


80E 19440 


0E9 2 


C008 






LD 


RT1ES 






80E20120 




BRANCH 




80E19450 


0E93 1 


7400 


1641 




MDX 


L I NSRT 


SKIP IF NO INSERTION 


80E20130 








80E19460 


0E95 


8118 






A 


1 D2-T 






80E20140 




DECRE CHAR COUNT 




80E19470 


0E96 


D004 






STO 


RT1ES 


SET OATA COMPARE CHAR CNT 


80E20150 




BR IF MORE TEXT 




80E19480 








♦ 










80E20160 




BR IF END OF TEXT 




80E 19490 


0E97 1 


4400 


150C 




BSI 


L C KDAT 


CHECK 




80E20170 








80E19500 


0E99 1 


1C93 






DC 


SRCTB 


RETRIEVED 




80E20180 




STORE 




80E19510 


0E9A 1 


17C9 






DC 


VTBL 


TRANSMIT 




80E20190 




TWO SYN'S 




80E19520 


0E9B 


0000 




RT1ES 


DC 


*-* 


DATA 




80E20200 




IN EXPECTED 




80E19530 








* 










80E20210 




DATA 




80E19540 


0E9C 1 


7400 


1641 




MDX 


L INSRT 






80E20220 




TABLE 




80E19550 
80E19560 
80E19570 


0E9E 
0E9F 


700C 
C1B3 




* 


MOX 

LD 


RT1ET 
1 LOCK-T 


BR IF INSERTION 


OCCURRED 


80E20230 
80E20240 
80E20250 




INCRE EXPECTED DATA 


ADDR 


80E19580 


OEAO 


911F 






S 


1 D700-T 


- 




80E20260 








80E19590 


0EA1 1 


4C08 


088F 




BSC 


L CNTRL.+ 


BR IF NOT RTN END YET 


80E20270 








80E19600 








* 










80E20280 








80E19610 


0EA3 


1010 






SLA 


16 






80E2 0290 








80E 19620 


0EA4 


01B3 






STO 


1 LOCK-T 


RESET VARIABLE 


DATA IND 


80E20300 








80E19630 








* 










80E20310 








80E 19640 


0EA5 1 


6600 


1660 




LDX 


L2 E008 


PRINT ERROR MESSAGE 


80E20320 








80E19650 


0EA7 1 


4400 


122E 




BSI 


L ERPRT 


SYN INSERTION 


FAILURE 


80E20330 




FILL 




80E19660 








* 










80E20340 




REMAINDER 




80E19670 


0EA9 1 


4C00 


088F 




BSC 


L CNTRL 


RETURN TO CONTROL 


80E20350 




OF EXPECTED 




80E19680 








* 










80E20360 




DATA TABLE 




80E19690 


OEAB 


C1B3 




RT1ET 


LD 


1 LOCK-T 


STORE INSERTION 




80E20370 




WITH /7F 




80E19700 


OEAC 


9117 






S 


1 Dl-T 






80E20380 




CHARACTERS 




80E19710 


OEAD 


D1E3 






STO 


1 D00H-3-T 


RATE IN 0001 PRINTOUT 


80E20390 








80E19720 








* 










80E20400 








80E19730 


OEAE 


1010 






SLA 


16 






80E20410 








PROG ID 080E-0 


iMTE 14N0V69 30JAN70 












PROG ID 


080E-0 
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EC NO. 431319 


' 431319A 












PAGE 
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OEAF D1B3 



OEBO 
0EB2 


1 
1 


6600 
4400 


1656 
121B 


* 


LDX 
BSI 


L2 
L 


D001 
PRINT 


0EB4 


1 


4C00 


088F 


* 
* 


BSC 


L 


CNTRL 



0EB6 CUE 
0EB7 1000 

0EB8 D1B3 

0EB9 911F 
OEBA 1 4C08 0EC2 

OEBC 1010 

OEBD D1B3 

OEBE 1 0400 0805 

OECO 1 4C00 088F 

0EC2 C1B0 
0EC3 1 4C18 0EC9 

0EC5 1010 
0EC6 1 D400 0803 
0EC8 70F3 

0EC9 1 7401 1629 

OECB 6700 FE9D 
OECO 1 C400 16AF 

OECF 1 0700 192F 
0ED1 7301 
0ED2 70FC 

0EO3 C120 
OE04 1 D400 17CC 

OE06 C1B3 
0ED7 D02F 

0ED8 811B 
0ED9 E906 
OEDA D025 

OEDB C1B3 
OEOC 8110 
OEOD 1 0400 0F9C 

OEDF 8118 
OEEO D021 

0EE1 C1B3 
0EE2 9117 
0EE3 1881 
0EE4 D001 
0EE5 6700 0000 

0EE7 C124 
0EE8 18D0 



STO 1 LOCK-T RESET VARIABLE DATA IND 

PRINT INSERTION RATE 
RETURN TO CONTROL 



♦♦♦♦ft********************************************** 

* TEST ROUTINE IF 

* 

******* ******** ** ******** ************************** 

* 

RTN1F LD 1 050-T INITIAL COJNT=50 

NOP 
* 

STO 

S 

BSC 

RT1FA SLA 
STO 
STO 
BSC 

RT1FB LD 

BSC 
* 

SLA 
STO 

MDX 

* 

RTIFC MDX 

* 

LDX 
LO 

RT1FD STO L3 VTBL+358 



1 LOCK-T 

1 D700-T 
L RT1FB.+ 

16 
1 LOCK-T 
L SW3 
L CNTRL 

1 ASCII-T 
L RTlFCt+- 

16 
L SW1 
RT1FA 

L LOCK.l 

L3 -355 
L TBL4+1 



SET VARIABLE DATA INO 

CHECK FOR VALID COUNT. 
BR IF COUNT OK 



RESET VARIABLE DATA IND 
RESET INVALIO SW3 ENTRY 
RETURN TO CONTROL 



BR IF EBCDIC CODE 



RESET INVALID RTN SELECT 
BRANCH 

INCRE VARIABLE DATA IND 



MDX 
MDX 

LD 
STO 

LD 
STO 

A 

OR 

STO 

LD 

A 

STO 

A 
STO 

LD 

S 

SRT 

STO 

LDX 

LD 
RTE 



3 1 
RT1FD 

1 OLSTX-T 
L VTBL+3 

1 LOCK-T 
RT1FH 

1 06-T 
1 H2000-T 
RT1FG 

1 LOCK-T 
1 D15-T 
L RT1FW 

1 D2-T 
RT1FG+2 

1 LOCK-T 
1 Dl-T 

1 

*+l 
L3 *-* 

1 DLE-T 
16 



FILL XMlT 
TABLE WITH 
17F CHARACTERS 

PUT OLE STX 
IN XMIT TABLE 

SET UP 

CHARACTER COUNT 

SET UP 
TRANSMIT 
BYTE COUNT 

SET UP 
DATA COMPARE 
CHARACTER COUNT 

SET UP RETRIEVE XMIT 
DATA CHARACTER COUNT 



XR3=XMIT TABLE LENGTH 
FETCH OLE CHARACTERS 



tJATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



80E20420 

80E20430 

80E20440 

80E20450 

80E20460 

80E20470 

80E20480 

80E20490 

80E20500 

80E20510 

80E20520 

80E20530 

80E20540 

80E20550 

80E20560 

80E20570 

80E20580 

80E20590 

80E20600 

80E20610 

80E20620 

80E20630 

80E20640 

80E20650 

80E20660 

80E20670 

80E20680 

80E20690 

80E20700 

80E20710 

80E20720 

80E20730 

80E20740 

80E20750 

80E20760 

80E20770 

80E20780 

80E20790 

80E20800 

80E20810 

80E20820 

80E20830 

80E20840 

80E20850 

80E20860 

80E20870 

80E20880 

80E20890 

80E20900 

80E20910 

80E20920 

80E20930 

80E20940 

80E20950 

80E20960 

80E20970 

80E20980 

80E20990 

80E21000 

80E21010 

80E21020 

80E21030 

80E21040 

80E21050 

80E21060 

80E21070 

80E21080 

80E21090 



PROG 10 
PAGE 



080E-0 
16 



JATE 

EC NO. 



0EE9 


1 


4C10 


0EF4 




BSC 


L 


RT1FE,- 


BR IF XMIT CHAR CNT EVEN 


80E21100 












* 












8OE2U10 




OEEB 


1 


C700 


17CD 




LD 


L3 


VTBL+4 


BUILD 




80E21120 




OEED 





1088 






SLT 




8 


XMIT 




80E21130 




OEEE 


1 


D700 


17CD 




STO 


L3 


VTBL+4 


TABLE 




80E21140 




OEFO 





1888 






SRT 




8 


END 




80E21150 




0EF1 





C128 






LD 


1 


ETX-T 


SEQUENCE 




80E21160 




0EF2 





18C8 






RTE 




8 






80E21170 




0EF3 





7C08 




* 


MDX 




RT1FF 


BRANCH 




80E21180 
80E21190 




0EF4 





18D0 




RT1FE 


RTE 




16 


BUILD 




80E21200 




0EF5 


1 


0700 


17CD 




STO 


L3 


VTBL+4 


XMIT 




80E21210 




0EF7 


1 


C700 


17CE 




LD 


L3 


VTBL+5 


TABLE 




80E21220 




0EF9 





1888 






SRT 




8 


EMO 




80E21230 




OEFA 





C128 






LD 


1 


ETX-T 


SEQUENCE 




80E21240 




OEFB 





1088 




* 


SLT 




8 






80E21250 
80E21260 




OEFC 


1 


0700 


17CE 


RT1FF 


STO 


L3 


VTBL+5 


STO END CHAR IN EMIT TBI.. 


80E21270 












* 












80E21280 




OEFE 


1 


4400 


1274 




BSI 


L 


XMRCV 


TRANSMIT AND 




80E21290 




OFOO 





0000 




RT1FG 


DC 




*-* 


RETRIEVE TRANSMITTED 


80E21300 




0F01 


1 


17CC 






DC 




VTBL+3 


CHARACTERS 




80E21310 




0F02 





0000 




* 


DC 




*-* 






80E21320 
80E21330 




0F03 





09A2 




* 


XIO 


1 


CLEAR-T 


CLEAR CA 




80E21340 
80E21350 




OF04 


1 


4400 


1458 




BSI 


L 


CALBC 


CALCULATE 




80E21360 




0F06 


1 


17CC 






DC 




VTBL+3 


8CC 




80E21370 




0F07 





0000 




RT1FH 

* 


DC 




♦-* 






80E21380 
80E21390 




0F08 





D1BB 




* 


STO 


1 


TEMP1-T 


SAVE BCC 




80E21400 
80E21410 




OF09 





1010 






SLA 




16 






80E21420 




OFOA 





D1CB 






STO 


1 


INSRT-T 


RESET SYN INSERTION IND 


80E21430 












* 












80E21440 




OFOB 


1 


6600 


1C97 




LDX 


L2 


SRCTB+4 






80E21450 




OFOD 


1 


6E00 


1632 




STX 


L2 


TEMP2 


POINT TO RETRIEVED DATA 


80E21460 












* 












80E21470 




OFOF 


1 


6600 


17CD 




LDX 


L2 


VTBL+4 


XR2=EXPECTED DATA ADDR 


80E21480 




0F11 


1 


6780 


1629 


* 


LDX 


13 


LOCK 


XR3=CHARACTER 


COUNT 


80E21490 
80E21500 




0F13 





73FF 




RT1FI 


MDX 


3 


-1 


DECRE CHAR COUNT 


80E21510 




0F14 





7012 




* 


MDX 




RT1FJ 


BR IF NOT YET 


END OF TEXT 


80E21520 
80E21530 




0F15 


1 


C480 


1632 




LD 


I 


TEMP2 


CK FOR SYN INSERTION 


80E21540 




0F17 





F124 






EOR 


1 


DLE-T 


AHEAD OF OLE 


CHARACTERS 


80E21550 




OF 18 


1 


4C20 


OF 50 




BSC 


L 


RT1FL.Z 


BR IF INSERTION OCCURRED 


80E21560 












* 












80E21570 




0F1A 


1 


7401 


1632 




MDX 


L 


TEHP2.1 






80E21580 




0F1C 





7201 






MDX 


2 


1 


CK FOR SYM 




80E21590 




0F1D 


1 


C480 


1632 




LD 


I 


TEMP2 


INSERTION 




80E21600 




0F1F 





F121 






EOR 


1 


DLETX-T 


FOLLOWING OLE CHARACTER 


80E21610 




0F20 


1 


4C18 


0F7D 




BSC 


L 


RT1FT.+- 


BR IF NO INSERTION 


80E21620 












* 












80E21630 




0F22 





C122 






LD 


I 


DLSYN-T 


STORE 




80E21640 




0F23 





D200 






STO 


2 





DLE SYN " 




80E21650 




0F24 





7201 






MDX 


2 


1 


IN EXPECTED 


DATA TBL 


80E21660 




0F25 





D1CB 






STO 


1 


INSRT-T 


SET INSERTION 


INO 


80E21670 




0F26 





7056 




* 


MDX 




RT1FT 


BRANCH 




80E21680 
80E21690 




0F27 


1 


C480 


1632 


RT1FJ 


LD 


I 


TEMP2 


CHECK 




80E21700 




OF 29 





F139 






EOR 


1 


TBL4+1-T 


FOR 




80E21710 




0F2A 





1808 






SRA 




8 


INSERTION 




80E21720 




0F2B 


1 


4C20 


OF 50 




BSC 


L 


RTlFLtZ 


BR IF INSERTION OCCURRED 


80E21730 












* 












80E21740 




0F2D 





73FF 






MDX 


3 


-1 


DECRE CHAR COUNT 


80E21750 




0F2E 





7017 




* 


MDX 




RT1FK 


BR IF NOT END 


TEXT YET 


80E21760 
80E21770 




14N0V69 


J0JAN70 














PROG ID 


080E-0 


431319 431319A 














PAGE 


16A 
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0F2F 


1 


7401 


1632 




MDX 


L 


TEMP2.1 


CHECK FOR 


80E21780 










* 












80E22460 






0F31 


1 


C480 


1632 




LD 


I 


TEMP2 


SYN INSERTION 


80E21790 


0F70 





C124 




RT1FR 


LD 


1 


DLE-T 


STORE 




80E22470 






0F33 





F124 






EOR 


1 


DLE-T 


AHEAD OF OLE CHARACTERS 


80E21800 


0F71 





1890 






SRT 




16 


DLE DLE 




80E22480 






0F34 


1 


4C20 


0F55 


* 


BSC 


L 


RTlFMtZ 


BR IF INSERTION OCCURRED 


80E21810 
80E21820 


OF 72 
0F73 







C200 
1808 






LD 
SRA 


2 



8 


SEQUENCE 
IN EXPECTED 




80E22490 
80E22500 






OF 36 


1 


7401 


1632 




MDX 


L 


TEMP2.1 


CHECK FOR 


80E21830 


0F74 





1088 






SLT 




8 


DATA 




80E22510 






0F38 





7201 






MDX 


2 


1 


SYN INSERTION 


80E21840 


OF 75 





D200 






STO 


2 





TABLE 




80E22520 






0F39 


1 


C480 


1632 




LD 


I 


TEMP2 


FOLLOWING 


80E21850 










* 












80E22530 






0F3B 





F128 






EOR 


1 


ETX-T 


OLE CHARACTERS 


80E21860 


0F76 





7201 






MDX 


2 


1 






80E2?540 






0F3C 





1808 






SRA 




8 




80E21870 


0F77 





1090 






SLT 




16 






80E22550 






0F3D 


1 


4C18 


OF 84 


* 


BSC 


L 


RT1FU.+- 


BR IF NO INSERTION 


80E21880 
80E21890 


OF 78 
0F79 






D200 
700A 






STO 

MDX 


2 



RT1FU 


BRANCH 




80E22560 
80E22570 






0F3F 





7201 






MDX 


2 


1 


STORE 


80E21900 










* 












80E22580 






0F40 





C12D 






LD 


1 


SYN-T 


OLE SYN 


80E21910 


0F7A 





C124 




RT1FS 


LD 


1 


DLE-T 


STORE DLE DLE SEQUENCE 


80E22590 






0F41 





D200 






STO 


2 





SEQUENCE IN 


80E21920 


0F7B 





D200 






STO 


2 





IN EXPECTED DATA 


TABLE 


80E22600 






OF 42 





DlCB 






STO 


1 


I NSRT-T 


EXPECTED DATA TABLE 


80E21930 


0F7C 





7201 






MDX 


2 


1 






80E22610 






0F43 





C124 






LD 


1 


DLE-T 




80E21940 










* 












80E22620 






OF 44 





D2FF 






STO 


2 


-1 




80E21950 


0F7D 





C121 




RT1FT 


LD 


1 


DLETX-T 


STORE DLE ETX IN 




80E22630 






0F45 





703E 






MDX 




RT1FU 


BRANCH 


80E21960 


0F7E 





D200 






STO 


2 





EXPECTED DATA TABLE 


80E22640 














* 










80E21970 










* 












80E22650 






0F46 


1 


C480 


1632 


RT1FK 


LD 


I 


TEMP2 


CHECK 


80E21980 


0F7F 





ClBB 






LD 


1 


TEMP1-T 


STORE 8CC IN 




80E22660 






0F48 





F139 






EOR 


1 


TBL4+1-T 


FOR 


80E21990 


0F80 





0201 






STO 


2 


1 


EXPECTED TABLE 




80E22670 






OF 49 





1008 






SLA 




8 


INSERTION 


80E22000 










* 












80E22630 






0F4A 


1 


4C20 


0F55 




BSC 


L 


RT1FM.Z 


BR IF INSERTION OCCURRED 


80E22010 


0F81 





C116 






LD 


1 


HFFFF-T 


STORE ENDING PADS 


IN 


80E22690 














* 










80E22020 


0F82 





D202 






STO 


2 


2 


EXPECTED OATA TABLE 


80E22700 






0F4C 


1 


7401 


1632 




MDX 


L 


TEMP2.1 


UPDATE DATA 


80E22030 










* 












80E22710 






0F4E 





7201 






MDX 


2 


1 


TABLE POINTERS 


80E22040 


0F83 





700F 






MOX 




RT1FV 


BRANCH 




80E22720 






0F4F 





70C3 






MDX 




RT1FI 


BRANCH 


80E22050 










* 












80E22730 














* 










80E22360 


0F84 





C116 




RT1FU 


LD 


1 


HFFFF-T 


STORE ENDING PADS 


IN 


80E22740 






0F50 





7301 




RT1FL 


MDX 


3 


1 




80E22070 


0F85 





0203 






STO 


2 


3 


EXPECTED DATA TABLE 


80E22750 






0F51 





C122 






LD 


1 


DL SYN-T 


STORE 


80E22080 










* 












80E22760 






0F52 





DlCB 






STO 


1 


I NSRT-T 


DLE SYN SEQUENCE 


80E22090 


0F86 





1890 






SRT 




16 


2ND BCC 




80E22770 






0F53 





D200 






STO 


2 





IN EXPECTED DATA TABLE 


80E22100 


0F87 





ClBB 






LD 


1 


TEMP1-T 


IN EXPECTED 




80E22780 






0F54 





7014 




* 
* 


MDX 




RT1FP 


BRANCH 


80E22110 
80E22120 
80E22130 


0F88 
OF 89 







18D8 
D202 




* 


RTE 
STO 


2 


24 

2 


DATA TABLE 




80E22790 
80E22800 
80E22810 






0F55 





7301 




RT1FM 


MDX 


3 


1 




80E22140 


OF 8 A 





1088 






SLT 




8 


STORE 




80E228 20 






0F56 





C122 






LD 


1 


DLSYN-T 


STORE 


80E22150 


0F8B 





C121 






LD 


1 


DLETX-T 


1ST BCC 




80E22830 






0F57 





DlCB 






STO 


1 


I NSRT-T 


DLE SYN 


80E22160 


0F8C 





1808 






RTE 




24 


AND 




80E22840 






0F58 





1890 






SRT 




16 


SEQUENCE 


80E22170 


0F8D 





D201 






STO 


2 


1 


OLE ETX 




80E22850 






0F59 





C200 






LD 


2 





IN EXPECTED 


80E22180 










* 








SEQUENCE 




80E22860 






0F5A 





1808 






SRA 




8 


DATA TABLE 


80E22I90 


0F8E 





1088 






SLT 




8 


IN EXPECTED 




80E22870 






0F5B 





1088 






SLT 




8 




80E22200 


0F8F 





C200 






LD 


2 





DATA TABLE 




80E22880 






0F5C 





0200 




* 


STO 


2 







80E22210 
80E22220 


0F90 
0F91 







1808 
1088 






SRA 
SLT 




8 
8 






80E22890 
80E22900 






0F5D 





7201 






MDX 


2 


1 




80E22230 


OF 92 





D200 






STO 


2 









80E22910 






0F5E 





1090 






SLT 




16 




80E22240 










* 












80E22920 






0F5F 





0200 




* 


STO 


2 







80E22250 
80E22260 


0F93 
0F94 




1 


C008 
7400 


1641 


RT1FV 


LD 
MOX 


L 


RT1FW 
INSRT 


SET UP 
DATA COMPARE 




80E22930 
80E22940 






0F60 





73FF 




RT1FN 


MDX 


3 


-1 




80E22270 


0F96 





8118 






A 


1 


D2-T 


BYTE COUNT 




80E22950 






0F61 





7001 






MDX 




RT1F0 




80E22280 


0F97 





D004 






STO 




RT1FW 






80E22960 






0F62 





700D 




* 


MDX 




RT1FR 




80E22290 
80E22300 


0F98 


1 


4400 


150C 


* 


BSI 


L 


CKDAT 


CHECK 




80E22970 
80E22980 






0F63 





C139 




RT1F0 


LD 


1 


TBL4+1-T 


FILL 


80E22310 


OF 9 A 


1 


1C93 






DC 




SRCTB 


RETRIEVED 




80E22990 






0F64 





1888 






SRT 




8 


REMAINDER OF 


80E22320 


0F9B 


1 


17C9 






DC 




VTBL 


DATA 




80E23000 






0F65 





C200 






LD 


2 





EXPECTED DATA 


80E22330 


0F9C 





0000 




RT1FW 


DC 




*-* 






80E23010 






0F66 





1808 






SRA 




8 


TABLE WITH 


80E22340 










* 












80E23020 






0F67 





1088 






SLT 




8 


17F CHARACTERS 


80E22350 


0F9D 


1 


7400 


1641 




MDX 


L 


INSRT 






80E23030 






0F68 





0200 






STO 


2 







80E22360 


0F9F 





700C 






MOX 




RT1FX 


BR IF SYN INSERTION 


80E 23040 














* 










80E22370 










* 












80E23050 






0F69 





7201 




RT1FP 


MDX 


2 


1 




80E22380 


OFAO 





C1B3 






LD 


1 


LOCK-T 






80E23060 






0F6A 





73FF 






MDX 


3 


-1 




80E22390 


0FA1 





911F 






S 


1 


D700-T 






80E23070 






0F6B 





7001 






MDX 




RT1FQ 




80E22400 


0FA2 


1 


4C08 


088F 




BSC 


L 


CNTRL.+ 


BR IF NOT YET RTN 


END 


80E23080 






0F6C 





700D 




* 


MDX 




RT1FS 




80E22410 
80E22420 


0FA4 





1010 




* 


SLA 




16 






80E23090 
80E23100 






0F60 





C139 




RT1FQ 


LO 


1 


TBL4+1-T 




80E22430 


0FA5 





01B3 






STO 


1 


LOCK-T 


RESET VARIABLE DATA IND 


80E23110 






0F6E 





D200 






STO 


2 







80E22440 










* 












80E23120 






0F6F 





70FO 






MDX 




RT1FN 




80E22450 


0FA6 


1 


6600 


1660 




LDX 


L2 


E008 


PRINT ERROR MSG 




80E23130 




JATE 


14N0V69 30JAN70 












PROG ID 080E-0 


JATE 14N0V69 3 0JAN70 














PROG ID 


080E-0 


EC NO. 


431319 431319A 
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EC NO. 431319 431319A 














PAGE 


174 
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0FA8 1 

OFAA I 

OF AC 
OFAO 
OFAE 



OFAF 
OFBO 



0FB1 1 
0FB3 1 



4400 122E 

4C00 088F 

C1B3 
9117 
D1E3 

1010 
D1B3 

6600 1656 
4400 121B 



0FB5 1 4C00 088F 



0FB7 1000 

0FB8 1 4400 1274 
OFBA 0006 
OFBB 0000 

OFBC 1 4400 13CB 
OFBE 0004 
OFBF 1 16A6 

OFCO 1 4400 14BD 

0FC2 09A2 



0FC3 
0FC5 
0FC6 
0FC7 
0FC8 
0FC9 
OFCA 



4400 14CC 

0080 

0000 

OFFB 

FOOO 

4000 

9 IFF 



BSI L ERPRT INSERTION FAILURE 

BSC L CNTRL RETURN TO CONTROL 

STORE INSERTION RATE 
IN D001 MESSAGE 



RT1FX LO I LOCK-T 

S 1 Ol-T 

STO 1 D001+3-T 
* 

SLA 16 

STO 1 LOCK-T 
* 

LOX L2 D001 

BSI L PRINT 

BSC L CNTRL 

* 

*************************************************** 

* 

* TEST ROUTINE 20 

* 

*************************************************** 

* 

RTN20 NOP 

* 



RESET VARIABLE DATA INO 

PRINT INSERTION RATE 
RETURN TO CONTROL 



OFCB 1 4400 15A0 
OFCO 0000 

OFCE 1 4C00 088F 



BSI 

DC 
DC 

BSI 
OC 

DC 

BSI 
XIO 

BSI 

DC 
DC 
DC 

DC 
OC 
DC 

BSI 
DC 



XMRCV 
/0006 



. GEN 
4 
TBL1+2 

. SENSE 

1 CLEAR-T 

CKOSW 
/0080 
/OOOO 
/OFFB 
/FOOO 
/4000 
/91FF 

. CKINT 




INITIALIZE CA 
TO RECEIVE 
TABLE 

PLACE 
SYN CHARS ON 
RECEIVE DATA LINE 

SENSE DSWS 

CLEAR CA 

CHECK DSWS 



BSC L CNTRL 



CHECK FOR 
UNEXPECTED INTERRUPT 

EXIT ROUTINE 





OFDO 


1000 




RTN21 

* 


NOP 








0FD1 1 


4400 


1274 




BSI 


L 


XMRCV 




0FD3 


E004 






DC 




/E004 




0F04 1 


16A7 






DC 




TBL2 




0FO5 


0000 






DC 









0FD6 1 


16A7 






DC 




TBL2 




0FD7 


0000 




♦ 


DC 









0F08 1 


4400 


0810 




BSI 


L 


DELAY 




OFOA 


0320 






DC 




800 


DATE 


14N0V69 30JAN70 










EC NO. 


431319 431319A 











* 

* 

*************************************************** 

* 

* TEST ROUTINE 21 

* 

*************************************************** 

* 



INITIALIZE TO TRANSMIT 
TABLE CHAINED TO 2N0 
TRANSMIT TABLE CHAINED 
ON ITSELF 



WAIT .8 
SECOND 



80E23140 

80E23150 

80E23160 

80E23170 

80E23180 

80E23190 

80E23200 

80E23210 

80E23220 

80E23230 

80E23240 

80E23250 

80E23260 

80E23270 

80E23280 

80E23290 

80E23300 

80E23310 

80E23320 

80E23330 

80E23340 

80E23350 

80E23360 

80E23370 

80E23380 

80E23390 

80E23400 

80E23410 

80E23420 

80E23430 

80E23440 

80E23450 

80E23460 

80E23470 

80E23480 

80E23490 

80E23500 

80E23510 

80E23520 

80E23530 

80E23540 

80E23550 

80E23560 

80E23570 

80E23580 

80E23590 

80E23630 

80E23610 

80E23620 

80E23630 

80E23640 

80E23650 

80E23660 

80E23670 

80E23680 

80E23690 

80E23700 

80E23710 

80E23720 

80E23730 

80E23740 

80E23750 

80E23760 

80E23770 

80E23780 

80E23790 

80E23800 

80E23810 



OFDB CllA 

OFOC 1 0480 1642 

OFOE 1 4400 081D 

OFEO 09C4 

0FE1 1 4400 15 AO 

0FE3 0000 

0FE4 1 4400 0810 

0FE6 O 01F4 

0FE7 09A2 

0FE8 1 4400 15A0 

OFEA 2080 

OFEB 0000 

OF EC OFFB 

OFEO FOOO 

OFEE 0000 

OFEF 91FF 

OFFO 1 4C00 088F 



LD 
STO 

BSI 
DC 

BSI 

DC 

BSI 

DC 

XIO 

BSI 
DC 

DC 
DC 
DC 
DC 
DC 

BSC 



1 D4-T 
I XRTB2 

L DELAY 
2 500 

L CKINT 


L DELAY 
500 

1 CLEAR-T 

L CKINT 
/2080 
/OOOO 
/OFFB 
/FOOO 
/OOOO 
/91FF 

L CNTRL 



CHANGE DATA TABLE TO 
RECEIVE TABLE 

WAIT 2.5 
SECONDS 

CHECK FOR 
UNEXPECTED INTRPT 

WAIT .5 
SECOND 

CLEAR CA 

CHECK FOR 
TIMEOUT INTERRUPT 



EXIT ROUTINE 



* 

* 

*************************************************** 

* 

* TEST ROUTINE 22 

* 

*************************************************** 

* 



0FF2 





1000 




RTN22 

* 


NOP 








OFF 3 


1 


4400 


1274 


BSI 


L 


XMRCV 


INITIALIZE TO Rl 


OFF 5 





0006 






DC 




/0006 


TABLE 


0FF6 





OOOO 




* 


DC 









OFF 7 


1 


4400 


13CB 


BSI 


L 


GEN 


GENERATE PROGRA! 


0FF9 





0008 






DC 




8 


RECEIVE DATA 


OFF A 


1 


16A6 




£ 


DC 




TBLl+2 




OFFB 


1 


4400 


14B0 


f 


BSI 


L 


SENSE 


SENSE OSW'S 


OFFD 





09A2 




f 


XIO 


1 


CLEAR-T 




OFFE 


1 


4400 


14CC 




BSI 


L 


CKOSW 


CHECK DSW'S 


1000 





0080 






DC 




/0080 




1001 





OOOO 






DC 




/OOOO 




1002 





OFFF 






DC 




/OFFF 




1003 





FOOO 






DC 




/FOOO 




1004 





4000 






DC 




/4000 




1005 





91FF 




£ 


DC 




/91FF 




1006 


1 


4400 


150C 




BSI 


L 


CKDAT 


CHECK DATA 


1008 


1 


1B04 






DC 




XMRCT+1 


RECEIVED 


1009 


1 


16A7 






DC 




TBL2 




100A 





0008 




£ 


OC 




8 




100B 


1 


4400 


15 AO 




BSI 


L 


CKINT 


CHECK FOR 


100D 





0880 






DC 




/0880 


TABLE COMPLETE 


100E 





OOOO 






DC 




/OOOO 


INTERRUPT 


100F 





OFFF 






DC 




/OFFF 




1010 





FOOO 






DC 




/FOOO 




1011 





4000 






DC 




/4000 




1012 





91FF 






DC 




/91FF 





1013 1 4C00 088F 



BSC L CNTRL 



EXIT ROUTINE 



PROG 
PAGE 



ID 



080 E-0 
18 



JATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



80E23820 
80E23830 
80E23840 
80E23850 
80E23860 
80E23870 
80E23880 
80E23890 
80E23900 
80E23910 
80E23920 
80E23930 
80E23940 
80E23950 
80E23960 
80E23970 
80E23980 
80E23990 
80E24000 
80E24010 
80E240 20 
80E24030 
80E24040 
80E240 50 
80E24360 
80E24070 
80E24080 
80E24D90 
80E24100 
80E24110 
80E24I20 
80E24130 
80E24140 
80E24150 
80E24160 
80E24170 
80E24180 
80E24190 
80E24200 
80E24210 
80E24220 
80E24230 
80E24240 
80E24250 
80E24260 
80E242 70 
80E24280 
80E24290 
80E24300 
80E24310 
80E24320 
80E24330 
80E24340 
80E24350 
80E24360 
80E24370 
80E24380 
80E24390 
80E 24400 
80E24410 
80E24420 
80E24430 
80E 24440 
80E24450 
80E24460 
80E24470 
80E24480 
80E24490 



PROG ID 
PAGE 



080 E-0 
18A 



I I) M I) II I 1) (I I) 



I II 



I) 



II II I 



('(((((( <<<<<<< (<(<<<<(<<<<<(<<<<(< 
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1015 1000 

1016 1 4400 1274 

1018 0006 

1019 0000 

101A 1 4400 13CB 
101C 0008 
101D 1 16D1 

101E 1 4400 14BD 

1020 09A2 



1021 
1023 
1024 
1025 
1026 
1027 
1028 



4400 14CC 

0080 

0000 

OFFD 

FOOO 

4000 

91FF 



1029 1 4400 150C 
102B 1 1B04 
102C 1 16AF 
1020 0004 

102E 1 4400 15A0 

1030 0000 

1031 1 4C00 088F 



1033 1000 



1034 
1036 

1037 
1039 
103A 

103B 
1030 
10 3E 



103F 1 

1041 

1042 1 

1044 

1045 



7400 1626 
701D 

4400 1274 

0008 

0000 

4400 13CB 

OOOC 

178E 

4400 14BD 

09A2 

4400 14CC 

0080 

0000 



* 

* 

*************************************************** 

* 

* TEST ROUTINE 23 

* 

*************************************************** 

* 

RTN23 NOP 

* 

BSI 

DC 
DC 



BSI 

DC 
DC 

BSI 

XIO 

BSI 

DC 

DC 

DC 

DC 

DC 

DC 

BSI 
DC 

DC 
DC 

BSI 

DC 



XMRCV 
/0006 



. GEN 
8 
TBL9 

L SENSE 

1 CLEAR-T 

L CKDSW 
/0080 
/OOOO 
/OFFD 
/FOOO 
/4000 
/91FF 

l CKDAT 
XMRCT+1 
TBL4+1 
4 

L CKINT 





INITIALIZE CA TO 
RECEIVE TABLE 



GENERATE PROGRAMMED 

RECEIVE MESSAGE ON 

RECEIVE DATA LINE 

SENSE DSW'S 

CLEAR CA 

CHECK DSW'S 



BSC L CNTRL 



CHECK DATA 



CHECK FOR 
UNEXPECTED INTERRUPT 

EXIT ROUTINE 



* 

* 

* 

*************************************************** 

* 

* TEST ROUTINE 24 

* 

*************************************************** 

* 

RTN24 NOP 

* 

MDX 

MDX 



BSI 
DC 

DC 

BSI 

DC 
DC 

BSI 

XIO 

BSI 

DC 
DC 



ASCII 
RT24A 

. XMRCV 
/0008 


GEN 

12 

TTBL3 

. SENSE 

1 CLEAR-T 

CKDSW 
/0080 
/OOOO 



BR IF USASCII CODE 

INITIALIZE CA 
TO RECEIVE TABLE 



PLACE 12 CHARS 
ON RECEIVE 
DATA LINE 

SENSE DSW'S 

CLEAR CA 

CHECK DSW'S 



JATE 

EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



80E24500 

80E24510 

80E24520 

80E24530 

80E24540 

80E24550 

80E24560 

80E24570 

80E24580 

80E24590 

80E24600 

80E24610 

80E24620 

80E24630 

80E24640 

80E24650 

80E24660 

80E24670 

80E24680 

80E24690 

80E24700 

80E24710 

80E24720 

80E24730 

80E24740 

80E24750 

80E24760 

80E24770 

80E24780 

80E24790 

80E24800 

80E24810 

80E24820 

80E24830 

80E24840 

80E24850 

80E24860 

80E24870 

80E24880 

80E24890 

80E24900 

80E 24910 

80E24920 

80E24930 

80E24940 

80E24950 

S0E24960 

80E24970 

80E24980 

80E24990 

80E25000 

80E25010 

80E25020 

80E25030 

80E25040 

80E25050 

80E25060 

80E25070 

80E25080 

80E25090 

80E25100 

80E25110 

80E25120 

80E25130 

80E25140 

80E25150 

80E25160 

80E25170 



PROG ID 
PAGE 



1046 OFFE 

1047 FOOO 

1048 4C00 

1049 91FF 

10 4A 1 4400 150C 

104C 1 1B04 

10 4D 1 1794 

104E 0006 

104F 1 4400 15A0 

1051 OOOO 

1052 1 4C00 088F 

1054 1010 

1055 1 D400 0803 
1057 1 4C00 088F 



1059 C127 
10 5A 1000 

105B E104 
105C D1B3 

105D 1 7401 1629 

105F E90C 

1060 1 0400 1780 

106 2 1 4400 141 A 

1064 1089 

1065 100A 

1066 1 4C18 10AD 

106 8 1002 

1069 180D 
106A 1 4C20 1077 

106C C139 
106D 1888 
106E C126 
106F 1088 

1070 1 D400 177F 

1072 1 4400 1458 

1074 1 177F 

1075 CC03 

1076 7004 

1077 C139 

1078 1 D400 177F 

107A C116 
107B 1 0400 1781 

107D 1 4400 1274 
107F OOOA 
1080 OOOO 



080E-0 
19 



JATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 





DC 




/OFFE 




80E25180 






DC 




/FOOO 




80E25190 






DC 




/4C00 




80E25200 






DC 




/91FF 




80E25210 




* 










80E25220 






BSI 


L 


CKDAT 


CHECK DATA 


80E25230 






DC 




XMRCT+1 




80E25240 






DC 




TTBL4 




80E25250 






DC 




6 




80E25260 




* 










80E25270 






BSI 


L 


CKINT 


CHECK FOR 


80E25280 






DC 







UNEXPECTED INTRPT 


80E25290 




* 










80E25300 






BSC 


L 


CNTRL 


EXIT ROUTINE 


80E25310 




* 










80E25320 




RT24A 


SLA 




16 




80E25330 






STO 


L 


SW1 


RESET ROUTINE SELECTION 


80E25340 






BSC 


L 


CNTRL 


RETURN TO CONTROL 


80E25350 




* 










80E25360 




* 










80E25370 




*************************************************** 


80E25380 




* 










80E25390 




* 






TEST ROUTINE 25 


80E2 5400 




* 










80E25410 




*************************************************** 


80E25420 




* 










80E25430 




RTN25 


LD 
NOP 


1 


ETB-T 


LOAD 1ST END CHAR 


80E25440 
80E25450 




* 










80E25460 






AND 


1 


HOOFF-T 




80E25470 






STO 


1 


LOCK-T 


SET VARIABLE DATA I NO 


80E25480 




* 










80E2 5490 






MOX 


L 


LOCK.l 


ADVANCE VARIABLE 


80E25500 




* 










80E25510 






OR 


1 


H8000-T 


STORE END CHAR 


80E25520 






STO 


L 


TBL11+2 


IN DATA TABLE 


80E25530 




* 










80E25540 






BSI 


L 


DCODE 


DECODE CONTROL CHAR 


80E25550 




* 


SLT 
SLA 




9 
10 




80E25560 
80E25570 
80E25580 






BSC 


L 


RT25F.+- 


BR IF INVALID CHAR 


80E25590 




* 


SLA 
SRA 




2 
13 




80E25600 
80E25610 
80E25620 






BSC 


L 


RT25A.Z 


BR IF SHORT END CHAR 


80E25630 




* 










80E25640 






LD 


1 


TBL4+1-T 


STORE 


80E25650 






SRT 




8 


STX CHARACTER 


80E25660 






LD 


1 


STX-T 


IN DATA 


80E25670 






SLT 




8 


TABLE 


80E25680 






STO 


L 


TBL11+1 




80E25690 




* 








- 


80E25700 






BSI 


L 


CALBC 


CALCULATE 


80E25710 






DC 




TBL11+1 


BCC 


80E25720 






DC 




3 




80E25730 




* 










80E25740 






MDX 




RT25B+1 


BRANCH 


80E25750 




* 










80E25760 




RT25A 


LO 


1 


TBL4+1-T 


STORE /7F7F 


80E25770 






STO 


L 


TBL11+1 


STARTING CHARACTERS 


80E25780 




* 










80E25790 




RT25B 


LD 


1 


HFFFF-T 


STORE PADS OR 


80E25800 






STO 


L 


TBL11+3 


BCC IN DATA TABLE 


80E25810 




* 










80E25820 






BSI 


L 


XMRCV 


INITIALIZE CA 


80E25830 






DC 




/OOOA 


TO RECEIVE TABLE 


80E25840 






DC 









80E25850 

PROG ID 
PAGE 


080E-0 
19A 
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* 










80E25860 






1081 1 4400 13CB 




BSI 


L 


GEN 


GENERATE 10 


30E25870 






1083 OOOA 




DC 




10 


CHARACTERS 


80E25880 






1084 1 177E 


* 


DC 




TBL11 


ON RECEIVE LINE 


80E25890 
80E25900 






1085 09A2 


* 


XIO 


1 


CLEAR-T 


CLEAR CA 


80E25910 
80E25920 






1086 1 4400 150C 




BSI 


L 


CKDAT 


CHECK 


80E25930 






1088 1 1804 




DC 




XMRCT+l 


RECEIVED 


80E25940 






1089 I 177F 




DC 




TBLll+1 


DATA 


80E25950 






108A 0004 


* 


DC 




4 




80E25960 
80E25970 






108B 1 C400 1780 




LD 


L 


TBL11+2 


FETCH END CHAR 


80E25980 






108D 1 4400 141A 


* 


BSI 


L 


DCODE 


DECODE CONTROL CHAR 


80E25990 
80E26000 






108F 1092 




SLT 




18 




80E26010 






1090 63FB 


* 


LDX 


3 


-5 




80E26020 
80E26030 






1091 1001 


RT25C 


SLA 




1 




80E26040 






1092 1 4C28 109D 


* 


BSC 


L 


RT25EtZ+ 


BR WHEN DECODE BIT FOUND 


80E26050 
80E25060 






1094 7301 




MDX 


3 


1 




80E26370 






1095 70FB 


* 


MDX 




RT25C 




80E26080 
80E26090 






1096 1 4400 15A0 




BSI 


L 


CKINT 


CHECK FOR 


80E26100 






1098 0000 


* 


DC 







UNEXPECTED INTERRUPT 


80E26110 
80E26120 






1099 1010 


RT25D 


SLA 




16 




80E26130 






109A D1B3 




STO 


1 


LOCK-T 


RESET VARIABLE DATA IND 


80E26140 






109B 1 4C00 088F 


♦ 


BSC 


L 


CNTRL 


RETURN TO CONTROL 


80E26150 
80E26160 






109D 6B09 


RT25E 

* 


STX 


3 


RT25G+1 


SAVE XR3 


80E26170 
80E26180 






109 E 1 4400 15A0 




BSI 


L 


CKINT 


CHECK FOR 


80E26190 






10A0 1080 




DC 




/1080 


END CHARACTER 


80E26200 






10 A 1 0000 




DC 




/OOOO 


DECODED INTERRUPT 


80E26210 






10A2 OFF A 




DC 




/OFFA 




80E26220 






10A3 FOOO 




DC 




/FOOO 




80E26230 






10A4 0000 




DC 




/OOOO 




80E26240 






10A5 FFFF 


* 


DC 




/FFFF 




80E26250 
80E26260 






10A6 6700 0000 


RT25G 


LDX 


L3 


*_* 


RESTORE XR3 


80E26270 






10A8 1 C700 16A3 




LO 


L3 


ITB+1 




80E26280 






10AA D1B3 


* 


STO 


1 


LOCK-T 


SET NEXT ENO CHARACTER 


80E26290 
80E26300 






10AB 1 4C00 088F 


* 


BSC 


L 


CNTRL 


RETURN TO CONTROL 


80E26310 
80E26320 






10A0 1 D400 0805 


RT25F 


STO 


L 


SW3 


RESET INVALID VARIABLE 


80E26330 






10AF 70E9 


* 


MDX 




RT25D 


RETURN TO CONTROL 


80E26340 
80E26350 
80E26360 








*************************************************** 


80E26370 








* 










80E26380 








* 






TEST ROUTINE 26 


80E26390 








* 










80E26400 








*************************************************** 80E26410 








* 










80E26420 






10B0 C11A 


RTN26 


LD 


1 


D4-T 


LOAD INCORRECT BCC 


80E26430 






10B1 1000 


* 


NOP 








80E26440 
80E26450 






10B2 1008 




SLA 




8 


PLACE IN 


80E26460 






10B3 1 0400 160C 


* 


STO 


L 


T8LC+1 


DATA TABLE 


80E26470 
80E26480 






10B5 1808 




SRA 




8 


SET VARIABLE 


80E26490 






10B6 8117 




A 


1 


Ol-T 


DATA IND 


80E26500 






10B7 01B3 


* 


STO 


1 


LOCK-T 




80E26510 
80E26520 






10B8 1 4400 1458 




BSI 


L 


CALBC 


CALCULATE 


80E26530 




JATE 


14N0V69 30JAN70 












PROG ID 
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EC NO. 


431319 431319A 












PAGE 


20 



10BA 1 16DB 
10BB 0001 

10BC E104 
10B0 1 ECOO 16DC 
10BF 1 D400 16DC 

10C1 FlBF 
10C2 4818 
10C3 D166 

IOC 4 1 4400 1274 
10C6 0008 
10C7 COOO 

10C8 1 4400 13C8 
IOC A 0008 
10CB 1 16DA 

10CC 1 4400 14BD 

10CE 09A2 



10CF 
10D1 
10D2 
10D3 
10D4 
10D5 
1006 



4400 14CC 

0080 

OOOO 

OFFA 

FOOO 

0400 

91FF 



10D7 1 4400 150C 
10D9 1 1B04 
10DA 1 16DB 
100B 0002 



10DC 


1 


4400 


15A0 


10DE 





1280 




10DF 





OOOO 




10E0 





OFFA 




10E1 





FOOO 




10E2 





0400 




10E3 





91FF 





10E4 C1B3 
10E5 1008 
10£6 4818 
10E7 D1B3 
10E8 1 4C00 088F 



DC 

DC 

AND 

OR 

STO 

EOR 
BSC 
STO 

BSI 

DC 

DC 

BSI 

DC 
DC 

BSI 

XIO 

BSI 

DC 
DC 
DC 
DC 
DC 
DC 

BSI 
DC 

DC 
DC 

BSI 

DC 
DC 
DC 
DC 
DC 
DC 

LD 

SLA 

BSC 

STO 

BSC 



TBLC 

1 

1 HOOFF-T 
L TBLC+1 
L TBLC+1 

1 BCCA-T 

+- 
1 TBLC+l-T 

L XMRCV 
/0008 


L GEN 
8 
TBLC-1 

L SENSE 

1 CLEAR-T 

L CKDSW 
/0080 
/OOOO 
/OFFA 
/FOOO 
/0400 
/91FF 

L CKDAT 
XMRCT+1 
TBLC 

2 

L CKINT 
/1280 
/OOOO 
/OFFA 
/FOOO 
/0400 
/91FF 

1 LOCK-T 
8 

+- 
1 LOCK-T 
L CNTRL 



BCC CHARS 



PLACE BCC 
IN TABLE 



CMPR WITH CALCULATED BCC 
SET TO ZERO 
IF EQUAL 

INITIALIZE CA TO 
RECEIVE TABLE 



GENERATE MESSAGE ON 
RECEIVE OATA LINE 



SENSE DSW'S 
CLEAR CA 
CHECK DSW'S 



CHECK DATA 



CHECK FOR 
END CHAR DECODED 
INTERRUPT 



CHECK VARIABLE 
DATA 



RETURN TO CONTROL SUBRTN 



10EA 1000 

10EB 1 4400 1274 
10ED 0006 
10EE OOOO 

10EF 1 2C41 1B04 

10F1 1 4400 13CB 
10F3 0006 
10F4 1 16A6 



* 

* 

*************************************************** 

* 

* TEST ROUTINE 27 

* 

*************************************************** 

* 



INITIALIZE CA TO 
RECEIVE TABLE 



RTN27 


NOP 






* 










BSI 


L 


XMRCV 




DC 




/0006 




DC 







* 










STS 


L 


XMRCT+ 


* 










BSI 


L 


GEN 




DC 




6 




DC 




TBL2-1 



XMRCT+lt/41 SET STORAGE PROTECT BIT 



GENERATE MSG ON 
RECEIVE DATA LINE 



JATE 
tC NO. 



14N0V69 
431319 



30JAN70 
431319A 



80E2 6540 

80E26550 

80E26560 

80E26570 

80E26580 

80E26590 

80E26600 

80E26610 

80E26620 

80E26630 

80E26640 

80E26650 

80E26660 

80E26670 

80E26680 

80E26690 

80E26700 

80E26710 

80E26720 

80E26730 

80E26740 

80E26750 

80E26760 

80E26770 

80E26780 

80E26790 

80E26800 

80E26810 

80E26820 

80E26830 

80E26840 

80E26850 

80E26860 

80E26870 

80E26880 

80E26890 

80E 26900 

80E26910 

80E26920 

80E26930 

80 E 269 40 

80E26950 

80E26960 

80E26970 

80E26980 

80E26990 

80E27000 

80E27010 

80E27020 

80E27030 

80E27040 

80E27050 

80E27060 

80E27070 

80E27080 

80E27090 

80E27100 

80E27110 

80E27120 

80E27130 

80E27140 

80E27150 

80E27160 

80E27170 

80E27180 

80E27190 

80E27200 

80E27210 



PROG I D 
PAGE 



080E-0 
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(I 



II 
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F 
L 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
rCA WRAP AROUND TEST 



PART NO. 
PAGE 



2279476 
21 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
iCA WRAP AROUNO TEST 



PART NO. 
PAGE 



2279 476 
21A 



10F5 1 4400 14BD 
10F7 09A2 



10F8 


1 


4400 


l^CC 


10FA 





0080 




10FB 





0400 




10FC 





OFFD 




IOFD 





FOOO 




10FE 





4000 




10FF 





9 IFF 




1100 


1 


4400 


150C 


1102 


1 


1B04 




1103 


1 


1B07 




1104 





0002 




1105 


1 


4400 


15A0 


1107 





C080 




1108 





0000 




1109 





OFFB 




110A 





FOOO 




HOB 





4000 




HOC 





91FF 





HOD 1 4C00 088F 



11 OF 1000 

1110 1 4400 1274 

1112 A0F8 

1113 1 16DE 

1114 00F6 

1115 C109 



1116 


1 


4400 


15A0 


1118 





0880 




1119 





0000 




111A 





0F09 




111B 





FOOO 




111C 





0000 




HID 





91FF 




HIE 





1810 




111F 


1 


D400 


15D7 



1121 1 4400 13CB 

1123 0109 

1124 1 1C93 

1125 1 4400 14BD 
1127 09A2 



1128 1 
112A 
112B 
112C 
1120 
112E 



4400 14CC 

0080 

0000 

OFFF 

FOOO 

4000 



BSI 
XIO 

BSI 

DC 
DC 
DC 
DC 
DC 
DC 

BSI 

DC 
DC 
DC 

BSI 

DC 
DC 
DC 
DC 
DC 
DC 

BSC 

* 

********** 

* 

* 

* 

********** 

* 

RTN28 NOP 

BSI 
DC 

DC 
DC 
DC 

BSI 

DC 
DC 
DC 
DC 
DC 
DC 
* 

SRA 
STO 

BSI 

DC 
DC 

BSI 
XIO 

BSI 

DC 
DC 
DC 
DC 
DC 



SENSE 

1 CLEAR-T 

CKDSW 
/0080 
/0400 
/OFFD 
/FOOO 
/4000 
/91FF 

. CKDAT 
XMRCT+1 
XMRCT+4 
2 

CKINT 
/C080 
/OOOO 
/OFFB 
/FOOO 
/4000 
/91FF 

CNTRL 



SENSE DSW'S 
CLEAR CA 
CHECK DSW'S 



CHECK DATA 



CHECK FOR 
STORAGE PROTECT VIOLATE 
INTERRUPT 



EXIT ROUTINE 



***************************************** 

TEST ROUTINE 28 
***************************************** 



L XMRCV 
/A0F8 
TBLD 
/00F6 
265 

L CKINT 
/0880 
/OOOO 
/OF 09 
/FOOO 
/OOOO 
/91FF 

16 

L INT 

L GEN 
265 
SRCTB 

L SENSE 

1 CLEAR-T 

L C KDSW 
/0080 
/OOOO 
/OFFF 
/FOOO 
/4000 



INITIALIZE CA TO TRANSMIT 
TABLE CHAINED TO 
RECEIVE TABLE AND 
RETRIEVE DATA 
TRANSMITTED 

CHECK FOR 
TABLE COMPLETE 
INTERRUPT 



CLEAR INTRPT 
ENTRY POINT 

GENERATE PROGRAMMED 

RECEIVE MESSAGE ON 

RECEIVE DATA LINE 

SENSE DSW'S 

CLEAR CA 

CHECK DSW'S 



UATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



80E27220 


112F 





91FF 




80E27230 










80E27240 


1130 


1 


6780 


1642 


80E27250 


1132 





7301 




80E27260 


1133 





6802 




80E27270 










80E27280 


1134 


1 


4400 


15 OC 


80E27290 


1136 





OOOO 




80E2 73 00 


113 7 


1 


16DE 




80E27310 


1138 





00F6 




80E27320 










80E27330 


1139 


1 


4400 


15A0 


80E2 7340 


113B 





0880 




80E27350 


113C 





OOOO 




80E27360 


113D 





OFFF 




80E27370 


113E 





FOOO 




80E27380 


113F 





4000 




80E27390 


1140 





91FF 




80E27400 










80E27410 


1141 


1 


4C00 


088F 


80E27420 










80E27430 










80E27440 










80E27450 










80E27460 










80E27470 










80E27480 










80E27490 










80E27500 










80E27510 










80E275 20 


1143 





1000 




80E27530 










80E27540 


1144 


1 


6C00 


1640 


80E27550 










80E27560 


1146 


1 


4400 


1274 


80E27570 


1148 





A008 




80E27580 


1149 


1 


175A 




80E27590 


114A 





0004 




80E27600 


114B 





0C11 




80E27610 










80E27620 


114C 


1 


4400 


15A0 


80E27630 


114E 





0880 




80E27640 


114F 





OOOO 




80E27650 


1150 





OFFB 




80E27660 


1151 





FOOO 




80E27670 


1152 





OOOO 




80E27680 


1153 





9 IFF 




80E27690 










80E27700 


1154 





1810 




80E27710 


1155 


1 


D400 


15D7 


80E27720 










80E27730 


1157 


1 


4400 


13CB 


80E27740 


1159 





0006 




80E27750 


115A 


1 


175E 




80E27760 










80E27770 


115B 


1 


4400 


14BD 


80E27780 










80E27790 


115D 





09A2 




80E27800 










80E27810 


115E 


1 


6780 


1642 


80E27820 


1160 





6203 




80E27830 


1161 





C302 




80E27840 


1162 





£115 




80E27850 


1163 





D302 




80E27860 


1164 





7302 




80E27870 


1165 





72FF 




80E27880 


1166 





70FA 




80E27890 
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EC NO. 431319 431319A 



DC 



/91FF 





LDX 


13 


XRTB2 




MDX 


3 


1 




STX 


3 


*+2 


* 










BSI 


L 


CKDAT 




DC 




*-* 




DC 




TBLD 




DC 




246 


* 










BSI 


L 


CKINT 




DC 




/0880 




DC 




/OOOO 




DC 




/OFFF 




DC 




/FOOO 




DC 




/4000 




DC 




/91FF 


* 










BSC 


L 


CNTRL 


* 








* 








* 








* 









GET RECEIVE TABLE ADDR 
SAVE ADDR FOR DATA COMPARE 
CHECK DATA 



CHECK FOR 
END OF TABLE 
INTRPT 



EXIT ROUTINE 



*************************************************** 

* 

* TEST ROUTINE 29 

* 

*************************************************** 

* 



RTN29 NOP 
* 

STX 



BSI 

DC 

DC 

DC 

DC 

BSI 

DC 

DC 

DC 

DC 

DC 

DC 

SRA 
STO 

BSI 

OC 

DC 

BSI 

XIO 

LDX 

LDX 

LD 

AND 

STO 

MDX 

MDX 

MDX 



DIAGS 

XMRCV 

/A008 

TBLE 

/0004 

17 

CKINT 
/0880 
/OOOO 
/OFFB 
/FOOO 
/OOOO 
/91FF 

16 
INT 

GEN 

6 

TBLF 

SENSE 

1 CLEAR-T 



13 XRTB2 

2 3 

3 2 

1 HEFFF-T 
3 2 

3 2 

2 -1 
*-6 



INDICATE DIAGNOSTIC MODE 

INITIALIZE CA TO TRANSMIT 
TABLE CHAINED TO RECEIVE 
TABLE IN DIAGNOSTIC MODE 
AND RETRIEVE 



CHECK FOR 
TABLE COMPLETE INTRPT 



CLEAR INTERRUPT 
ENTRY POINT 

GENERATE PROGRAMMED 
RECEIVE MESSAGE ON 
RECEIVE LINE 

SENSE DSW'S 

CLEAR CA 



80E27900 
80E27910 
80E27920 
80E27930 
80E27940 
80E27950 
80E27960 
80E27970 
80E27980 
80E27990 
80E28000 
80E28010 
80E28020 
80E28030 
80E28040 
80E28050 
80E28060 
80E28070 
80E28080 
80E2 8090 
80E28100 
80E28110 
80E28120 
80E28130 
80E28140 
80E28150 
80E28160 
80E28170 
80E28180 
80E28190 
80E28200 
80E28210 
80E28220 
80E28230 
80E28240 
80E28250 
80E28260 
80E28270 
80E28280 
80E28 290 
80E28300 
80E28310 
80E28320 
80E28330 
80E28340 
80E28350 
80E28360 
80E28370 
80E28380 
80E28390 
80E2 8400 
80E28410 
80E28420 
80E28430 
80E28440 
80E28450 
80E28460 
80E28470 
80E28480 
80E28490 
80E28500 
80E28510 
80E28520 
80E28530 
80E28540 
80E28550 
80E28560 
80E28570 
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1167 


1 


4400 


14CC 


1169 





0080 




116A 





0000 




116B 





OFFF 




116C 





FOOO 




116D 





4400 




116E 





91FF 




116F 


1 


4400 


150C 


1171 


1 


1B03 




1172 


1 


1761 




1173 





003 A 





1174 
1176 
1177 
1178 
1179 
117A 
117B 



4400 15A0 

0880 

0000 

OFFF 

FOOO 

4400 

91FF 



117C 1 4C00 088F 



117E 
117F 1 

1181 

1182 



1000 
4400 13FE 

C118 

D1B6 



1183 1 6680 162C 



1185 1 
1187 1 

1189 1 
118B 1 

1180 
118E 



OCOO 1620 

4C10 1185 

OCOO 1620 

4C28 1189 

72FF 
70FE 



118F 1 7401 162C 



1191 1 
1193 1 

1195 

1196 

1197 

1198 1 
119A 
1198 



OCOO 162 
4C10 1183 

C1B6 
1801 
D1B6 

4400 1274 
0006 

0000 



119C 1 6680 162C 



BSI 

DC 

DC 

DC 

DC 

DC 

DC 

BSI 
DC 

DC 
DC 

BSI 

DC 
DC 
DC 
DC 
DC 
DC 



CKDSW 
/0080 
/OOOO 
/OFFF 
/FOOO 
/4400 
/91FF 

CKDAT 
XMRCT 
TBL10 
58 

CKINT 
/0880 
/OOOO 
/OFFF 
/FOOO 
/4400 
/91FF 



CHECK DSW'S 



CHECK DATA 



CHECK FOR 
TABLE COMPLETE INTRPT 



BSC L CNTRL 



EXIT ROUTINE 



* 

* 

* 

*************************************************** 

* 

* TEST ROUTINE 2A 

* 

*************************************************** 

* 

RTN2A NOP 

* 

BSI 

* 

LD 

STO 
* 

RN2AA LDX 
* 

XIO 

BSC 
* 
RN2AB XIO 

BSC 



119E 1 

UAO 1 



OCOO 162 
4C10 119E 



L CKTIM 

1 D2-T 
1 DLYCT-T 

12 DLYCT 



SNSBC 
RN2AA+2,- 

SNSBC 
RN2AB.Z+ 



MDX 
MDX 



2 -1 
*-2 



MDX L DLYCT, 1 



XIO 
BSC 

* 

LD 

SRA 

STO 

* 

BSI 

DC 

DC 

* 

RN2AC LDX 

* 

XIO 
BSC 

* 



SNSBC 
RN2AA,- 

1 DLYCT-T 

1 
1 DLYCT-T 

XMRCV 

/0006 




12 DLYCT 



SNSBC 
RN2AC+2,- 



CHECK TRANSMIT TIMING 

INITIALIZE DELAY 
-OUNT 

LOAD DELAY COUNT 

WAIT FOR POSITIVE STATE 
OF TRANSMIT TIMING 

WAIT FOR NEGATIVE SHIFT 
OF TRANSMIT TIMING 

DELAY-DECRE 
XR2 TO ZERO 

INC RE DELAY COUNT 

BR IF XMIT TIMING 
STILL NEGATIVE 

DIVIDE DELAY 
COUNT BY 
TWO 

INITIALIZE CA 
TO RECEIVE TABLE 



LOAD DELAY COUNT 

WAIT FOR POSITIVE STATE 
OF XMIT TIMING 



i)ATE 
EC NO. 



14N0V69 
431319 



3 0JAN70 
431319A 



80E28580 

80E28590 

80E28600 

80E28610 

80E2 8620 

80E28630 

80E28640 

80E28650 

80E28660 

80E28670 

80E28680 

80E28690 

80E28700 

80E28710 

80E28720 

80E28730 

80E28740 

80E28750 

80E28760 

80E28770 

80E28780 

80E28790 

80E28800 

80E28810 

80E28820 

80E28830 

80E28840 

80E28850 

80E28860 

80E28870 

80E28880 

80E28890 

80E28900 

80E28910 

80E289 20 

80E28930 

80E28940 

80E28950 

80E28960 

80E28970 

80E28980 

80E28990 

80E29000 

80E 29010 

80E29020 

80E29030 

80E29040 

80E293 50 

80E29060 

80E29070 

80E29080 

80E29090 

80E29100 

80E29110 

80E29120 

80E29130 

80E29140 

80E29150 

80E29160 

80E29170 

80E29180 

80E29190 

80E29200 

80E29210 

80E29220 

80E29230 

80E29240 

80E29250 
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J ATE 

tC NO. 



11A2 1 OCOO 1620 


RN2AD 


XIO 


L SNSBC 


WAIT FOR NEGATIVE SHIFT 


80E292 60 




11A4 1 4C28 11A2 


* 


BSC 


L RN2AD.Z* 


OF XMIT TIMING 


80E29270 
80E29280 




11A6 72FF 




MDX 


2 -1 


DELAY-DECRE 


80E29290 




11A7 70FE 


* 


MDX 


*-2 


XR2 TO ZERO 


80E 29300 
80E29310 




11A8 1 OCOO 1624 


* 


XIO 


L SETRC 


CHANGE RECEIVE LINE STATUS 


80E29320 
80E29330 




11AA 6780 0134 




LDX 


13 MAT 


CHECK CONSOLE INTERRUPT 


80E29 340 




11AC C305 




LD 


3 5 


ROUTINE BUSY INDICATOR 


80E29350 




HAD 1 4C18 119C 


* 


BSC 


L RN2AC+- 


BR IF NOT ON 


80E29360 
80E29370 




HAF 09A2 


* 


XIO 


1 CLEAR-T 


CLEAR CA 


80E29380 
80E29390 




HBO 1 4C00 088F 


* 
* 


BSC 


L CNTRL 


EXIT ROUTINE 


80E29400 
80E29410 
80E29420 






*************************************************** 


80E 29430 






* 








80E 29440 






* 




TEST ROUTINE 2B 


80E29450 






* 








80E29460 






*************************************************** 


80E 29470 






* 








80E29480 




11B2 1000 


RTN2B 

* 


NOP 






80E29490 
80E29500 




11B3 1 4400 13FE 


* 


BSI 


L CKTIM 


CHECK TRANSMIT TIMING 


80E29510 
80E29520 




11B5 C118 




LD 


I D2-T 


INITIALIZE DELAY 


80E29530 




11B6 D1B6 


* 


STO 


1 DLYCT-T 


COUNT 


80E29540 
80E29550 




UB7 1 6680 162C 


RN2BA 

* 


LDX 


12 DLYCT 


LOAD DELAY COUNT 


80E29560 
80E29570 




11B9 1 OCOO 1620 




XIO 


L SNSBC 


WAIT FOR POSITIVE STATE 


80E29580 




11BB 1 4C10 11B9 


* 


BSC 


L RN2BA+2,- 


OF TRANSMIT TIMING 


80E29590 
80E29600 




11BD 1 OCOO 1620 


RN2BB 


XIO 


L SNSBC 


WAIT FOR NEGATIVE SHIFT 


80E29610 




11BF 1 4C28 HBD 


* 


BSC 


L RN2BB.Z* 


OF TRANSMIT TIMING 


80E29620 
80E29630 




11C1 72FF 




MDX 


2 -1 


DELAY-DECRE 


80E29640 




11C 2 70FE 


* 


MDX 


*-2 


XR2 TO ZERO 


80E29650 
80E29660 




11C3 1 7401 162C 


* 


MDX 


L DLYCT, 1 


INC RE DELAY COUNT 


80E29670 
80E29680 




11C 5 1 OCOO 1620 




XIO 


L SNSBC 


BR IF XMIT TIMING 


80E29690 




11C7 1 4C10 11B7 


* 


BSC 


L RN2BA,- 


STILL NEGATIVE 


80E29700 
80E29710 




11C9 C1B6 




LD 


1 DLYCT-T 


INCREASE 


80E29720 




11CA 1801 




SRA 


1 


DELAY 


80E29730 




11CB 81B6 




A 


1 DLYCT-T 


COUNT 


80E29740 




11CC D1B6 


* 


STO 


1 DLYCT-T 


BY HALF 


80E29750 
80E29760 




11CD 1 4400 1274 




BSI 


L XMRCV 


INITIALIZE CA 


80E29770 




11CF 0006 




DC 


/0006 


TO RECEIVE TABLE 


80E29780 




11D0 OOOO 


* 


DC 







80E29790 
80E29800 




11D1 1 6680 162C 


RN2BC 

* 


LDX 


12 DLYCT 


LOAD DELAY COUNT 


80E29810 
80E29820 




11D3 1 OCOO 1620 




XIO 


L SNSBC 


WAIT FOR POSITIVE STATE 


80E29830 




11D5 1 4C10 11D3 


* 


BSC 


L RN2BC+2,- 


OF XMIT TIMING 


80E29840 
80E29850 




1107 1 OCOO 1620 


RN2BC 


) XIO 


L SNSBC 


WAIT FOR NEGATIVE SHIFT 


80E29860 




11D9 1 4C28 11D7 


* 


BSC 


L RN2BDtZ+ 


OF XMIT TIMING 


80E29870 
80E29880 




HOB 72FF 




MDX 


2 -1 


DELAY-DECRE 


80E29890 




HOC 70FE 


* 


MDX 


*-2 


XR2 TO ZERO 


80E29900 
80E29910 




HDD 1 OCOO 1624 




XIO 


L SETRC 


CHANGE RECEIVE LINE STATUS 80E29920 






* 








80E29930 
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11DF 6780 0134 
11E1 C305 
11E2 1 4C18 11D1 

11E4 09A2 

11E5 1 4C00 088F 



11E7 1000 

11E8 1 4400 1274 
11EA A0F8 
11EB 1 16DE 
11EC 00F6 
11ED 0109 

11EE 1 4400 15A0 
11F0 0880 
11F1 0000 
11F2 0F09 
11F3 FOOO 
11F4 0000 
11F5 91FF 

11F6 1810 
11F7 1 0400 1507 

11F9 1 4400 13CB 
11FB 010A 
HFC 1 1C93 

11FD 1 4400 14B0 

UFF 09 A2 



1200 
1202 
1203 



4400 14CC 

0080 

0000 



1204 OFFF 

1205 FOOO 







1206 
1207 



4000 
91FF 



1208 1 6780 1642 
120A 7301 
120B 6B02 



LDX 

LD 

BSC 

XIO 

BSC 



13 MAT 
3 5 
L RN2BC+- 

1 CLEAR-T 

L CNTRL 



CHECK CONSOLE INTERRUPT 
ROUTINE BUSY INDICATOR 
BR IF NOT ON 

CLEAR CA 

EXIT ROUTINE 



*************************************************** 

* 

* TEST ROUTINE 2C 

* 

*************************************************** 

* 

RTN2C NOP 

* 



* 
* 
* 



120C 


1 


4400 


150C 


120E 





0000 




120F 


1 


160E 




1210 





00F6 




1211 


1 


4400 


15A0 


1213 





0880 




1214 





0000 




1215 





OFFF 




1216 





FOOO 




1217 





4000 




1218 





91FF 





1219 1 4C00 088F 



BSI 
DC 

DC 
DC 
DC 

BSI 

DC 
DC 
DC 
DC 
DC 
DC 

SRA 
STO 

BSI 

DC 
DC 

BSI 

XIO 

BSI 

DC 
DC 
DC 
DC 
DC 
DC 

LDX 
MDX 
STX 

BSI 
DC 

DC 
DC 

BSI 

DC 
DC 
DC 
DC 
DC 
DC 



XMRCV 
/A0F8 
TBLD 
/OOF 6 
265 

CKINT 
/0880 
/OOOO 
/0F09 
/FOOO 
/OOOO 
/91FF 

INT 

. GEN 
266 
SRCTB 

. SENSE 

1 CLEAR-T 

L CKDSW 
/0080 
/OOOO 
/OFFF 
/FOOO 
/4000 
/91FF 



13 XRTB2 
3 1 
3 *+2 

L C KDAT 
*-* 
TBLD 
246 

L CKINT 
/0880 
/OOOO 
/OFFF 
/FOOO 
/4000 
/91FF 



BSC L CNTRL 



INITIALIZE CA TO TRANSMIT 
TABLE CHAINED TO 
RECEIVE TABLE AND 
RETRIEVE DATA 
TRANSMITTED 

CHECK FOR 
TABLE COMPLETE 
INTERRUPT 



CLEAR INTRPT 
ENTRY POINT 

GENERATE PROGRAMMED 

RECEIVE MESSAGE ON 

RECEIVE DATA LINE 

SENSE DSW'S 

CLEAR CA 

CHECK DSW'S 



GET RECEIVE TABLE ADDR 
SAVE ADDR FOR DATA COMPARE 
CHECK DATA 



CHECK FOR 
TABLE COMPLETE INTRPT 



EXIT ROUTINE 



iMTE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



80E2994P 
80E29950 
80E29960 
80E29970 
80E29980 
80E29990 
80E30000 
80E33310 
80E30020 
80E30030 
80E30040 
80E30050 
80E30060 
80E30070 
80E30380 
80E30090 
80E30100 
80E30110 
80E30120 
80E30130 
80E30140 
80E30150 
80E30160 
80E30170 
80E30180 
80E30190 
80E3 0200 
80E30210 
80E30220 
80E30230 
80E30240 
80E30250 
80E30260 
80E30270 
80E30280 
80E30290 
80E30300 
80E30310 
80E30320 
80E30330 
80E30340 
80E30350 
80E30360 
80E30370 
80E30380 
80E30390 
80E30400 
80E30410 
80E30420 
80E30430 
80E30440 
80E30450 
80E30460 
80E30470 
80E30480 
80E30490 
80E30500 
80E30510 
80E30520 
80E30530 
80E30540 
80E30550 
80E30560 
80E30570 
80E30580 
80E30590 
80E30600 
80E30610 



PROG ID 
PAGE 



080E-0 
23 



JATE 
EC NO. 











* 










80E30620 












* 










80E30630 












* 










80E30640 












* 










80E30650 












*************************************************** 


80E30660 












* 










80E30670 












* 






MONITOR 


LOG CALL ROUTINE 


80E30680 












* 










80E30690 












*************************************************** 


80E30700 












* 










80E30710 




1218 





OOOO 




PRINT 

* 


DC 




*-* 


ENTRY 


80E3 072 
80E30730 




121C 





6A0C 




* 


STX 


2 


PRNT2 


STORE LOG STRING ADDR 


80E30740 
80E30750 




121D 





COFD 






LD 




PRINT 


STORE TERMINATION 


80E30760 




121E 





DOOC 




* 


STO 




PRNT3 


RETURN ADDRESS 


80E30770 
80E30780 




121F 


1 


6700 


1225 


PRNTO 


LDX 


L3 


PRNT1 


SET MLSCF RETURN 


80E3 0790 




1221 


1 


6F00 


0809 




STX 


L3 


MLSCF 


TO LOG CALL 


80E30800 




1223 





4C80 


012D 


* 


BSC 


I 


START 


GO TO MONITOR 


80E30810 
80E30820 




1225 


1 


6500 


1676 


PRNT1 

* 


LDX 


LI 


T 


RESTORE XR1 


80E3 0830 
80E30840 




1227 





4480 


012F 




BSI 


I 


LOG 


CALL LOG 


80E30850 




1229 





OOOO 




PRNT2 


DC 




*-* 




80E30860 




122A 


1 


121F 






DC 




PRNTO 




80E30870 




122B 





OOOO 




PRNT3 

* 


DC 




*-* 




80E 30880 
80E30890 




122C 





4C80 


012D 


* 
* 


BSC 


1 


START 


GO TO MONITOR 


80E30900 
80E30910 
80E30920 












*************************************************** 


80E30930 












* 










80E30940 












* 






ERROR PRINT ROUTINE 


80E309 50 












* 










80E30960 












*************************************************** 


80E30970 












* 










80E30980 




122E 





OOOO 




ERPRT 

* 


DC 




*-* 


ENTRY 


80E30990 
80E31000 




122F 





6A0A 




* 


STX 


2 


ERPR1+4 


STO MSG STRING ADDR 


80E31010 
80E31020 




1230 


1 


6700 


1236 




LDX 


L3 


ERPR1 


SET MLSCF RETURN 


80E31030 




1232 


1 


6F00 


0809 




STX 


L3 


MLSCF 


TO LOG CALL 


80E31040 




1234 





4C80 


012D 


* 


BSC 


I 


START 


GO TO MONITOR 


80E3I050 
80E31060 




1236 


1 


6500 


1676 


ERPR1 

* 


LOX 


LI 


T 


RESTORE XR1 


80E31070 
80E31080 




1238 





4480 


0130 




BSI 


I 


ERROR 


PRINT ERROR MESSAGE 


80E31090 




123A 





OOOO 






DC 




*-* 




80E3110O 




123B 


1 


1230 






DC 




ERPRT+2 




80E3H10 




123C 


1 


1270 




* 


DC 




ERPR4 




80E31120 
80E31130 




1230 


1 


C480 


123A 


ERPR2 


LD 


I 


ERPR1+4 


- 


80E31140 




123F 


1 


4C28 


1248 


* 


BSC 


L 


ERPR5.Z+ 


BR IF CONTINUATION LINE 


80E31150 
80E31160 




1241 


1 


6780 


1627 




LDX 


13 


LINE 


INCREMENT 


80E31170 




1243 


1 


C700 


164D 




LD 


L3 


ERCT-1 


ERROR COUNT 


80E31180 




1245 





8117 






A 


1 


Dl-T 


FOR SUMMARY 


80E31190 




1246 


1 


0700 


164D 


* 


STO 


L3 


ERCT-1 


PRINTOUT 


80E31200 
80E31210 




1248 


1 


C400 


0802 


ERPR5 


LD 


L 


SWO 


CK CONTROL OPTIONS 


80E31220 




124A 





100F 






SLA 




15 




80E31230 




124B 


1 


4C10 


1267 


* 


BSC 


L 


ERPR3,- 


8R IF NO LOCK ON ERROR 


80E31240 
80E31250 




124D 


1 


C400 


0803 




LD 


L 


SW1 




80E31260 




124F 





1008 






SLA 




8 




80E31270 




1250 


1 


4C20 


12 56 


* 


BSC 


L 


*+4,Z 


BR IF RTN SELECTED 


80E31280 
80E31290 




14N0V69 30JAN70 
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1252 1 C400 0800 
1254 1 D400 0803 

1256 1 6780 1627 

1258 C10C 

1259 1B00 
125A 1001 
125B 1 D400 0804 
125D D1D7 

125E 1 C400 0805 

1260 1 4C28 1267 

1262 C1B3 

1263 9117 

1264 E90C 

1265 1 D400 0805 

1267 1 C400 0802 

1269 100E 
126A 1 4C90 122E 

126C 1010 
126D D1B3 
126E 1 4C00 088F 

1270 C1B3 

1271 E90C 

1272 D1B4 

1273 70C9 



LD 
STO 



RID 
SHI 



1274 0000 

1275 C1A5 

1276 E903 

1277 F103 

1278 1 7400 1640 
127A F103 
127B D1A5 

127C 1010 

127D 6700 FCEO 

127F 1 D700 1E23 

1281 7301 

12 82 70FC 

12 83 1 6600 1B03 

128 5 1 6E00 1642 
1287 1 C480 1274 
1289 1 7401 1274 

128B D200 
128C 188D 
1280 1 4C04 12AA 



128F 1080 
1290 1 4C10 134F 



LDX 13 LINE 

LD 1 H8000-T 

SRA 3 

SLA 1 

STO L SW2 

STO 1 LINES-T 



LD 
BSC 

LD 
S 

OR 
STO 



L SW3 

L ERPR3.Z+ 

1 LOCK-T 
1 Dl-T 
1 H8000-T 
L SW3 



FORCE ROUTINE 
SELECTION 

FORCE 
DE-SELECTION 
OF ALL LINES 
EXCEPT LINE 
CAUSING 
ERROR 

CK VARIABLE DATA 

BR IF VARIABLE SELECTED 

FORCE 
SELECTION 
OF VARIABLE 
DATA 



L SHO 

14 
I ERPRT,- 

16 
1 LOCK-T 
L CNTRL 

1 LOCK-T 

1 H8000-T 

1 ERLOK-T 

ERPR2 



CK CONTROL OPTIONS 

BR IF NOT ERR TERMINATE 



RESET RTN LOCK IND 
RETURN TO CONTROL 



SET LOOP ON ERROR IND 

GO TO CK OPTION SELECTION 



ERPR3 LD 

SLA 

BSC 
* 

SLA 

STO 

BSC 

ERPR4 LD 
OR 
STO 

MDX 

*************************************************** 

* 

* BUILD XMIT/RCV TABLES AND INITIALIZE 

* 
*************************************************** 

XMRCV DC *-* ENTRY 

* 

LD 1 INITL+1-T SET UP 

OR 1 H0080-T INITIALIZE IOCC 

EOR 1 H0080-T FOR NORMAL MODE 

MDX L DIAGS IF DIAG MODE IND 

EOR 1 H0080-T IS ON, CHANGE INITIALIZE 

STO 1 INITL+1-T IOCC TO DIAGNOSTIC MODE 

* 

SLA 16 CLEAR 

LDX L3 XMRCT-BGIN TABLE 



XMRC1 STO L3 BGIN 
MDX 3 1 
MDX XMRC1 

* 

LDX L2 XMRCT 

XMRC2 STX L2 XRTB2 

LD I XMRCV 

MDX L XMRCV, 1 

* 

STO 2 

SRT 13 

BSC L XMRC3.E 



BUILD 
AREAS 



XR2=XMIT/RCV T8L ADDR 

SAVE TABLE ADDRESS 

FETCH BYTE COUNT FROM CALL 

POINT TO NEXT PARAMETER 



BRANCH IF XMIT TABLE 



SLT 

BSC 



BUILD RECEIVE TABLE 

BRANCH IF NO CHAIN 



13 
L CAIO,- 



80E31300 

80E31310 

80E31320 

80E31330 

80E3134P 

80E31350 

80E31360 

80E31370 

80E31380 

80E31390 

80F31400 

80E31410 

80E31420 

80E31430 

80E31440 

80E31450 

80E31460 

80E31470 

80E31480 

80E3149C 

80E31500 

80E31510 

80E31520 

80E31530 

80E31540 

80E31550 

80E31560 

80E31570 

80E31580 

80E31590 

80E31600 

80E31610 

80E31620 

80E31630 

80E31640 

80E31650 

80E31660 

80E31670 

80E31680 

80E31690 

80E31700 

80E31710 

80E31720 

80E31730 

80E31740 

80E31750 

80E31760 

80E31770 

80E31780 

80E31790 

80E31800 

80E31810 

80E31820 

80E31830 

80E31840 

80E31850 

80E31860 

80E31870 

80E31880 

80E31890 

80E31900 

80E31910 

80E31920 

80E31930 

80E31940 

80E31950 

80E31960 

80E31970 



1292 





8117 


1293 





1004 


1294 





1805 


1295 





D001 


1296 





7600 0000 


1298 





7202 


1299 





80EA 


129A 





8117 


129B 





02FF 



129C 1 C480 1274 

129E 1 4C20 1285 

12A0 C10F 

12A1 D200 

12A2 C2FF 

12A3 D202 

12A4 1 6E00 1642 

12A6 1 7401 1B03 

12A8 1 4C00 134F 



12AA 1080 
12AB D1B8 

12AC 1004 
12AD 1804 
12AE D1B9 

12AF I C480 1274 
12B1 1 7401 1274 
12B3 01BA 

12B4 C1A5 
12B5 1008 
12B6 1 4C28 12E9 

12B8 10A0 

12B9 C1B9 

12BA 1 4C04 12C0 

12BC 1 C480 1630 
12BE D201 
12BF 7005 

12C0 1 C480 1630 
12C2 18C8 
12C3 D201 
12C4 18C8 

12C5 7201 

12C6 1 7401 1630 

12C8 1 74FE 162F 

12CA 70EE 

12CB 7202 

12CC C1B8 
12CD 1 4C10 134F 

12CF 1 6E00 1642 
1201 C1CC 



A 


1 Dl-T 


SLA 


4 


SRA 


5 


STO 


* + l 


MDX 


L2 *-* 


MDX 


2 2 


4* 

A 


XMRC2-1 


A 


1 Ol-T 


STO 


2 -1 


LD 


I XMRCV 


BSC 


L XMRC2.Z 


LD 


1 HC002-T 


STO 


2 


LD 


2 -1 


STO 


2 2 


STX 


L2 XRTB2 


MDX 


L XMRCT, 1 


BSC 


L CAIO 


* 








* 


BUILD XMIT 


* 




XMRC3 SLT 


13 


STO 


1 BCSAV-T 


* 




SLA 


4 


SRA 


4 


STO 


1 CRCNT-T 


* 




LD 


I XMRCV 


MDX 


L XMRCV, 1 


STO 


1 CRADR-T 


* 




LD 


1 INITL+1-T 


SLA 


8 


BSC 


L XMRCA.Z* 


* 




SLT 


32 


* 




XMRC4 LD 


I CRCNT-T 


BSC 


L XMRC5,E 


* 




LD 


I CRADR 


STO 


2 1 


MDX 


XMRC6 


* 




XMRC5 LD 


I CRADR 


RTE 


8 


STO 


2 1 


RTE 


8 


* 




XMRC6 MDX 


2 1 


MDX 


L CRADR, 1 


MDX 


L CRCNT.-2 


MDX 


XMRC4 


* 




MDX 


2 2 


* 




LD 


1 BCSAV-T 


BSC 


L CAIO,- 


* 




STX 


L2 XRTB2 


LD 


1 XRTB2-T 



CALCULATE 
LENGTH 
OF RECEIVE 
TABLE 

XR2=AD0R OF NEXT TABLE 

CALCULATE 

CHAIN ADDRESS 
STO CHAIN ADDR IN TABLE 

FETCH NEXT BYTE COUNT 
BR IF NOT ZERO 

SET UP 
2ND RECEIVE 
TABLE WITH 
A BYTE COUNT OF /C002 
AND CHAINED TO ITSELF 

POINT TO NEXT PARAMETER 
GO TO INITIALIZE 



TABLE - NORMAL MODE 



SAVE BYTE COUNT WORD 



SAVE CHARACTER COUNT 

FETCH DATA ADDRESS 
POINT TO NEXT PARAMETER 
SAVE DATA ADDRESS 



BR IF DIAGNOSTIC MODE 



FETCH CHARACTER COUNT 
BR IF COUNT ODD 

GET TWO CHARACTERS 
STORE IN TRANSMIT TABLE 
BRANCH 

GET TWO CHARACTERS 

STORE IN TRANSMIT TABLE 



POINT TO NEXT XMIT TBL WD 
POINT TO NEXT TWO CHARS 
DEC RE CHAR CNT BY TWO 
BR IF MORE CHARACTERS 

POINT TO NEXT TBL ADDR 

FETCH XMIT TBL BYTE COUNT 
BR IF NO CHAIN 

SAVE NEXT TBL ADDR 
CALCULATE CHAIN 



80E31980 

80E31990 

80E32000 

80E32010 

80E32020 

80E32030 

80E32040 

80E320 50 

80E32060 

80E32070 

80E32080 

80E32090 

80E32100 

80E32110 

80E32120 

80E32130 

80E32140 

80E3215P 

80E32160 

80E32170 

80E32180 

80E32190 

80E32200 

80E32210 

80E32220 

80E32230 

80E32240 

80E32250 

80E32260 

80E32270 

80E32280 

80E32290 

80E32300 

80E32310 

80E32320 

80E32330 

80E32340 

80E32350 

80E32360 

80E32370 

80E32380 

80E32390 

80E32400 

80E32410 

80E32420 

80E32430 

80E32440 

80E32450 

80E32460 

80E32470 

80E32480 

80E32490 

80E32500 

80E32510 

80E32520 

80E32530 

80E32540 

80E32550 

80E32560 

80E32570 

80E32580 

80E32590 

80E32600 

80E32610 

80E32620 

80E32630 

80E32640 

80E32650 



DATE 
EC NO. 
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080 E-0 
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PROG ID 
PAGE 
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12D2 9117 

1203 D2FF 

1204 1 C480 1274 
12D6 1 4C20 1285 

12D8 1 7401 1274 
12 DA 1 C480 1274 
12DC D001 
12DD C400 0000 
12DF D201 

12E0 cm 
12E1 0200 

12E2 C1CC 
12E3 9117 
12E4 D202 

12E5 1 7401 1274 
12E7 1 4C00 134F 



12E9 1 C480 1630 
12EB 1 4400 141A 
12ED 180F 
12EE D1B7 

12EF 1010 
12F0 D1C6 

12F1 1 74FE 162F 



12F3 
12F5 
12F6 
12F7 
12F8 
12FA 
12FB 



C480 1630 

1808 

E914 

D201 

74FF 162F 

7001 

7034 



12FC 7202 

12FD C1C6 
12FE F10C 
12FF D1C6 
1300 1 4C10 1307 

1302 1 C480 1630 
1304 1 7401 1630 

1306 7003 

1307 1 C480 1630 

1309 1808 
130A E914 
130B D201 
130C 1 4400 141A 

130E 1 74FF 162F 

1310 700C 

1311 1085 

1312 100E 

1313 1 4C20 1318 

1315 1093 



S 
STO 

LD 
BSC 

* 

MDX 

LD 

STO 

LD 

STO 

* 

LD 
STO 

LD 

S 

STO 

* 

MDX 
BSC 

* 

* 

* 

* 

XMRCA LD 
BSI 
SRA 
STO 

* 

SLA 
STO 

MDX 

LD 

SRA 

OR 

STO 

MDX 

MDX 

MDX 

* 

XMRCF MDX 

LD 
EOR 
STO 
BSC 

LD 

MDX 

MDX 

* 

XMRCG LD 
SRA 
OR 
STO 
BSI 

MDX 
MDX 

SLT 
SLA 
BSC 

SLT 



1 Dl-T 

2 -1 

I XMRCV 
L XMRC2.Z 

L XMRCV, 1 
I XMRCV 

*+l 
L *-* 
2 1 

1 HE002-T 

2 

1 XRTB2-T 

1 Dl-T 

2 2 



L XMRCV, 1 
L CAIO 



ADDRESS AND 
STORE IN TABLE 

FETCH NEXT CALL PARAMETER 
BR IF NOT ZERO 

POINT TO 2ND T9L DATA 
GET DATA ADDR 



AND PUT IN XMIT TBL 

STORE 2ND XMIT 
TABLE BYTE COUNT = /E002 

SET UP 2ND TABLE TO 
CHAIN BACK 
TO ITSELF 

POINT TO NEXT PARAMETER 
GO TO INITIALIZE 



BUILD XMIT TABLE - DIAGNOSTIC MODE 



I CRADR 
L DCODE 
15 
1 TMODE-T 

16 

1 WSW-T 



CRCNT.-2 



I CRADR 
8 

1 HFFOO-T 

2 1 

L CRCNT,-1 
XMRCF 
XMRCL 

2 2 

1 WSW-T 
1 H8000-T 
1 HSW-T 
L XMRCG,- 

I CRADR 
L CRADR, 1 
XMRCG+3 

I C RADR 
8 

1 HFFOO-T 

2 1 

L DCODE 

L CRCNT.-l 
XMRCJ 

5 

14 
L XMRCI.Z 

19 



FETCH TWO CHARACTERS 
BUILD DECODE WORDS 

SET IND IF 1ST CHAR OLE 



CLEAR LEFT/RIGHT BYTE IND 
ADJUST CHAR CNT TO END 
FETCH TWO CHARACTERS 



PUT LEFT BYTE IN TABLE 
DECRE CHAR CNT BY ONE 
BR IF MORE CHARACTERS 
BR IF END OF XMIT DATA 

UPDATE XMIT TBL ADDR 

CHECK 
LEFT/RIGHT 
BYTE INDICATOR 
BR IF RT BYTE NEXT 

FETCH TWO CHARACTERS 

INCRE DATA ADDR 

GO TO STORE LEFT BYTE 

FETCH TWO CHARACTERS 
PREPARE TO STORE RT BYTE 
SET DATA FLAG BITS 
STO CHAR IN XMIT TABLE 
BUILD CONT CHAR DECODE 

DECRE CHAR CNT BY ONE 
BR IF MORE DATA 

CHECK END 

CHARACTER 
BR IF ETB OR ETX 



iMTE 

EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



30E32660 

80E32670 

80E3268Q 

80E32690 

80F32700 

80E32710 

80E3272r> 

80E32730 

80E32740 

80E32750 

80E32760 

80E32770 

80E32780 

80E32790 

80E32800 

80E32810 

80E32820 

80E32830 

80E32840 

80E32850 

80E32860 

80E32870 

80E32880 

80E32890 

80E32900 

80E32910 

80E32920 

80E32930 

80E32940 

80E32950 

80E32960 

80E32970 

80E32980 

80E32990 

80E33000 

80E33010 

80E33020 

80E33030 

80E33040 

80F33050 

80E33060 

80E33070 

80E33080 

80E33090 

80E33100 

80E33110 

80E33120 

80E33130 

80E33140 

80E33150 

80E33160 

80E33170 

80E33180 

80E33190 

80E33200 

80E3321O 

80E33220 

80E33230 

80E33240 

80E33250 

80E33260 

80E33270 

80E33280 

80E33290 

80E33300 

80E33310 

80E33320 

80E33330 



PROG ID 
PAGE 



080E-') 
25 





1316 


1 


4C10 


1330 


* 


BSC 


L 


XMRCL ,- 


BR IF NOT ITB END 


80E33340 
30E33350 






1318 





7201 




XMRCI 


MDX 


2 


1 


SAVE SPACE FOR ONE BCC 


80E33360 






1319 





C1B0 






LD 


1 


ASCII-T 


CHECK EDIT 


80E33370 






131A 





4818 






BSC 




+ - 


SKIP IF USASCII CODE 


80E33380 






131B 





7201 






MDX 


2 


1 


save space for 2nd bcc 


80E33390 






131C 





7013 




* 


MDX 




XMRCL 


BRANCH 


80E33400 
80E33410 






131D 





C1B7 




XMRCJ 


LD 


1 


TMODE-T 




80E33420 






131E 


1 


4C18 


1328 


* 


BSC 


L 


XMRJ1.+- 


BR IF NORMAL TEXT 


80E33430 
80E33440 






1320 





1090 






SLT 




16 


CK IF OLE CHAR DECIDE 


80E33450 






1321 


1 


4C10 


12FC 


* 


BSC 


L 


XMRCF, - 


BR IF NOT OLE 


80E33460 
80E33470 






1323 





C1B9 






LD 


1 


CRCNT-T 


CK IF OLE IS 


80E33480 






1324 





1801 






SRA 




1 


PART OF END SEQUENCE 


80E33490 






1325 





4820 






BSC 




Z 


SKIP IF OLE END 


80E33500 






1326 





7201 






MDX 


2 


1 


SAVE SPACE FOR OLE DIAG WD 


80E33510 






1327 





70D4 




* 


MDX 




XMRCF 


GO TO PROCESS NEXT CHAR 


80E33520 
80E33530 






1328 





1098 




XMRJ1 


SLT 




24 


CK FOR ITB DECODE 


80E33540 






1329 


1 


4C10 


12FC 


* 


BSC 


L 


XMRCF, - 


BR IF NOT ITB 


80E33550 
80E33560 






132B 





7201 






MDX 


2 


1 


SAVE SPACE FOR ONE BCC 


80E33570 






132C 





ClBO 






LD 


1 


ASCII-T 


CK EDIT 


80E33580 






132D 





4818 






BSC 




+- 


SKIP IF USASCII CODE 


80E33590 






132E 





7201 






MDX 


2 


1 


SAVE SPACE FOR 2ND BCC 


80E33600 






132F 





70CC 




* 


MDX 




XMRCF 


GO TO PROCESS NEXT CHAR 


80E33610 
80E33620 






1330 





C1C6 




XMRCL 


LD 


1 


WSW-T 


CK LEFT/RIGHT BYTE IND 


80E33630 






1331 


1 


4C28 


133C 


* 


BSC 


L 


XMRL1.Z* 


BR IF RT BYTE WAS LAST 


80E33640 
80E33650 






1333 


1 


C480 


1630 




LD 


I 


CRADR 


GET NEXT 


80E33660 






1335 





1890 






SRT 




16 


TWO DATA 


80E33670 






1336 


1 


7401 


1630 




MDX 


L 


CRADR, 1 


CHARACTERS 


80E33680 






1338 


1 


C480 


1630 




LD 


I 


CRADR 


IN ACCUMULATOR 


80E33690 






133A 





18C8 






RTE 




8 




80E33700 






133B 





7002 




* 


MDX 




XHRL1+2 


BRANCH 


80E33710 
80E33720 






133C 


1 


C480 


1630 


XMRL1 


LD 


I 


CRADR 


FETCH TWO DATA CHARACTERS 


80E33730 






133E 





1888 






SRT 




8 


SAVE RIGHT CHAR IN Q 


80E33740 






133F 





E914 






OR 


1 


HFFOO-T 


SET FLAG 8ITS 


80E33750 






1340 





D203 




* 


STO 


2 


3 


STO CHAR IN XMIT TABLE 


80E33760 
80E33770 






1341 





1088 






SLT 




8 


BRING IN RIGHT CHAR 


80E33780 






1342 





E914 






OR 


1 


HFFOO-T 


SET DATA FLAG BITS 


80E33790 






1343 





D205 




* 


STO 


2 


5 


STO CHAR IN XMIT TABLE 


80E33800 
80E33810 






1344 





7207 




* 


MDX 


2 


7 


POINT TO NEXT TABLE 


80E33820 
80E33830 






1345 





C1B8 






LD 


1 


BCSAV-T 


CK BYTE COUNT 


80E33840 






1346 


1 


4C10 


134F 


* 


BSC 


L 


CAIO,- 


BR IF NO CHAIN 


80E33850 
80E33 860 






1348 


I 


6E00 


1642 




STX 


L2 


XRTB2 


SAVE ADDR OF 2ND TABLE 


80E33870 






134A 





C1CC 






LD 


1 


XRTB2-T 


CALCULATE 


80E33880 






134B 





9117 






S 


1 


Dl-T 


CHAIN ADDRESS AND 


80E33890 






134C 





D2FF 




* 


STO 


2 


-1 


STORE IN TABLE 


80E33900 
80E33910 






134D 


1 


4 COO 


1285 


* 


BSC 


L 


XMRC2 


GO TO PROCESS NEXT TABLE 


80E33920 
80E33930 
80E33940 
80E33950 














* 






START CA 


I/O OPERATION 














* 










80E33960 






134F 


1 


C480 


1274 


CAIO 


LD 


I 


XMRCV 


FETCH NEXT CALL PARAMETER 


80E33970 






1351 


1 


7401 


1274 




MDX 


L 


XMRCV, 1 




80E33980 






1353 





DOOF 




* 


STO 




CAI01+1 




80E33990 
80E34000 






1354 


1 


6600 


1C93 




LDX 


L2 


SRCTB 


XR2=XMIT SAMPLE TBL ADDR 


80E34010 




DATE 


14N0V69 30JAN70 












PROG ID 


080 E-0 


EC NO. 


431319 431319A 












PAGE 


25A 
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1356 

1357 

1358 

1359 



Cll* 

D200 

C10B 
1890 



135A 1 4400 13FE 



13SC 
1350 1 

135F 
1360 1 



09AA 
4C28 135C 

09AA 
4C10 135F 



136 2 6700 0000 



1364 

1365 

1366 

1367 

1368 1 



09A2 
09A6 
09A4 , 

COFB 
4C88 1274 



136A 6500 0BB8 



136C 1 
136E 
136F 1 

1371 

1372 



OCOO 1620 
1001 
4C10 137D 

71FF 
70F9 



137 3 1 6500 1676 



1375 
1377 

1379 
137A 
137 B 



6600 16 50 
4400 122E 

1010 
01B3 
4C00 088F 



137D 1 6500 1676 



137F 1 
1381 1 

1383 

1384 1 



1386 
1387 



1389 
138A 
138B 1 

138D 
138E 
138 F 



OCOO 1620 
4C10 13A7 

09AA 
4C10 1383 

09AA 
4C28 1386 

180E 
18C1 
4C10 1383 

18D8 
E104 
EAOO 



LD 
STO 

LD 
SRT 

BSI 

XIO 
BSC 

XIO 
BSC 



1 HFFOO-T 

2 

1 H8040-T 
16 

I CKTIM 

1 SNSBC-T 
L *-3tZ+ 

1 SNSBC-T 
L *-3,- 



CAI01 LDX L3 *-* 
* 

XIO 

XIO 

XIO 



1 CLEAR-T 
1 ENABL-T 
1 INITL-T 



LD 
BSC 



CAIOl+1 
I XMRCV,+ 



INITIALIZE XMIT 
SAMPLE DATA TABLE 

SET UP BIT COUNT 
FLAG FOR XMIT SAMPLE RTN 

CHECK TRANSMIT TIMING 

LOOP UNTIL XMIT TIMING 
BIT GOES OFF IN DIAG DSW 

SENSE BC DSW 

XR3=CHARACTER COUNT 

CLEAR CA 
ENABLE CA 
INITIALIZE CA 

FETCH CHAR COUNT WORD 
RETURN IF ZERO 



* 

* 

♦#****^*#* #**#*****************:****# *************** 

* 

* RETRIEVE DATA FROM RECEIVE DATA LINE 

* DURING TRANSMIT OPERATION 
* 

* 

SET TIMER COUNT 



SNSRC LDX LI 3000 



XIO 
SLA 
BSC 

MDX 
MDX 



L SNSBC 

1 
L SRC01,- 

1 -1 

SNSRC+2 



LDX LI T 

LDX L2 E007 
BSI L ERPRT 



SLA 
STO 
BSC 



16 
1 LOCK-T 
L CNTRL 



SRC01 LDX LI T 
* 

XIO 

BSC 
* 
SRC02 XIO 

BSC 



L SNSBC 
L SRC04,- 

1 SNSBC-T 
L *-3,- 



XIO 
BSC 

SRA 
RTE 
BSC 

RTE 
AND 

OR 



I SNSBC-T 
L *-3tZ+ 

14 
1 
L SRC02t- 

24 

1 HOOFF-T 

2 



SENSE BC DSW 

BR IF RCV DATA = SPACE 

DECREMENT TIMER 

BR IF TIMER NOT YET ZERO 

RESTART XR1 

PRINT ERROR MESSAGE 
NO WRAPAROUND PATH 



RESET VARIABLE DATA IND 
RETURN TO CONTROL 

RESTORE XRl 

CHECK XMIT TIMING STATE 
BR IF XMIT TIMING BIT OFF 

LOOP UNTIL XMIT TIMING 
BIT COMES ON IN DIAG DSW 

LOOP UNTIL XMIT TIMING 
BIT GOES OFF IN DIAG DSW 

SHIFT SAMPLED XMIT 

DATA BIT TO Q 
BR IF NO END CHAR FLAG YET 

COMBINE LAST 
TWO CHARACTERS 
RETRIEVED AND 



OATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



80E34020 

80E340 30 

80E34040 

80E34050 

80E34060 

80E340 70 

80E34080 

80E34090 

80E34100 

80E34110 

80E34120 

80E34130 

80E34140 

80E34150 

80E34160 

80E34170 

80E34180 

80E34190 

80E34200 

80E34210 

80E34220 

80E34230 

80E34240 

80E34250 

80E34260 

80E34270 

80E34280 

80E34290 

80E34300 

80E34310 

80E34320 

80E3433C 

80E34340 

80E34350 

80E34360 

80E34370 

80E34380 

80E34390 

80E34400 

80E34410 

80E34420 

80E 34430 

80E34440 

80E34450 

80E34460 

80E34470 

80E34480 

80E34490 

80E34500 

80E34510 

80E34520 

80E34530 

80E34540 

80E34550 

80E34560 

80E34570 

80E34580 

80E34590 

80E34600 

80E34610 

80E34620 

80E34630 

80E34640 

80E34650 

80E34660 

80E34670 

80E34680 

80E34690 



PROG ID 
PAGE 



-JL.6 

T" 



e.> 



\ - 



tp V 



1 



p 



i 




080E-0 
26 



JATE 
EC NO. 



1390 D200 


* 


STO 


2 


STORE IN DATA TABLE 




80E34700 
80E34710 




1391 7201 




MDX 


2 1 


INCRE DATA TABLE ADDR 




80E34720 




1392 73FF 




MDX 


3 -1 


DECRE CHAR COUNT 




80E34730 




1393 7002 


* 


MOX 


SRC03 


BR IF MORE CHARACTERS 




80E34740 
80E34750 




1394 1 4C80 1274 


* 


BSC 


I XMRCV 


RETURN TO CALLING RTN 




80E34760 
80E34770 




1396 09AA 


SRC03 


XIO 


1 SNSBC-T 


LOOP UNTIL XMIT TIMING 




80E34780 




1397 1 4C10 1396 




BSC 


L *-3,- 


BIT COMES ON IN OIAG DSW 


80E34790 






* 










80E34800 




1399 09AA 




XIO 


1 SNSBC-T 


LOOP UNTIL XMIT TIMING 




80E34810 




139A 1 4C28 1399 




BSC 


L *-3tZ+ 


BIT GOES OFF IN OIAG DSW 


80E348 20 






* 










80E34830 




139C 180E 




SRA 


14 


SHIFT SAMPLEO XMIT 




80E34840 




139D 18C1 




RTE 


1 


DATA BIT TO Q 




80E34850 




139E 1 4C10 1396 


* 


BSC 


L SRC03t- 


BR IF NO END CHAR FLAG 


YET 


80E34860 
80E34870 




13A0 1800 




RTE 


16 


ROTATE FULL CHAR TO A 




80E34880 




13 A 1 D200 


* 


STO 


2 


STORE IN DATA TABLE 




80E34890 
80E34900 




13A2 1888 


* 


SRT 


8 


RESTORE BIT COUNT FLAG 




80E34910 
80E34920 




13A3 73FF 




MDX 


3 -1 


DECREMENT CHAR COUNT 




80E34930 




13A4 70DE 


* 


MDX 


SRC02 


BR IF MORE CHARACTERS 




80E34940 
80E34950 




13A5 1 4C80 1274 


* 


BSC 


I XMRCV 


RETURN TO CALLING RTN 




80E34960 
80E34970 




13A7 09AA 


SRC 04 


XIO 


1 SNSBC-T 


LOOP UNTIL XMIT TIMING 




80E34980 




13A8 1 4C28 13A7 




BSC 


L *-3,Z+ 


BIT GOES OFF IN DIAG DSW 


80E34990 






* 










80E35000 




13AA 09AA 




XIO 


1 SNSBC-T 


LOOP UNTIL XMIT TIMING 




80E35010 




13AB 1 4C10 13AA 




BSC 


L *-3,- 


BIT COMES ON IN DIAG DSW 


80E35320 






* 










80E35030 




13AD 180E 




SRA 


14 


SHIFT SAMPLED XMIT 




80E35040 




13AE 18C1 




RTE 


1 


DATA BIT TO Q 




80E35050 




13AF 1 4C10 13A7 


* 


BSC 


L SRC04,- 


BR IF NO END CHAR FLAG 


YET 


80E35060 
80E35070 




13B1 18D8 




RTE 


24 


COMBINE LAST 




80E35080 




13B2 E104 




AND 


1 HOOFF-T 


TWO CHARACTERS 




80E 35090 




13B3 EAOO 




OR 


2 


RETRIEVED AND 




80E35100 




13B4 D200 


* 


STO 


2 


STORE IN DATA TABLE 




80E35110 
80E35120 




13B5 7201 




MDX 


2 1 


INCRE DATA TABLE ADDR 




80E35130 




13B6 73FF 




MDX 


3 -1 


DECREMENT CHAR COUNT 




80E35140 




13B7 7002 


* 


MDX 


SRC05 


BR IF MORE CHARACTERS 




80E35150 
80E35160 




13B8 1 4C80 1274 


* 


BSC 


I XMRCV 


RETURN TO CALLING RTN 




80E35170 
80E35180 




13BA 09AA 


SRC05 XIO 


1 SNSBC-T 


LOOP UNTIL XMIT TIMING 




80E35190 




13BB 1 4C28 13BA 




BSC 


L *-3,Z+ 


BIT GOES OFF IN DIAG DSW 


80E35200 






* 










80E35210 




13BD 09AA 




XIO 


1 SNSBC-T 


LOOP UNTIL XMIT TIMING 




80E35220 




13BE 1 4C10 13BD 


* 


BSC 


L *-3,- 


BIT COMES ON IN OIAG 1 


DSW 


80E35230 
80E35240 




13C0 180E 




SRA 


14 


SHIFT SAMPLED XMIT 




80E35250 




13C1 18C1 




RTE 


1 


DATA BIT TO Q 




80E35260 




13C2 1 4C10 13BA 




BSC 


L SRC05t- 


BR IF NO END CHAR FLAG 


YET 80E35ZTO 






* 










80E35280 




13C4 18D0 




RTE 


16 


ROTATE FULL CHAR TO A 




80E35290 




13C5 D200 


* 


STO 


2 


STORE IN DATA TABLE 




80E35300 
80E35310 




13C6 1888 


* 


SRT 


8 


RESTORE BIT COUNT FLAG 




80E35320 
80E35330 




13C7 73FF 




MDX 


3 -1 


DECREMENT CHAR COUNT 




80E35340 




13C8 70DE 


* 


MDX 


SRC 04 


BR IF MORE CHARACTERS 




80E35350 
80E35360 




13C9 1 4C80 127* 




BSC 


I XMRCV 


RETURN TO CALLING RTN 




80E35370 




14N0V69 30JAN70 
43 1319 431319A 












PROG ID 
PAGE 


080E-T 
26A 
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13CB 0000 

13CC 1 4400 13FE 
13CE 1 6780 13CB 

13D0 C300 
13D1 D005 
13D2 C301 
13D3 D005 

130* 7302 
1305 6BF5 



13D6 
13D8 

13DA 
13DB 



6700 0000 
6600 0000 

ClOC 

D1BE 



130C 6110 



13D0 
13DE 
13DF 
13 EO 

13E1 1 
13E3 1 

13E5 1 
13E7 1 

13E9 
13EA 1 
13EC 1 

13EE I 
13F0 1 



C200 
18D0 
C200 
18C8 

OCOO 1620 
4C28 13E1 

OCOO 1620 
4C10 13E5 

18C1 

F400 1634 
4C10 13F4 

F400 1634 
D400 1634 



13F2 1 OCOO 1624 



13F4 
13F5 



7 IFF 

70EB 



13F6 7201 



13F7 
13F8 

13F9 1 
13FB 



73FE 
70E3 

6500 1676 
4002 



13FC 1 4C80 13CB 



*************************************************** 
* 

* PLACE PROGRAMMED RECIEVE INPUT ON RECEIVE 

* DATA LINE J^'NG RECEIVE OPERATION 

* 

*************** ****~ ******* *.•-*;;■* ******************* 

* 

ENTRY 



CHECK TRANSMIT TIMING 



GEN 


DC 




*-* 


* 










BSI 


L 


CKTIM 




LOX 


13 


GEN 


* 










LD 


3 







STO 




GENO+1 




LD 


3 


1 




STO 




GENO+3 


* 










MDX 


3 


2 




STX 


3 


GEN 



GENO LDX L3 *-* 
LDX L2 *-* 



LD 
STO 

* 

GEN1 LDX 

* 

LD 
RTE 
LD 
RTE 

* 

GEN2 XI 
BSC 

* 

GEN3 XIO 
BSC 

* 

RTE 
EOR 
BSC 

* 

EOR 
STO 

* 

XIO 

* 

GEN4 MOX 
MDX 



1 H8000-T 
1 RSTAT-T 

1 16 

2 
16 

2 

8 



SNSBC 
GEN2tZ+ 

SNSBC 
GEN3,- 

1 

RSTAT 

GEN4,- 

RSTAT 
RSTAT 

SETRC 



MDX 

MDX 
MDX 

LDX 
BSI 

BSC 



1 -1 

GEN2 

2 1 

3 -2 
GEN1 

LI T 

CKTIM 

I GEN 



FETCH CHARACTER COUNT 

AND SAVE FOR XR3 
FETCH RECEIVE DATA ADDR 

AND SAVE FOR XR2 

SET UP RETURN 
TO CALLING ROUTINE 

XR3=CHARACTER COUNT 
XR2=RECEIVE DATA ADDR 

SET PREVIOUS 
STATUS TO 1 STATE 

SET BIT COUNT TO 16 



MOVE TWO 
CHARACTERS 
TO BUFFER 

WAIT FOR NEGATIVE SHIFT 
OF TRANSMIT TIMING 

WAIT FOR POSITIVE SHIFT 
OF TRANSMIT TIMING 



CK PREVIOUS LINE STATUS 
BR IF NO CHANGE IN LEVEL 



STORE STATUS 

CHANGE RECEIVE LINE STATUS 

DECREMENT BIT COUNT 

INC RE RECEIVE TBL ADDR 

DECREMENT CHAR COUNT 
BR IF NOT ZERO 

RESTORE XR1 

CHECK TRANSMIT TIMING 

RETURN TO CALLING RTN 



* 

* 

*************************************************** 

* 

* CHECK TRANSMIT TIMING 

* 

*************************************************** 



J ATE 
EC NO. 



14N0V69 
431319 



3QJAN70 
431319A 



80E353 80 

80E35390 

80E35400 

80E35410 

80E35420 

80E35430 

80E35440 

80E35450 

80E35460 

80E35470 

80E35480 

80E35490 

80E35500 

80E35510 

80E35520 

80E35530 

80E35540 

80E35550 

80E35560 

80E35570 

80E35580 

80E35590 

80E35600 

80E35610 

80E35620 

80E35630 

80E35640 

80E35650 

80E35660 

80E35670 

80E35680 

80E35690 

80E35700 

80E35710 

80E35720 

80E35730 

80E35740 

80E35750 

80E35760 

80E35770 

80E35780 

80E35790 

80E35800 

80E35810 

80E35820 

80E35830 

80E35840 

80E35850 

80E35860 

80E35870 

80E35880 

80E35890 

80E35900 

80E35910 

80E35920 

80E35930 

80E35940 

80E35950 

80E35960 

80E35970 

80E35980 

80E35990 

80E36000 

80E36010 

80E36320 

80E36030 

80E36040 

80E36050 



PROG ID 
PAGE 



13FE 
13FF 

1400 

1401 

1402 

1403 

1404 1 

1406 

1407 

1408 



0000 

6364 

09AA 
D1BB 

09AA 
F1BB 
4C28 1409 

73FF 
70FA 
7009 



1409 6364 



140A 
140B 

140C 
140D 
140E 1 

1410 

1411 

1412 1 
1414 1 

1416 

1417 



09AA 
D1BB 

09AA 
F1BB 
4CA8 13FE 

73FF 
70FA 

6600 165A 
4400 122E 

1010 
D1B3 



1418 1 4C00 088F 



141A 0000 

141B D1BB 

141C 1808 

14 ID 400A 

141E C1BB 

141 F 18D0 

1420 D1BB 

1421 1088 

1422 1010 

1423 1088 

1424 4003 

1425 C1BB 

1426 1 4C80 141A 



CKTIM DC 

* 

LDX 

* 

XIO 
STO 

* 

CKTM1 XIO 
EOR 
BSC 

* 

MDX 
MDX 
MDX 

* 

CKTM2 LDX 

* 

XIO 
STO 

* 

CKTM3 XIO 
EOR 



SNSBC-T 
TEMP1-T 

SNSBC-T 
TEMP1-T 
CKTM2.Z+ 

-1 

CKTM1 

CKTM4 



3 100 



BSC I 

MDX 

MDX 



SNSBC-T 
TEMP1-T 

SNSBC-T 
TEMP1-T 
CKTIM, Z+ 

-1 
CKTM3 



CKTM4 LDX 
BSI 

* 

SLA 
STO 

* 

BSC 

* 

* 

********** 

* 

* 

* 

********** 

* 

DCODE DC 

* 

STO 
SRA 
BSI 

* 

LD 

RTE 

STO 

* 

SLT 
SLA 
SLT 
BSI 

* 

LD 



L2 E006 
L ERPRT 

16 
1 LOCK-T 

L CNTRL 



ENTRY 

SET TIME DELAY 

SENSE BC DSW 
SAVE DIAG DSW 

SENSE BC DSW 

BR IF BIT CHANGED STATE 

DECREMENT TIMER 
BR IF NOT ZERO 
BR IF ZERO 

SET TIME DELAY 

SENSE BC DSW 
SAVE DIAG DSW 

SENSE BC DSW 

BR IF BIT CHANGED STATE 

DECREMENT TIMER 
BR-9F6 NOT ZERO 

PRINT ERROR MESSAGE 
TRANSMIT TIMING FAILURE 



CLEAR VARIABLE DATA IND 
RETURN TO CONTROL 



080 E-0 
27 







* 






* 




142 8 0000 


SCAN 

* 




1429 DlBC 




JATE 


14N0V69 3 0JAN70 




EC NO. 


431319 431319A 





80E36060 

80E36070 

80E36080 

3 100 SET TIME DELAY 80E36090 

80E36100 
80E36110 
80E36120 
80E36130 
80E36140 
80E36150 
80E36160 
80E36170 
80E36180 
80E36190 
80E36200 
80E36210 
80E36220 
80E36230 
80E36 240 
80E36250 
80E36260 
80E36270 
80E36280 
80E36290 
80E36300 
80E36310 
80E36320 
80E36330 
80E36340 
80E36350 
80E36360 
80E36370 
80E36380 
80E36390 
80E36400 
80E36410 
80E36420 
****************************************** 80E36430 

80E36440 
CONTROL CHARACTER DECODE 80E36450 

80E36460 
********************************** ********80E36470 

80E36480 
*-* ENTRY 80E36490 

80E36500 
TEMP1-T SAVE TWO CHARACTERS 80E36510 

8 80E36520 

SCAN DECODE LEFT CHARACTER 80E36530 

80E36540 
TEMP1-T FETCH TWO CHARACTERS 80E36550 

16 80E36560 

TEMP1-T SAVE LEFT CHAR DECODE 80E36570 

80E36580 
8 80E36590 

16 80E36600 

8 80E36610 

SCAN DECODE RIGHT CHARACTER 80E36620 

80E36630 
1 TEMP1-T COMBINE DECODES IN A t Q 80E36640 

80E36650 
80E36660 
80E36670 
80E36680 
80E36690 
80E36700 
80E35710 
80E36720 
STO 1 TEMP2-T SAVE CHAR TO DECODE 80E36730 



PROG ID 
PAGE 



BSC I OCODE 



COMBINE DECODES IN A t Q 
RETURN 



DC 



POSITION DECODE BIT IN Q 



ENTER 

SAVE CHAR TO DECODE 



080E-0 
274 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
iCA WRAP AROUNO TEST 



PART NO. 2?7947<S 
PA3E 2B 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
fCA WRAP AROUND TEST 



PART NO. 2279476 
PAGE 28A 





142A 630A 


* 


LDX 


3 10 




80E36740 
80E36750 






142B C1BC 


SCAN1 


LD 


1 TEMP2-T 


SEARCH 


80E36760 






142C 1 F700 1699 




EOR 


L3 DLE-1 


CONTROL 


80E36770 






142E E104 




AND 


1 HOOFF-T 


CHARA TER TABLE 


80E36780 






142F 1 4C18 1453 


* 


BSC 


L SCAN6.+- 


BR IF CONT CHAR FOUND 


80E36790 
80E36800 






1431 73FF 




MDX 


3 -1 




80E36810 






1432 70F8 


* 


MOX 


SCAN1 




80E36820 
80E36830 






1433 C1BC 




LD 


I TEMP2-T 


FETCH CHARACTER 


80E36840 






1434 4804 


SCAN 2 


BSC 


E 


COUNT NUMBER 


80E36850 






1435 7301 




MDX 


3 1 


OF BITS 


80E36860 






1436 1801 




SRA 


1 


IN CHARACTER 


80E36870 






1437 1 4C20 1434 


* 


BSC 


L SCAN2.Z 


LOOP UNTIL ALL COUNTED 


80E36880 
80E36890 






1439 1 6F00 1633 




STX 


L3 TEMP3 




80E36900 






143B C1B0 




LD 


1 TEMP3-T 


GET BIT COUNT IN ACC 


80E36910 






143C 1 4C04 1443 


* 


BSC 


L SCAN4.E 


BR IF OOD PARITY CHAR 


80E36920 
80E36930 






143E 6311 


* 


LDX 


3 17 




80E36940 
80E36950 






143F 1 7400 1626 




MDX 


L ASCII 


SKIP IF ASCII CODE 


80E36960 






1441 73FB 




MDX 


3 -5 


SET UP FOR PARITY ERR CODE 


80E36970 






1442 7010 


* 


MDX 


SCAN6 


BRANCH 


80E36980 
80E36990 






1443 630B 


SCAN4 


LDX 


3 11 


SET UP FOR STICK CODE 


80E37000 






1444 C1BC 




LD 


1 TEMP2-T 


FETCH CHARACTER 


80E37010 






1445 1008 


* 


SLA 


8 




80E37020 
80E37030 






1446 1 7400 1626 




MDX 


L ASCII 


SKIP IF ASCII CODE 


80E37040 






1448 1001 


* 


SLA 


1 


DROP PARITY BIT 


80E37050 
80E37060 






1449 180D 




SRA 


13 




80E37070 






144 A F119 




EOR 


1 D3-T 




80E37080 






144B 1 4C20 1452 


* 


BSC 


L SCAN6-1.Z 


BR IF NOT STICK CHAR 


80E37090 
80E37100 






1440 C1BC 




LD 


1 TEMP2-T 




80E37110 






144E 100C 




SLA 


12 




80E37120 






144F F113 




EOR 


1 HFOOO-T 




80E37130 






1450 1 4C20 1453 


* 


BSC 


L SCAN6.Z 


BR IF STICK CHARACTER 


80E37140 
80E37150 






1452 6311 


* 


LDX 


3 17 


NOT CONTROL CHARACTER 


80E37160 
80E37170 






1453 10A0 


SCAN6 SLT 


32 




80E37180 






1454 C117 




LD 


1 Dl-T 


POSITION DECODE 


80E37190 






1455 1B80 




SRT 


3 


BIT IN Q REG 


80E37200 






1456 1 4C80 1428 


* 
* 


BSC 


I SCAN 


RETURN 


80E37210 
80E37220 
80E37230 








♦a************************************************* 80E37240 








# 








80E37250 








* 




CALCULATE 


BLOCK CHECK CHARACTERS 


80E37260 








* 








80E37270 








*************************************************** 80E372 80 








* 








80E37290 






1458 0000 


CALBC DC 


*-* 




80E37300 








* 








80E37310 






1459 1 6680 1458 


* 


LDX 


12 CALBC 


PICK UP CALL SEQ AODR 


80E3732 
80E37330 






145 B 6A05 




STX 


2 LDRGS+1 




80E37340 






145C 7201 




MDX 


2 1 




80E37350 






145D 6A05 




STX 


2 LDRGS +3 




80E37360 






145E 7201 




MDX 


2 1 


SET UP 


80E37370 






145F 6AF8 


* 


STX 


2 CALBC 


RETURN ADDRESS 


80E37380 
80E37390 






1460 6680 0000 


LDRGS LDX 


12 *-* 


XR2=DATA ADDR 


80E37400 






1462 6780 0000 




LDX 


13 *-* 


XR3=CHARACTER COUNT 


80E37410 




JATE 


14N0V69 30JAN70 










PROG ID 


080E-0 


EC NO. 


431319 431319A 










PAGE 


28 



1464 1810 

1465 D1BF 

1466 D1C0 

1467 1 7400 1626 

1469 7039 

146 A C200 
146B F120 
146C D1B7 
146D 1 4C20 1471 

146F 7201 

1470 7003 

1471 C1C0 

1472 FH7 

1473 D1C0 

1474 C200 

1475 1 7400 1636 

1477 1008 

1478 1808 

1479 D1BB 

147A F12D 
147 B 1008 
147C 1 4C20 1481 

147E 1 7400 1620 

1480 700F 

1481 C1BB 

1482 F1BF 

148 3 6108 
1484 1 4C04 1488 



1486 

1487 

1488 

1489 1 

148B 
148C 

148D 1 

148F 

1490 

1491 

1492 

1493 

1494 1 

1496 

1497 

1498 

1499 1 
149 B 
149C 



1801 
7003 

1801 
F400 1699 

71FF 
70F7 

6 500 1676 

D1BF 

73FF 
7007 

7300 
7009 

7400 162D 
7006 

7201 
70DB 

7400 1636 

7201 

70D4 



SRA 
STO 
STO 

* 

MDX 
MDX 

* 

LD 
EOR 
STO 
BSC 

MDX 
MDX 

* 

CAL01 LD 
EOR 
STO 

* 

CAL02 LD 
MOX 
SLA 
SRA 
STO 

EOR 
SLA 
BSC 

* 

MDX 
MDX 

* 

CAL03 LD 
EOR 

* 

LDX 

TSTBT BSC 

* 

SRA 
MDX 

BITON SRA 
EOR 

* 

DECSH MDX 
MDX 

* 

LDX 

STO 

* 

CAL04 MDX 
MDX 

* 

MDX 
MDX 

MDX 
MDX 

MDX 
MDX 

* 

CAL05 MOX 

MDX 
MOX 



16 
1 BCCA-T 

1 BCCSW-T 

L ASCII 
ASCIM 

2 

1 OLSTX-T 

1 TMODE-T 
L CAL01.Z 

2 1 
CAL02 

1 BCCSW-T 
1 Ol-T 

1 BCCSW-T 

2 

L BCCSW 
8 
8 
1 TEMP1-T 

1 SYN-T 
8 
L CAL03.Z 

L TMODE 
CAL04 

1 TEMP1-T 
1 BCCA-T 

1 8 

L BITON, E 

1 
DECSH 

1 

L POLYN 

1 -1 
TSTBT 

LI T 

1 BCCA-T 

3 -1 
CAL05 

3 

CAL06 

L TMODE 
CAL06 

2 1 
CAL02 

L BCCSW 
2 1 

CAL01 



DATE 

EC NO. 



14N0V69 
431319 



30JAN70 
431319A 





80E37420 




ZERO BCC 


80E37430 




ACCUMULATION 


80E37440 




SET SW FOR RIGHT BYTE 


80E37450 
80E37460 
80E37470 




BR IF ASCII MODE 


80E37480 
80E37490 
80E37500 
80E37510 




SET/RESET MODE IND 


80E37520 




BR IF NOT TRANSPARENT MODE 


80E37530 
80E37540 




INCRE DATA ADDRESS 


80E37550 




BRANCH 


80E37560 
80E37570 




ALTERNATE 


80E37580 




LEFT/RIGHT 


80E37590 




BYTE IND 


80E37600 
80E37610 




FETCH TWO CHARACTERS 


80E37620 




SKIP IF LEFT BYTE 


80E37630 




DROP LEFT BYTE 


80E37640 




DROP RIGHT BYTE 


80E37650 




SAVE CHARACTER 


80E37660 
80E37670 




CK IF SYN CHAR 


80E37680 
80E37690 




BR IF NOT SYN 


80E37700 
80E37710 
80E37720 




BR IF NOT TRANSPARENT TEXT 


80E37730 
80E37740 




AOD CHARACTER TO 


80E37750 




BCC ACCUMULATION 


80E37760 
80E37770 




SET BI T COUNT TO 8 


80E37780 
80E37790 




BR IF LOW-ORDER BIT ON 


80E37800 
80E37810 




SHIFT RIGHT 


80E37820 
80E37830 
80E37840 




SHIFT RIGHT 


80E37850 




ADD POLYNOMIAL 


80E37860 
80E37870 




DECRE SHIFT COUNT 


80E37880 




BR IF NOT ZERO 


80E37890 
80E37900 




RESTORE XR1 


80E37910 
80E37920 




SAVE BCC ACCUMULATION 


80E37930 
80E37940 




DECRE CHAR COUNT 


80E37950 




BR IF MORE CHARACTERS 


80E37960 




- 


80E37970 
80E37980 




BR IF CHAR COUNT MINUS 


80E37990 

80E38000 
80E38010 




BR IF NOT TRANSPARENT TEXT 


80E38020 
80E38030 




INCRE DATA ADDRESS 


80E38040 




GO TO ADD ETX TO BCC 


80E38050 
80E38060 




SKIP IF LEFT BYTE WAS LAST 80E38070 




INCRE DATA ADDRESS 


80E38080 




GO TO PROCESS NEXT CHAR 


80E38090 






PROG ID 


080E-0 




PAGE 


28A 
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L 
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29 
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PART NO. 
PAGE 



2279476 
29A 



r.V- 



•JATE 

EC NO. 









♦ 












80E38100 








149 D 


1890 




CAL06 


SRT 




16 


REVERSE 




80E38110 








149E 


C1BF 






LD 


1 


BCCA-T 


ORDER OF 




80E38120 








149F 


1088 






SLT 




8 


BCC CHARS 




80E38130 








14A0 


D1BF 




* 


STO 


1 


3CCA-T 






80E38140 
80E38150 








14A1 1 


4C80 


1458 




BSC 


I 


CALBC 


RETURN TO MAIN LINE 


80E38160 














* 












80E38170 














* 












80E38180 








14A3 


1810 




ASCIM 


SRA 




16 


TURN SWITCH OFF 




80E38190 








14A4 


D1C0 




* 


STO 


1 


BCCSW-T 






80E38200 
80E38210 








14A5 


C200 






LD 


2 





GET 2ND HALF 




80E38220 








14A6 


E104 




* 


AND 


1 


HOOFF-T 


OF WORD 




80E38230 
80E38240 








14A7 


F1BF 




STBCC 


EOR 


1 


BCCA-T 


STORE BCC 




80E38250 








14A8 


D1BF 




* 


STO 


1 


BCCA-T 


ACCUMULATION 




80E38260 
8OE38270 


14CC 





0000 


14 A9 


73FF 






MDX 


3 


-1 


DECRE CHARACTER COUNT 


80E3828O 








14AA 


7009 




* 


MDX 




CKSW2 


BR IF NOT ZERO 




80E38290 
80E38300 


14CD 
14CF 


1 
1 


6680 14CC 
6700 1639 


14AB 1 


4400 


141A 




BSI 


L 


DCODE 


SET PARITY BIT 




80E38310 








14AD 


1093 






SLT 




19 


IN BCC CHAR 




80E38320 


14D1 





C110 


14AE 


F1BF 




* 


EOR 


I 


BCCA-T 






80E38330 
80E38340 


14D2 
1403 






D1EF 
D1F7 


14AF 


1008 






SLA 




8 


INSERT /7F IN 




80E38350 








14B0 


E90A 






OR 


1 


H007F-T 


2ND HALF 




80E38360 








14B1 


D1BF 




* 


STO 


1 


BCCA-T 


OF WORD 




80E3 83 7 
80E38380 








14B2 1 


4C80 


1458 


* 


BSC 


I 


CALBC 






80E38390 
80E38400 


14D4 
1405 




1 


C1B3 
4C18 14DB 


14B4 1 


7400 


1636 


CKSW2 


MDX 


L 


BCCSW 


CHECK SW 




80E38410 








14B6 


70EC 




* 


MDX 




ASCIM 


BR IF ON 




80E38420 
80E38430 


14D7 
14D8 






9117 
D1F3 


14B7 1 


6C00 


1636 


* 


STX 


L 


BCCSW 


TURN SWITCH ON 




80E38440 
80E38450 


1409 





C11A 


14B9 


7201 




* 


MDX 


2 


1 


INCRE DATA TABLE 


ADDR 


80E38460 
80E38470 


14DA 





7001 


14BA 


C200 






LD 


2 





GET 1ST 




80E3 8480 


14DB 





C119 


14BB 


1808 




* 


SRA 




8 


HALF OF WORD 




80E38490 
80E38500 


14DC 





DIED 


14BC 


70EA 




* 
* 


MDX 




STBCC 






80E38510 
80E38520 
80E38530 


14DD 
140 E 
14DF 







C201 
F116 
E300 








*************************************************** 


80E38540 


14E0 





F200 








* 












soEsas^o 


14E1 





D1F8 








* 


SUBROUTINE TO SENSE OPERATING, BYTE 


COUNT, 


80E38560 














* 


AND 


DIAGNOSTIC 


DSW 




80E38570 


14E2 





C203 








* 












80E38580 


14E3 





F116 








*************************************************** 


80E38 590 


14E4 





E301 








* 












80E38600 


14E5 





F202 


14BD 


0000 




SENSE 

* 


DC 




*-* 






80E38610 
80E38620 


I4t6 





D1F9 


14 BE 1 


OCOO 


1622 




XIO 


L 


SNSDG 


SENSE AND STORE 




80E38630 


14E7 





C205 


14C0 1 


0400 


163B 


* 


STO 


L 


DDSW 


DIAGNOSTIC DSW 




80E38640 
80E38650 


14E8 
14E9 






F116 
E302 


14C2 1 


OCOO 


1620 




XIO 


L 


SNSBC 


SENSE AND STORE 




80E3 8660 


14EA 





F204 


14C4 1 


0400 


163A 


* 


STO 


L 


BCDSW 


BYTE COUNT DSW 




80E38670 
80E38680 


14EB 





D1FA 


14C6 1 


OCOO 


1614 




XIO 


L 


SNSOP 


SENSE AND STORE 




80E38690 


14EC 





C1F8 


14C8 1 


D400 


1639 


* 


STO 


L 


OPDSW 


OPERATING DSW 




80E38700 
80E38710 


14ED 
14EF 


1 




4C20 14F7 
C1F9 


14CA 1 


4C80 


14BD 


* 
* 


BSC 


I 


SENSE 


RETURN 




80E38720 
80E38730 
80E38740 


14F0 
14F2 
14F3 


1 



1 


4C20 14F7 
CIFA 
4C20 14F7 








*************************************************** 


80E38750 














* 












80E38760 


14F5 





4E00 0006 








* 


SUBROUTINE TO CHECK OPERATING, BYTE 


COUNT, 


80E38770 








14N0V69 30JAN70 














PROG ID 08PE-0 


JATE 14N0V69 30JAN70 


43131" 


) 431319A 
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EC NO. 431319 431319A 



BITS 
COM 



* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

********** 

* 

CKDSW DC 

* 

LDX 
LDX 

* 

LD 

STO 

STO 

* 

* 

* 

* 

DSWCK LD 
BSC 



S 

STO 

LD 
MDX 

LD 
STO 

LD 

EOR 

AND 

EOR 

STO 

LD 

EOR 

AND 

EOR 

STO 

LD 

EOR 

AND 

EOR 

STO 

LD 

BSC 

LD 

BSC 

LD 

BSC 



AND DIAGNOSTIC DSWS 



CALLING SEQUENCE- 



BSI 

DC 
DC 
DC 
DC 
DC 
DC 



CKDSW 
/XXXX 
/XXXX 
/XXXX 
/XXXX 
/XXXX 
/XXXX 



OPER. DSW S/B 
OPER. DSW MASK 
BYTE CNT. DSW S/B 
BYTE CNT. DSW MASK 
DIAG. DSW S/B 
DIAG. DSW MASK 



ON IN DSW MASKS ARE IGNORED IN 
PARING THE DSWS 

***************************************** 



12 CKDSW 
L3 OPDSW 

1 HE001-T 
1 ERRM+2-T 
1 ERM2+2-T 



ENTRY 

PICK UP CALL SEQ ADDR 
POINT TO DSW'S SENSED 

INITIALIZE 
ERROR MESSAGE ID 



DSW CHECK SUBROUTINE 



* 
NVAR 



1 LOCK-T 
L NVAR.+- 

1 Dl-T 

1 ERRM+6-T 

1 04- T 
NVAR+1 

1 03-T 

1 ERRM-T 

2 1 

1 HFFFF-T 

3 

2 

1 ERM2+3-T 

2 3 

1 HFFFF-T 

3 1 

2 2 

1 ERM2+4-T 

2 5 

1 HFFFF-T 

3 2 

2 4 

I ERM2+5-T 

1 ERM2+3-T 
L DSWER.Z 

1 ERM2+4-T 
L DSWER.Z 

1 ERM2+5-T 
L DSWER.Z 



BSC L2 6 



BR IF NO VARIABLE DATA 

STO VARIABLE DATA IN MSG 
SET MODIFIER COUNT TO 4 

SET MODIFIER COUNT TO 3 



CHECK 
OPERATING 
DSW 

STORE BITS IN ERROR 

CHECK 
BYTE 
COUNT 
DSW 
STORE BITS IN ERROR 

CHECK 
DIAGNOSTIC 
DSW 

STORE BITS IN ERROR 

BR IF ANY 
BITS IN ERROR 



RETURN TO CALLING RTN 



80E38780 

80E38790 

80E38800 

80E38810 

80E38820 

80E38830 

80E38840 

80E38850 

80E38860 

80E38870 

80E38880 

80E38890 

80E38900 

80E38910 

80E38920 

80E38930 

80E38940 

80E3895C 

80E38960 

80E38970 

80E38980 

30E38990 

80E39000 

80E39010 

80E39020 

80E39030 

80E39040 

80E39050 

80E39060 

80E39070 

80E39080 

80E39090 

80E39100 

80E39110 

80E39120 

80E39130 

80E39140 

80E39150 

80E39160 

80E39170 

80E39180 

80E39190 

80E39200 

80E39210 

80E39220 

80E39230 

80E39240 

80E39250 

80E39260 

80E39270 

80E39280 

80E39290 

80E39300 

80E39310 

80E39320 

80E39330 

80E39340 

80E39350 

80E39360 

80E39370 

80E39380 

80E39390 

80E39400 

80E39410 

80E39420 

80E39430 

80E39440 

80E39450 



PROG 10 
PAGE 



080E-0 
29 A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
iCA WRAP AROUND TEST 



PART NO. 2279476 
PA3E 30 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
ICA WRAP AROUND TEST 



PART NO. 
PAGE 



7279476 
30A 



STORE OPERATING DSW SENSED 
IN PRINTOUT 

STORE BYTE COUNT DSW 
SENSED IN PRINTOUT 

STORE DIAGNOSTIC DSW 
SENSEO IN PRINTOUT 

SET CONTINUATION 
LINE MODIFIER COUNT 



XR2=MSG STRING ADDR 
PRINT 1ST LINE 

PRINT CONTINUATION LINE 

RETURN TO CALLING RTN 

* 

*************************************************** 
* 

SUBROUTINE TO COMPARE DATA RETRIEVED 
DURING TRANSMIT AND RECEIVE OPERATIONS 



14F7 
14F8 


C300 
D1F0 




OSWER 


LD 
STO 


3 

1 



ERRM+3-T 


14F9 
14FA 


C301 
D1F1 




£ 


LD 
STO 


3 

1 


1 
ERRM+4-T 


14FB 
14FC 


C302 
D1F2 




* 


LD 
STO 


3 

1 


2 
ERRM+5-T 


14FD 
14FE 


C10D 
D1F5 




LD 
STO 


1 
1 


H8003-T 
ERM2-T 


14FF 
1500 1 


6A09 

6600 


1663 


f 


STX 
LDX 


2 
L2 


RTURN+1 
ERRM 


1502 1 


4400 


122E 


A 


BSI 


L 


ERPRT 


1504 1 
1506 1 


6600 
4400 


166B 
122E 


# 


LDX 
BSI 


L2 
L 


ERM2 
ERPRT 


1508 
150A 


6600 
4E00 


0000 
0006 


RTURN 


LDX 
BSC 


L2 
L2 


*-* 
6 



CALLING SEQUENCE- 

L 



* 
* 
* 
* 
* 

* BSI L CKDAT 

* DC ADDR 

* DC ADDR 

* DC COUNT 
* 

*************************************************** 
* 



ADDR OF RETRIEVED DATA 
ADDR OF S/B DATA 
NO. OF CHARACTERS 



150C 0000 
150D 1 6680 150C 

150F 1810 

1510 01C6 

1511 C200 

1512 DOOD 

1513 D01A 

1514 C201 

1515 OOOE 

1516 D01C 

1517 C202 

1518 D001 

1519 6700 0000 

15 IB 6200 

151C 1 7400 163C 
151E 700E 

151F C600 0000 

1521 1808 

1522 D1C1 

1523 C600 0000 
1525 1808 



CKDAT DC 

* 

LDX 



SRA 

STO 

LD 

STO 

STO 

LD 

STO 

STO 

LO 

STO 

LDX 

LDX 

MDX 
MDX 

LD 

SRA 

STO 

LD 
SRA 



CK 

* 



* 
CKSW 



* 
CK1 



* 
CK2 



*-* 
12 CKDAT 

16 

1 WSW-T 

2 
CK1+1 
CK3+1 

2 1 
CK2+1 
CK4+1 

2 2 
*+l 
L3 *-* 

2 

L WSW 
CK3 

L2 *-* 
8 
1 BFFR-T 

L2 *-* 
8 



PICK UP CALL SEQ ADDR 

SET SWITCH FOR 1ST 

HALF OF WORD 
PICK UP ADDR OF 

RETRIEVED DATA 



PICK UP AODR OF 
S/B DATA 



XR3=CHARACTER COUNT 

XR2=ZER0 

BR IF 2ND HALF 
OF WORD 

MOVE 1ST HALF OF WORD 
OF RETRIEVED 
DATA TO BUFFER 

MOVE 1ST HALF OF 
WORD OF S/B DATA 



80E39460 

80E39470 

80E39480 

80E39490 

80E39500 

80E39510 

80E39520 

80E39530 

80E39540 

80E39550 

80E39560 

80E39570 

80E39580 

80E39590 

80E39600 

80E39610 

80E39620 

80E39630 

80E39640 

80E39650 

80E39660 

80E39670 

80E39680 

80E39690 

80E39700 

80E39710 

80E39720 

80E39730 

80E39740 

80E39750 

80E39760 

80E39770 

80E39780 

80E39790 

80E39800 

80E39810 

80E39820 

80E39830 

80E39840 

80E39850 

80E39860 

80E39870 

80E39880 

80E39890 

80E39900 

80E39910 

80E39920 

80E39930 

80E39940 

80E39950 

80E39960 

80E39970 

80E39980 

80E39990 

80E40000 

80E40010 

80E40020 

80E40033 

80E40040 

80E400 50 

80E40060 

80E40070 

80E40080 

80E40090 

80E40100 

80E40110 

80E40120 

80E40130 



1526 D1C2 

1527 F1C1 

1528 1 4C20 1542 

152A 1 6C00 163C 
152C 700F 



1520 
152F 

1530 

1531 



C600 0000 
1008 
1808 
D1C1 



1532 C600 0000 

1534 1008 

1535 1808 

1536 D1C2 

1537 F1C1 

1538 1 4C20 1542 

153A D1C6 



153B 7201 

153C 73FF 
1530 70DE 

153E 1 6680 150C 
1540 4E00 0003 

1542 CODD 

1543 D001 

1544 C600 0000 

1546 D1FI 

1547 CODC 

1548 0001 

1549 C600 0000 
154B DIF2 

154C C112 
154D 8117 
154E D1EF 

154F C1B3 

1550 1 4C18 1556 

1552 9117 

1553 D1F3 

1554 C11A 

1555 7001 

1556 C119 

1557 1 D400 1663 

1559 1 6680 150C 



* 
CK3 



* 
CK4 



* 
* 

* 
DCCNT 

* 
RETRN 

* 
NCMPR 



155B 
155C 
155D 
155F 
1560 
1561 



73FF 

1000 

6F00 1637 

C202 

91C1 

D400 1666 



STO 

EOR 
BSC 

STX 

MDX 

LD 
SLA 
SRA 
STO 

LD 
SLA 
SRA 
STO 

EOR 
BSC 

STO 

MDX 

MDX 
MOX 

LDX 
BSC 

LD 
STO 
LD 
STO 

LD 
STO 
LD 
STO 

LD 

A 

STO 

LD 
BSC 

S 
STO 

LD 
MDX 
LD 
STO 

LDX 

MDX 

NOP 

STX 

LD 

S 

STO 



1 BFFR2-T 

1 BFFR-T 
L NCMPR, Z 

L WSW 

DCCNT 

L2 *-* 
8 
8 
1 BFFR-T 

L2 *-* 
8 
8 
1 BFFR2-T 

1 BFFR-T 
L NCMPR, Z 

1 WSW-T 



2 1 

3 -1 
CKSW 

12 CKDAT 
L2 3 

CK1+1 
*+l 
L2 *-* 
1 ERRM+4-T 

CK2+1 
*+l 
L2 *-* 
1 ERRH+5-T 

1 HE004-T 

1 Dl-T 

1 ERRM+2-T 

1 LOCK-T 
L *+4 , +- 

1 Dl-T 

1 ERRM+6-T 

1 D4-T 
* + l 

1 D3-T 
L ERRM 

12 CKDAT 

3 -1 

L3 BFFR 

2 2 

1 BFFR-T 
L ERRM+3 



TO BUFFER 

BR IF DATA 
DOES NOT COMPARE 

SET SWITCH FOR 2ND 
HALF OF WORD 



MOVE 2ND HALF OF WORD 
OF RETRIVED DATA 
TO BUFFER 



MOVE 2ND HALF OF 
WORD OF S/B OATA 
TO BUFFER 



BR IF OATA 
DOES NOT COMPARE 

SET SWITCH FOR 1ST 
HALF OF WORD 

INCR XR2 

decr Character count 
br if not zero 



RETURN TO MAIN LINE 

PLACE WORD 
OF RETRIEVED 
OATA IN 
PRINTOUT 

PLACE WORD 
OF SHOULD BE 
OATA IN 
PRINTOUT 

BUILD MID 



BR IF NO VARIABLE 



STO VARIABLE IN MSG 

SET MODIFIER COUNT TO 4 
BRANCH 
SET UP 
MODIFIER COUNT 

PICK UP CALL SEQ ADDR 

CALCULATE CHARACTER 
DISPLACEMENT AND 
PLACE IN ERROR MSG 



1563 1 6600 1663 



LDX L2 ERRM 



80E40140 
80E40150 
80E40160 
80E40170 
80E40180 
80E40190 
S0E40200 
80E40210 
80E40220 
80E40230 
80E 40240 
80E40250 
80E40260 
80E40270 
80E40280 
80E40290 
80E40300 
80E40310 
80E40320 
80E40330 
80E40340 
80E40350 
80E40360 
80E403 70 
80E40380 
80E40390 
80E40400 
80E40410 
80E40420 
80E40430 
80E40440 
80E40450 
80E40460 
80E40470 
80E40480 
80E40490 
80E40500 
80E40510 
80E40520 
80E40530 
80E40540 
80E40550 
80E40560 
80E40570 
80E40580 
80E40590 
80E40600 
80E40610 
80E40620 
80E40630 
80E40640 
80E40650 
80E40660 
80E40670 
80E40580 
80E40690 
80E40700 
80E40710 
80E40720 
80E40730 
80E40740 
80E40750 
80E40760 
80E40770 
80E40780 
80E40790 
80E40800 
80E40810 



J ATE 

EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



PROG 
PAGE 



ID 



080E-0 
30 



JATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



080E-0 
30A 



I II 
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PAGE 
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1565 1 4400 122E 

1567 1 6680 1520 

1569 1 C400 0802 
156B 100C 

156C 1 4410 1576 



BSI 



ERPRT 



LDX 12 CK1+1 
LD I SWO 
12 
L DUMP,- 



SLA 
BSI 



156 E 
1570 
1572 
1573 



6680 1524 
C400 0802 
100D 
4410 1576 



1575 70C8 

1576 0000 

1577 6A0C 

1578 C10C 

1579 DIED 



LDX 
LD 
SLA 
BSI 

MDX 



12 CK2+1 
L SWO 

13 
L OUMP,- 

RETRN 



BR TO PRINT MSG 

XR2=RETRIEVED DATA AODR 
GET CONTROL OPTIONS 

DUMP RETRIEVED DATA 

XR2=EXPECTED DATA ADDR 
GET CONTROL OPTIONS 

DUMP EXPECTED DATA 

RETURN TO CALLING RTN 



DUMP DC 



TABLE DUMP SUB-ROUTINE 



STX 

LD 
STO 



2 MVTBL+4 

1 H8000-T 
1 ERRM-T 



157A 1 
157C 1 



6600 1663 
4400 122E 



157E 1 6780 151A 



LDX L2 ERRM 
BSI L ERPRT 

LDX 13 CK+1 



1580 
1582 
1583 
1585 
1587 
1588 
1589 
158 A 
158B 



7408 1584 

62F8 

C600 0000 

0600 1676 

73FE 

4838 

700C 

7201 

70F7 



MVTBL MDX 
LDX 



L *+2i8 
2 -8 
LD L2 *-* 
STO L2 ERM2+11 



SAVE TABLE ADDR 

SET UP TO PRINT 
BLANK LINE 

PRINT 
BLANK LINE 

XR3=CHARACTER COUNT 



MOVE DATA TABLE 
TO PRINT 



158C C10E 
158D D1F5 

158E 6B05 



MDX 
BSC 
MDX 
MDX 
MDX 

LD 
STO 

STX 



3 -2 
Z+- 
LLINE 

2 1 

MVTBL+3 

1 H8008-T 
1 ERM2-T 

3 MVTB1+1 



158F 
1591 

1593 
1595 

1596 
1598 

159A 
159C 



1 6600 
1 4400 

6700 
70EA 

7600 

1 6E00 

1 6600 
1 4*00 



166B 
122E 



0000 



8009 
166B 

166B 
122E 



LDX L2 ERM2 
BSI L ERPRT 



SET UP MODIFIER 

COUNT 

SAVE REMAINING COUNT 

PRINT LINE 
OF DATA 



PICK UP REMAINING COUNT 
GO SET UP NEXT LINE 

CALCULATE MODIFIER 
COUNT 



159E 1 4C80 1576 



PRINT LAST 
LINE 

RETURN TO CALLING RTN 



MVTB1 LDX L3 *-* 

MDX MVTBL 

LLINE MDX L2 -32759 

STX L2 ERM2 
* 

LDX L2 ERM2 

BSI L ERPRT 

BSC I DUMP 

* 
* 
♦♦♦♦♦♦♦♦♦♦it**************************************** 

* subroutine to check for unexpected or 

* in;orrect interrupt 

* calling sequence- 

* bsi l ckint 

* dc /xxxx oper. dsw s/b 



80E40820 
80E40830 
80E40840 
80E40850 
80E40860 
80E40870 
80E40880 
80E40890 
80E40900 
80E40910 
80E40920 
80E40930 
80E40940 
80E40950 
80E40960 
80E40970 
80E40980 
80E40990 
80E41000 
80E41010 
80E41020 
80E41030 
80E41040 
80E41050 
80E41D60 
80E41070 
80E41080 
80E41090 
80E41100 
80E41110 
80E41120 
80E41130 
80E41140 
80E41150 
80E41160 
80E41170 
80E41180 
80E41190 
80E41200 
80E41210 
80E41220 
80E41230 
80E41240 
80E41250 
80E41260 
80E41270 
80E41280 
80E41290 
80E41300 
80E41310 
80E41320 
80E41330 
80E41340 
80E41350 
80E41360 
80E41370 
80E41380 
80E41390 
80E41400 
80E41410 
80E41420 
80E41430 
80E41440 
80E41450 
80E41460 
80E41470 
80E41480 
80E41490 



DC 
DC 
DC 
DC 
DC 



/XXXX 
/XXXX 
/XXXX 
/XXXX 
/XXXX 



OPER. DSW MASK 

BYTE CNT. DSW S/B 

BYTE CNT. DSW MASK 

DIAG. DSW S/B 

DIAG. DSW MASK 



15A0 0000 



* 

* 
* 
* 

* 

* 
* 
* 
♦♦♦at*********************************************** 

ENTRY 



BITS ON IN DSW MASKS ARE IGNORED IN 

COMPARING THE DSWS. 
IF THE OPER. DSW S/B PARAMETER IS ZEROES, 

THE SUBROUTINE ASSUMES NO INTERRUPT SHOULD 
HAVE OCCURRED. 



15A1 1 
15A3 1 

15A5 
15 A6 1 

15A8 
15A9 

15AA 
15AB 

15AC 
15AD 

15AE 
15AF 
15B0 

15B1 
15B2 1 



6680 15A0 
6700 163D 

C1B3 
4C18 15AC 



9117 
D1F3 

C11A 
7001 

C119 

DIED 

cm 

DlEF 
D1F7 

C200 
4C20 15BC 



15B4 1 7401 1665 



15B6 1 
15B8 1 



C400 1507 
4C20 15C8 



CKINT OC 

* 

LDX 
LDX 

LD 
BSC 

S 
STO 

LD 

MDX 

NVAR1 LD 
STO 

LD 

STO 

STO 



LD 
BSC 

MDX 

LD 
BSC 



15BA 4E00 0001 



158C 1 
15BE 1 

15C0 1 

15C2 1 

15C4 1 
15C6 
15C7 

15C8 
15C9 

15CA 
15CB 

15CC 
15CD 

15CE 1 
15D0 1 



C400 1507 
4C20 14D4 

7402 1665 

4400 14BD 

6700 1639 

7205 

6AD8 

C300 
D1F0 

C301 
D1F1 

C302 
01F2 

6600 1663 
4400 122E 



INEXP LD 
BSC 

MDX 

* 

BSI 

* 

LDX 
MDX 
STX 

INTER LD 
STO 

* 

LD 
STO 

* 

LD 
STO 

LDX 
BSI 



*-* 

12 CKINT 
L3 I OPER 

1 LOCK-T 
L NVAR1.+- 

1 Dl-T 

1 ERRM+6-T 

1 D4-T 
NVAR1+1 

1 D3-T 
1 ERRM-T 

1 HE002-T 
1 ERRM+2-T 
1 ERM2+2-T 



2 

INEXP, Z 

ERRM+2,1 

INT 
INTER, Z 



BSC L2 1 



INT 
DSWCK.Z 

ERRM+2,2 

SENSE 



L3 OPDSW 
2 5 

2 CKINT 

3 

1 ERRM+3-T 

3 1 

1 ERRM+4-T 

3 2 

1 ERRM+5-T 

L2 ERRM 
L ERPRT 



PICK UP CALL SEQ AODR 
POINT TO DSW'S SENSED 



BR IF NO VARIABLE DATA 



STO VARIABLE DATA IN MSG 

SET MODIFIER COUNT TO 4 
BRANCH 

SET MODIFIER COUNT TO 3 



INITIALIZE 
ERROR MSG ID 



BR IF INTERRUPT EXPECTED 
INC RE ERROR MSG 10 

BR IF INTERRUPT OCCURRED 
RETURN TO CALLING RTN 

BR IF INTERRUPT OCCURRED 

INCR ERROR MSG ID 

SENSE DSW'S 

POINT TO "DSW'S SENSED 
SET UP RETURN ADDR 



STORE OPERATING 
DSW IN PRINTOUT 

STORE BYTE COUNT 
DSW IN PRINTOUT 

STORE DIAGNOSTIC 
DSW IN PRINTOUT 



PRINT ERROR MSG 



80E41500 

80E41510 

80E41520 

80E41530 

80E41540 

80E41550 

80E41560 

80E41570 

80E41580 

80E41590 

80E41600 

80E41610 

80E41620 

80E41630 

80E41640 

80E41650 

80E41660 

80E41670 

80E41680 

80E41690 

80E41700 

80E41710 

80E41720 

80E41730 

80E41740 

80E41750 

80E41760 

80E41770 

80E41780 

80E41790 

80E41800 

80E41810 

80E41820 

80E41830 

80E41840 

80E41850 

80E41860 

80E41870 

80E41880 

80E41890 

80E41900 

80E41910 

80E41920 

80E41930 

80E41940 

80E41950 

80E41960 

80E41970 

80E41980 

80E41990 

80E42000 

80E42010 

80E42020 

80E42030 

80E42040 

80E42050 

80E42060 

80E42070 

80E420 80 

80E42090 

80E42100 

80E42110 

80E42120 

80E42130 

80E42140 

80E42150 

80E42160 

80E42170 
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431319A 



PROG ID 
PAGE 



080E-0 
31 



J ATE 

EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



PROG ID 
PAGE 



080E-0 
31A 
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15D2 1 6680 15A0 




LDX 


12 CKINT 


1504 4E00 0001 


* 
* 


BSC 


L2 1 



RETURN TO CALLING RTN 



*************************************************** 

* 

* CA INTERRUPT HANDLING SUBROUTINE 

* 

*************************************************** 

* 



15D6 





0000 




* 
INT 

* 

* 
* 

* 

* 
* 


DC 




*-* 


DVA 


15D7 





0000 




DC 




*-* 




15D8 
15DA 


I 
I 


OCOO 
D400 


1622 
U3F 


XIO 
STO 


L 
L 


SNSDG 
1 01 AG 


SENSE ANO STORE 
DIAGNOSTIC DSW 


15DC 
15DE 


1 

1 


OCOO 
0400 


1620 
163E 


XIO 
STO 


L 
L 


SNSBC 
INTBC 


SENSE AND STORE 
BYTE COUNT DSW 


15E0 
15E2 


1 
1 


OCOO 
D400 


1616 

1630 


XIO 
STO 


L 
L 


SNSRS 
IOPER 


SENSE-RESET 
STORE OPERATING 


15E4 


1 


4C80 


15D7 


BSC 


I 


INT 


RETURN 



*************************************************** 

* 

* ROUTINE ADORES S TABLE 

* 
*************************************************** 





15E6 


1 


0958 


* 
* 
RTTBL DC 


NORMAL 
RTN01 




15E7 


1 


0971 


DC 


RTN02 




15E8 


1 


098A 


DC 


RTN03 




15E9 


1 


09A2 


DC 


RTN04 




1SEA 


1 


09BA 


DC 


RTN05 




15EB 


1 


0908 


DC 


RTN06 




15 EC 


1 


09FB 


DC 


RTN07 




15E0 


1 


0A2O 


DC 


RTN08 




15EE 


1 


0A36 


DC 


RTN09 




15EF 


1 


0A4F 


DC 


RTNOA 




15F0 


1 


0A5D 


DC 


RTNOB 




15F1 


1 


0A78 


DC 


RTNOC 




15F2 


1 


0A93 


DC 


RTNOD 




15F3 


1 


0AA9 


DC 


RTNOE 




15F4 


1 


OABF 


DC 


RTNOF 




15F5 


1 


0AD9 


DC 


RTN10 




15F6 


1 


0B13 


DC 


RTN11 




15F7 


1 


0B5F 


DC 


RTN12 




15F8 


1 


0B9F 


DC 


RTN13 




15F9 


1 


0BF3 


DC 


RTN14 




15FA 


1 


0C16 


DC 


RTN15 




15FB 


1 


0C57 


DC 


RTN16 




15FC 


1 


0C74 


DC 


RTN17 




15FD 


1 


0C90 


DC 


RTN18 




15FE 


1 


0CA1 


DC 


RTN19 




15FF 


1 


0CC2 


DC 


RTN1A 




1600 


1 


0D2A 


DC 


RTN1B 




1601 


1 


0D87 


DC 


RTN1C 




1602 


1 


0DC3 


DC 


RTN1D 




1603 


1 


ODFO 


DC 


RTN IE 




1604 


1 


0EB6 


DC 


RTN1F 




1605 


1 


0FB7 


DC 


RTN20 




1606 


1 


OFDO 


DC 


RTN21 




1607 


1 


0FF2 


DC 


RTN22 


- 


1608 


1 


1015 


DC 


RTN23 


_ATE 


14N0V69 30JAN70 






EC NO. 


431319 4313 19A 







80E42180 

80E42190 

80E42200 

80E42210 

80E42220 

80E42230 

80E42240 

80E42250 

80E42260 

80E42270 

80E42280 

80E42290 

80E42300 

80E42310 

80E42320 

80E42330 

80E42340 

80E42350 

80E42360 

80E42370 

80E42380 

80E42390 

80E42400 

80E42410 

80E42420 

80E42430 

80E42440 

80E42450 

80E42460 

80E42470 

80E42480 

80E42490 

80E42500 

80E42510 

80E42520 

80E42530 

80E42540 

80E42550 

80E42560 

80E42570 

80E42580 

80E42590 

80E42600 

80E42610 

80E42620 

80E42630 

80E42540 

80E42650 

80E42660 

80E42670 

80E42680 

80E42690 

80E42700 

80E42710 

80E42720 

80E42730 

80E42740 

80E42750 

80E42760 

80E42770 

80E42780 

80E42790 

80E42800 

80E42810 

80E42820 

80E42830 

80E42840 

80E42850 



PROG ID 
PAGE 



080E-0 
32 





1609 1 1033 


DC 


RTN24 






80E42 860 






160A 1 1059 


DC 


RTN25 






80E42870 






1608 1 10B0 


DC 


RTN26 






80E42880 






160C 1 10EA 


DC 


RTN27 






80E42890 






160D 1 110F 


DC 


RTN28 






80E42900 






160E 1 1143 


DC 

* 


RTN29 






80E42910 
80E42920 
80E42930 
80E42940 






* 


OPTIONAL 


ROUTINES 








* 








80E42950 






160F 1 117E 


RTTB1 DC 


RTN2A 






80E429 60 






1610 1 11B2 


DC 


RTN2B 






80E42970 






1611 1 11E7 


DC 

* 


RTN2C 






80E42980 
80E42990 






1612 0029 


LNRTN OC 


RTTB1-RTTBL 


LAST NORMAL RTN NUMBER 


80E43000 






1613 002C 


LRTN DC 


LNRTN-RTTBl 


LAST OPTIONAL RTN NO. 


80E43010 








* 








80E430 20 








* 








80E43030 








*************************************************** 


80E43040 








* 








80E43050 








* 


INDICATORSt 


CONSTANTS, IOCC'S 


80E43060 








* 








80E43070 








*************************************************** 


80E43080 






1614 0000 


IOCCS BSS 

* 


E 




IOCCS 


80E43090 
80E43100 






1614 0000 


SNSOP DC 







SENSE OPERATING DSW 


80E43110 






1615 0700 


DC 

* 


/0700 




IOCC 


80E43120 
80E43130 






1616 0000 


SNSRS DC 







SENSE OP DSW WITH RESET 


80E43140 






1617 0701 


DC 

* 


/0701 




IOCC 


80E43150 
80E43160 






1618 0000 


CLEAR DC 







CLEAR CA 


80E43170 






1619 0709 


DC 

* 


/0709 




IOCC 


80E43180 
80E43190 






161 A 1 1B03 


INITL DC 


XMRCT 




INITIALIZE CA 


80E43200 






161B 0500 


OC 

* 


/0500 




IOCC 


80E43210 
80E43220 






161C 0000 


ENABL DC 







ENABLE CA 


80E43230 






161D 0710 


DC 

* 


/0710 




IOCC 


80E43240 
80E43250 






16 IE 0000 


TIMER DC 







START CONTINUE TIMER 


80E43260 






161F 0720 


DC 

* 


/0720 




IOCC 


80E43270 
80E43280 






1620 0000 


SNSBC DC 







SENSE BYTE COUNT DSW 


80E43290 






1621 0704 


DC 

* 


/0704 




IOCC 


80E43300 
80E43310 






1622 0000 


SNSDG DC 







SENSE DIAGNOSTIC OSW 


80E43320 






1623 0702 


DC 

* 


/0702 




IOCC 


80E43330 

B0E43340 






1624 0000 


SETRC DC 







SET/RESET PROG RECIEVE 


80E43350 






1625 0782 


DC 

* 

£ _____ 


/0782 




IOCC 


80E43360 

80E43370 

- 80E433 80 

80E43390 






* 


PROGRAM 


INDICATORS 








* 








80E43400 






1626 0000 


ASCII DC 


*-* 




USASCII CODE INDICATOR 


80E43410 






1627 0000 


LINE DC 


*-* 




LINE NUMBER 


80E43420 






1628 0000 


DDEFS OC 


*-* 




LINE SELECT MASK 


80E43430 






1629 0000 


LOCK DC 


*-* 




ROUTINE LOCK INDICATOR 


80E43440 






162 A 0000 


ERLOK DC 


*-* 




LOOP ON ERROR INDICATOR 


80E43450 






162B 0000 


LNRID DC 


*-* 






80E43460 






162C 0000 


DLYCT DC 


*-* 






80E43470 






162D 0000 


TMODE DC 


*-* 






80E43480 






162E 0000 


BCSAV DC 


*-* 






80E43490 






162F 0000 


CRCNT DC 


*-* 






80E43500 






1630 0000 


CRAOR DC 


*-* 






80E43510 






1631 0000 


TEMPI DC 


*-* 






80E43520 






1632 0000 


TEMP2 DC 


*-* 






80E43530 




JATE 


14N0V69 30JAN70 










PROS 10 


080 E-0 


EC NO. 


431319 431319A 










PAGE 


32A 



I I I II 



II 



I III 



(I 
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L 
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1633 





0000 


1634 





0000 


1635 





0000 


1636 





0000 


1637 





0000 


1638 





0000 


1639 





0000 


163A 





0000 


163B 





0000 


163C 





0000 


163D 





0000 


163E 





0000 


163F 





0000 


1640 





0000 


1641 





0000 


1642 





0000 


1643 





0000 


1644 





0000 


1645 





COCA 


1646 





0000 


1647 





0000 


1648 





AOCA 


1649 





0000 


164A 





0000 


164B 





DXA 


164C 





0000 


164D 





0000 


164E 





0000 


164F 





0000 


1650 





0000 


1651 





0000 


1652 





0000 


1653 





0000 


1654 





0000 


1655 





0000 


1656 





0001 


1657 





0000 


1658 





D001 


1659 





0000 


165A 





0000 


165B 





0000 


16 5C 





E006 


165D 





0000 


165E 





0000 


165F 





E007 


1660 





0000 


1661 





0000 


1662 





E008 


1663 





0000 


1664 





0000 


1665 





0000 


1666 





0000 


1667 





0000 


1668 





0000 


1669 





0000 


166A 





0000 



TEMP3 


DC 


RSTAT 


DC 


BCCA 


DC 


BCCSW 


DC 


BFFR 


DC 


BFFR2 


DC 


OPDSW 


DC 


BCDSW 


DC 


OOSW 


DC 


WSW 


DC 


IOPER 


DC 


INTBC 


DC 


IOIAG 


DC 


DIAGS 


DC 


INSRT 


DC 


XRTB2 
*_ 


DC 


* 




* 




COCA 


DC 




DC 




DC 


* 




AOCA 


DC 




DC 




DC 


* 




DOCA 


DC 




DC 




DC 


* 




PASS 


DC 


LINES 


DC 


ERCT 


DC 




DC 




DC 




DC 




DC 




DC 




DC 




DC 


* 




DOOl 


DC 




DC 




DC 




DC 


* 




E006 


DC 




DC 




DC 


* 




E007 


DC 




DC 




DC 


* 




E008 


DC 




DC 




DC 


* 




ERRM 


DC 




DC 




DC 




DC 




DC 




DC 




DC 




DC 



*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 

PRINTOUTS 



/COCA 



/AOCA 

*-* 



/DOCA 

*-* 
*-* 
*-* 

*-* 
*-* 
*-* 
*-* 

*-* 
*-* 
*-* 

1 

/DOOl 

*-* 



/E006 



/E007 



/E008 

*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 



WORD BUFFER 
WORD 8UFFER 2 



DIAGNOSTIC MODE IND 
SYN INSERTION IND 
2ND XMIT/RCV TBL ADDR 



LOG STRING FOR SUMMARY 



PASS COUNTER 



LINE SELECT 


INDICATOR 


ERROR 


COUNT 


- LINE 





ERROR 


COUNT 


-LINE 


1 


ERROR 


COUNT 


- LINE 


2 


ERROR 


COUNT 


- LINE 


3 


ERROR 


COUNT 


- LINE 


4 


ERROR 


COUNT 


- LINE 


5 


ERROR 


COUNT 


- LINE 


6 


ERROR 


COUNT 


- LINE 


7 



ERROR MESSAGE STRING 



iJATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



80E43540 

80E43550 

80E43560 

80E43570 

80E43580 

80E43590 

80E43600 

80E43610 

80E43620 

80E43630 

80E43640 

80E43650 

80E43660 

80E43670 

80E43680 

80E43690 

80E43703 

80E43710 

80E43720 

80E43730 

80E43740 

80E43750 

80E43760 

80E43770 

80E43780 

80E43790 

80E43800 

80E43810 

80E43820 

80E438 30 

80E43840 

80E43850 

80E43860 

80E43870 

80E43880 

80E43890 

80E43900 

80E43910 

80E43920 

80E43930 

80E43940 

80E43950 

80E43960 

80E43970 

80E43980 

80E43990 

80E44000 

80E44010 

80E44020 

80E44030 

80E44040 

80E44050 

80E44060 

80E44070 

80E44080 

80E44090 

80E44100 

80E44110 

80E44120 

80E44130 

80E44140 

80E44150 

80E44160 

80E44170 

80E44180 

80E44190 

80E44200 

80E 44210 



PROG ID 
PAGE 



080E-0 
33 





166 B 8003 


ERM2 


DC 


/8003 


ERROR MESSAGE 


80E44220 






166C 0000 




DC 





CONTINUATION LINE 


80E 44230 






166D 0000 




DC 







80E44240 






166E 0000 




DC 


*-* 




80E44250 






166F 0000 




DC 


*-* 




80E44260 






1670 0000 




DC 


*-* 




80E44270 






1671 0000 




DC 


*-* 




80E44280 






1672 0000 




DC 


*-* 




80E44290 






1673 0000 




DC 


*-* 




80E44300 






1674 0000 




DC 


*-* 




80E44310 






1675 0000 


* 


DC 


*-* 




80E44320 
80E44330 






1676 0000 


T 


BSS 





CONSTANT TABLE BASE AODR 


80E44340 
80E44350 
80E44360 








* 




PROGRAM 


CONSTANTS 








* 








80E44370 






1676 7F52 


TIME2 


DC 


/7F52 




80E443 80 






1677 7F61 


TIME3 


DC 


/7F61 




80E44390 






1678 7FAC 


TIME4 


DC 


/7FAC 




80E44400 






1679 0080 


H0080 


DC 


/0080 




80E44410 






167A OOFF 


HOOFF 


DC 


/OOFF 




80E44420 






167B 07BF 


H07BF 


DC 


/07BF 




80E44430 






167C 7000 


H2000 


DC 


/2000 




80E44440 






167D OiFF 


H01FF 


DC 


/01FF 




80E44450 






167E OFOO 


HOFOO 


DC 


/OFOO 




80E44460 






167F OFFF 


HOFFF 


DC 


/OFFF 




80E44470 






1680 007F 


H007F 


DC 


/007F 




80E44480 






1681 8040 


H8040 


DC 


/8040 




80E44490 






1682 8000 


H8000 


DC 


/8000 




80E44500 






1683 8003 


H8003 


DC 


/8003 




80E44510 






1684 8008 


H8008 


DC 


/8008 




80E44520 






1685 C002 


HC002 


DC 


/C002 




80E44530 






1686 E001 


HE001 


DC 


/E001 




80E44540 






1687 E002 


HE002 


DC 


/E002 




80E44550 






1688 E004 


HE004 


DC 


/E004 




80E44560 






1689 FOOO 


HFOOO 


DC 


/FOOO 




80E44570 






168A FFOO 


HFFOO 


DC 


/FFOO 




80E44580 






168B EFFF 


HEFFF 


DC 


/EFFF 




80E44590 






168C FFFF 


HFFFF 


DC 


/FFFF 




80E44600 






168D 0001 


Dl 


DC 


1 




80E44610 






168E 0002 


D2 


DC 


2 




80E 44620 






168F 0003 


D3 


DC 


3 




80E44530 






1690 0004 


04 


DC 


4 




80E44640 






1691 0006 


D6 


DC 


6 




80E44650 






1692 OOOB 


Dll 


DC 


11 




80E44660 






1693 OOOF 


D15 


DC 


15 




80E44670 






1694 0032 


D50 


DC 


50 




80E44680 






1695 02BC 


0700 


DC 


700 




80E44690 






1696 1002 


DLSTX 


DC 


/1002 




80E44700 






1697 1003 


DLETX 


DC 


/1003 




80E44710 






1698 1032 


DLSYN 


DC 


/1032 




80E44720 






1699 A001 


POLYN 


DC 


/AOOl 




80E44730 








*************************************************** 


80E44740 








* 








80E44750 








* 




LINE CONTROL CHARACTERS 


80E44760 








* 








80E44770 








*************************************************** 


80E44780 








* 








80E 44790 






169A 0000 


OLE 


DC 


*-* 


DATA LINK ESCAPE 


80E44800 






169B 0000 


SOH 


DC 


*-* 


START OF HEADING 


80E44810 






169C 0000 


STX 


DC 


*-* 


START OF TEXT 


80E44820 






1690 0000 


ETB 


DC 


*-* 


END OF BLOCK 


80E 44830 






169E 0000 


ETX 


DC 


*-* 


END OF TEXT 


80E44840 






169F 0000 


EOT 


DC 


*-* 


END OF TRANSMISSION 


80E44850 






16A0 0000 


ENQ 


DC 


*-* 


ENQUIRY 


80E44860 






16A1 0000 


NAK 


DC 


*-* 


NEGATIVE ACKNOWLEDGEMENT 


80E44870 






16A2 0000 


ITB 


DC 


*-* 


END OF INTERMEDIATE BLOCK 


80E44830 






16A3 0000 


SYN 


DC 


*-* 


SYNCHRONOUS IDLE 


80E44890 




JATE 


14N0V69 30JAN70 










PROG 10 


080E-0 


EC NO. 


431319 431319A 
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16A4 


FF55 


16A5 


5555 


16 A6 


3232 


16A7 


807 F 


16A8 


807F 


16A9 


7F7F 


16AA 


0000 


16AB 


FF55 


16AC 


5555 


16AD 


3232 


16AE 


0000 


16AF 


7F7F 


16B0 


7F7F 


16B1 


0132 


16B2 


321F 


16B3 


3202 


16B4 


7F03 


16B5 


FFFF 


16B6 


FF55 


16B7 


5555 


16B8 


3232 


16B9 


0132 


16BA 


321F 


16BB 


0000 


16BC 


3202 


16BD 


7F03 


16BE 


0000 


16BF 


FFFF 


16C0 


FF55 


16C1 


5555 


16C2 


3232 


16C3 


7F7F 


16C4 


7F7F 


16C5 


8080 


16C6 


8080 


16C7 


8080 


16C8 


7F7F 


16C9 


FF55 


16CA 


5555 


16CB 


3232 


16CC 


0280 


16CD 


01DF 


16CE 


0000 


16CF 


FFFF 


16D0 


FFFF 


1601 


3232 


16D2 


7F7F 


16D3 


3232 


1604 


7F7F 


16D5 


FF55 


JATE 14N0V69 30JAN70 


EC NO. 431319 431319A 



* 
* 
*************************************************** 

* 

* 

* 

********** 

* 

* 

TBL1 



TEST MESSAGE TABLES 

****************************************** 
EBCDIC USASCI1 



DC 
DC 
DC 

DC 
DC 
DC 
DC 

DC 
DC 
DC 

DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



TBL7 DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 



* 
TBL2 



* 
TBL3 



TBL4 



* 
TBL5 



TBL6 



TBL8 



TBL9 



DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 

DC 



/FF55 
Z5555 
/3232 

/807F 
/807F 
/7F7F 
/OOOO 

/FF55 
/5555 
/3232 

*-* 

/7F7F 

/7F7F 

/0132 
/321F 
/3202 
/7F03 
/FFFF 

/FF55 

/5555 

/3232 

/0132 

/321F 

*-* 

/3202 

/7F03 

*-* 

/FFFF 

/FF55 
/5555 
/3232 
/7F7F 
/7F7F 
/8080 
/8080 
/8080 
/7F7F 

/FF55 
/5555 
/3232 

/0280 

/01DF 

*-* 

/FFFF 

/FFFF 

/3232 
/7F7F 
/3232 
/7F7F 

/FF55 



/FF55 
/5555 
/1616 

/807F 
/807F 
/7F7F 
/OOOO 

/FF55X 

/5555 

/1616 

*-* 

/7F7F 

/7F7F 

/0116 
/161F 
/1602 
/7F83 
/FFFF 

/FF55 

/5555 

/1616 

/0116 

/161F 

*-* 

/0216 

*-* 

/FFFF 

/FFFF 

/FF55 
Z5555 
/1616 
/7F7F 
/7F7F 
/8080 
/8080 
/8080 
/7F7F 

/FF55 

/5555 

/1616 

/0280 

/01DF 

*-* 

/FFFF 

/FFFF 

/1616 
/7F7F 
/1616 
/7F7F 

/FF55 



80E44900 

80E44910 

80E449 20 

80E44930 

80E44940 

80E44950 

80E44960 

80E44970 

80E44980 

80E44990 

80E45000 

80E45010 

80E45020 

80E45030 

80E45040 

80E45050 

80E45060 

80E45070 

80E45080 

80E45090 

80E45100 

80E45110 

80E45120 

80E45130 

80E45140 

80E45150 

80E45160 

80E45170 

80E45180 

80E45190 

80E45200 

80E45210 

80E45220 

80E45230 

80E45240 

80E45250 

80E45260 

80E45270 

80E45280 

80E45290 

80E45300 

80E45310 

80E45320 

80E45330 

80E45340 

80E45350 

80E45360 

80E45370 

80E45380 

80E45390 

80E45400 

80E45410 

80E45420 

80E45430 

80E45440 

80E45450 

80E45460 

80E45470 

80E45480 

80E45490 

80E45500 

80E45510 

80E45520 

80E45530 

80E45540 

80E45550 

80E45560 

80E45570 
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34 





1606 5555 




16D7 3232 




1608 021F 




1609 3232 




16DA 3232 




16DB 0203 




16DC 7F7F 




16DD 7F7F 




16DE 0004 




16DF 0506 




16E0 0708 




16 El 090A 




16E2 OBOC 




16E3 OOOE 




16E4 OFll 




16E5 1213 




16E6 1415 




16E7 1617 




16E8 1819 




16E9 1A1B 




16EA 1C10 




16EB 1E20 




16EC 2122 




16ED 2324 




16EE 2527 




16EF 2829 




16F0 2A2B 




16F1 2C2E 




16F2 2F30 




16F3 3133 




16F4 3435 




16F5 3638 




16F6 393A 




16F7 3B3C 




16F8 3E3F 




16F9 4041 




16FA 4243 




16FB 4445 




16FC 4647 




16FD 4849 




16 FE 4A4B 




16FF 4C4D 




1700 4E4F 




1701 5051 




1702 5253 




1703 5455 




1704 5657 




1705 5859 




1706 5A5B 




1707 5C5D 




1708 5E5F 




1709 6061 




170 A 6263 




170B 6465 




170C 6667 




170D 6869 




170E 6A6B 




170F 6C6D 




1710 6E6F 




1711 7071 




1712 7273 




1713 7475 




1714 7677 




1715 7879 




1716 7A7B 




1717 7C7D 


JATE 


14N0V69 30JAN70 


tC NO. 


431319 4313I9A 



DC 


/5555 


/5555 


DC 


/3232 


/1616 


DC 


/021F 


/021F 


DC 


/3232 


/1616 


DC 


/3232 


/1616 


TB LC DC 


/0203 


/02 83 


DC 


/7F7F 


/7F7F 


DC 
* 
TBLD DC 


/7F7F 


/7F7F 


/0004 


/0708 


DC 


/0506 


/OBOD 


DC 


/0708 


/0E13 


DC 


/090A 


/191A 


DC 


/OBOC 


/1C20 


DC 


/ODOE 


/2325 


DC 


/OFll 


/2629 


DC 


/1213 


/2A2C 


DC 


/1415 


/2F31 


DC 


/1617 


/3234 


DC 


/1819 


/3738 


DC 


/1A1B 


/3B3D 


DC 


/1C1D 


/3E40 


DC 


/1E20 


Z4345 


DC 


/2122 


/4649 


DC 


/2324 


/4A4C 


DC 


/2527 


/4F51 


DC 


/2829 


Z5254 


DC 


/2A2B 


/5758 


DC 


/2C2E 


/5B5D 


DC 


/2F30 


/5E61 


DC 


/3133 


Z6264 


DC 


/3435 


/6768 


DC 


/3638 


/6B6D 


DC 


/393A 


/6E70 


<3C 


/3B3C 


/7375 


DC 


/3E3F 


/7679 


DC 


/4041 


/7A7C 


DC 


/4243 


/7F80 


DC 


/4445 


Z8689 


DC 


/4647 


/8A8C 


DC 


/4849 


/8F91 


DC 


/4A4B 


/9294 


DC 


/4C4D 


/989B 


OC 


/4E4F 


/9D9E 


DC 


/5051 


/A1A2 


DC 


/5253 


/A4A7 


DC 


/5455 


/A8AB 


DC 


/5657 


/ADAE 


DC 


/5859 


/B0B3 


DC 


/5A5B 


/B5B6 


DC 


/5C5D 


/B9BA 


DC 


/5E5F 


/BCBF 


DC 


/6061 


/C1C2 


OC 


/6263 


/C4C7 


DC 


/6465 


/C8CB 


DC 


/6667 


/CDCE 


DC 


/6869 


/D0D3 


DC 


/6A6B 


/D5D6 


OC 


/6C60 


/D9DA 


DC 


/6E6F 


/DCDF 


DC 


/7071 


/E0E3 


DC 


/7273 


/E5E6 


DC 


/7475 


/E9EA 


DC 


/7677 


/ECEF 


DC 


/7879 


/F1F2 


DC 


/7A7B 


/F4F7 


DC 


/7C7D 


/F8FB 



80E45580 

80E45590 

80E45600 

80E45610 

80E45620 

80E45630 

80E45640 

80E45650 

80E45660 

80E45670 

80E45680 

80E45690 

80E45700 

80E45710 

80E45720 

80E45730 

80E45740 

80E45750 

80E45760 

80E45770 

80E45780 

80E45790 

80E45800 

80E45810 

80E45820 

80E45830 

80E45840 

80E45850 

80E45860 

80E45870 

80E45880 

80E45890 

80E45900 

80E45910 

80E45920 

80E45930 

80E45940 

80E45950 

80E45960 

80E45970 

80E45980 

80E45990 

80E46000 

80E46010 

80E46020 

80E46030 

80E46040 

80E46050 

80E46D60 

80E46070 

80E46080 

80E46090 

80E46100 

80E46110 

80E46120 

80E46130 

80E46140 

80E46150 

80E 46160 

80E46170 

80E46180 

80E46190 

80E46200 

80E46210 

80E46220 

80E46230 

80E46240 

80E46250 
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I I) I) I) I) I 



I) I) I) II 1) 



II 



I II I 



'. II II II II ( 
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1718 





7E7F 


DC 


/7E7F 


/FDFE 




1719 





8081 


DC 


/8081 


/0708 




171A 





8283 


DC 


/8283 


/OBOD 




171B 





8485 


DC 


/8485 


/0E13 




171C 





8687 


DC 


/8687 


/191A 




171D 





8889 


DC 


/8889 


/1C20 




171E 





8A8B 


DC 


/8A8B 


/2325 




171F 





8C8D 


DC 


/8C8D 


Z2629 




1720 





8E8F 


DC 


/8E8F 


/2A2C 




1721 





9091 


DC 


/9091 


/2F31 




1722 





9293 


DC 


Z9293 


/3234 




1723 





9495 


DC 


Z9495 


Z3738 




1724 





9697 


DC 


/9697 


/3B3D 




1725 





9899 


DC 


/9899 


/3E40 




1726 





9A9B 


DC 


/9A9B 


/4345 




1727 





9C90 


DC 


/9C9D 


/4649 




1728 





9E9F 


DC 


/9E9F 


/4A4C 




1729 





A0A1 


DC 


/A0A1 


/4F51 




172A 





A2A3 


DC 


/A2A3 


/5254 




172B 





A4A5 


DC 


/A4A5 


/5758 




172C 





A6A7 


DC 


/A6A7 


/5B5D 




172D 





A8A9 


DC 


/A8A9 


/5E61 




172E 





AAAB 


DC 


/AAAB 


/6264 




172F 





ACAD 


DC 


/ACAD 


/6768 




1730 





AEAF 


DC 


/AEAF 


/6B6D 




1731 





B0B1 


DC 


/B0B1 


/6E70 




1732 





B2B3 


DC 


/B2B3 


/7375 




1733 





B4B5 


DC 


/B4B5 


Z7679 




1734 





B6B7 


DC 


/B6B7 


/7A7C 




1735 





B8B9 


DC 


/B8B9 


/7F80 




1736 





BABB 


DC 


/BABB 


/8689 




1737 





BCBD 


DC 


/BCBD 


/8A8C 




1738 





BEBF 


DC 


/BEBF 


/8F91 




1739 





C0C1 


DC 


/C0C1 


/9294 




173A 





C2C3 


DC 


/C2C3 


/989B 




173B 





C4C5 


DC 


/C4C5 


/9D9E 




173C 





C6C7 


DC 


/C6C7 


/A1A2 




173D 





C8C9 


DC 


/C8C9 


/A4A7 




173E 





CACB 


DC 


/CACB 


/A8AB 




173F 





CCCD 


DC 


/CCCD 


/ADAE 




1740 





CECF 


DC 


/CECF 


/B0B3 




1741 





0001 


DC 


/D0D1 


/B5B6 




1742 





D2D3 


DC 


/D2D3 


/B9BA 




1743 





D4D5 


DC 


/D4D5 


/BCBF 




1744 





06D7 


DC 


/D6D7 


/C1C2 




1745 





0809 


DC 


/D8D9 


/C4C7 




1746 





OADB 


DC 


/DADB 


/C8CB 




1747 





DCDD 


DC 


/DCDO 


/CDCE 




1748 





DEDF 


DC 


/DEDF 


/D0D3 




1749 





E0E1 


DC 


/E0E1 


/D5D6 




174A 





E2E3 


OC 


/E2E3 


/D9DA 




174B 





E4E5 


DC 


/E4E5 


/DCDF 




174C 





E6E7 


DC 


/E6E7 


/E0E3 




174D 





E8E9 


DC 


/E8E9 


/E5E6 




174E 





EAEB 


DC 


/EAEB 


/E9EA 




174F 





ECED 


DC 


/ECED 


/ECEF 




1750 





EEEF 


DC 


/EEEF 


/F1F2 




1751 





F0F1 


DC 


/F0F1 


/F4F7 




1752 





F2F3 


DC 


/F2F3 


/F8FB 




1753 





F4F5 


DC 


/F4F5 


/FDFE 




1754 





F6F7 


DC 


/F6F7 


/0708 




1755 





F8F9 


DC 


/F8F9 


/OBOD 




1756 





FAFB 


DC 


/FAFB 


/0E13 




1757 





FCFD 


DC 


/FCFD 


/191A 




1758 





FEFF 


DC 


/FEFF 


/1C20 




1759 





FFFF 


DC 


/FFFF 


/7F7F 




175A 





027F TBLE DC 


/027F 


/027F 


JATE 


14N0V69 30JAN70 








EC NO. 


431319 431319A 









80E46260 
80E46270 
80E46280 
80E4629H 
80E46300 
80E4631? 
80E46320 
80E46330 
80E 46340 
90E4635? 
80E46360 
80646370 
80E46380 
80E46390 
80E46400 
80E46410 
80E4642P 
80E46430 
80E46440 
80E46450 
80E46460 
80E46470 
80E4648P 
80E46490 
80E46500 
80E46510 
80E46520 
80E46530 
80E46540 
80E46550 
80E45560 
80E46570 
80E46580 
80E46590 
80E46600 
80E46610 
80E46620 
80E46630 
80E46640 
80F46650 
80E46660 
80E46670 
80E46680 
80E46690 
80E46700 
80E46710 
80E46720 
80E46730 
80E46740 
80E45750 
80E46760 
80E 46770 
80E46780 
80E46790 
80E46800 
80E 46810 
80E46820 
80E46830 
80E46840 
80E46850 
80E46860 
80E46870 
80E46880 
80E46890 
80E46900 
80E46910 
80E46920 
80E469 30 



PROG ID 
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175B 





1F7F 




DC 


/1F7F 


/1F7F 


175C 





7F03 




DC 


/7F03 


/7F83 


175D 





7F7F 


* 


DC 


/7F7F 


/7F7F 


175E 





3232 


TBLF 


DC 


/3232 


/1616 


175F 





027F 




DC 


/027F 


/027F 


1760 





7F7F 


£ 


DC 


/7F7F 


/7F7F 


1761 





A008 


TBL10 


DC 


/A008 


/A008 


1762 





FF02 




DC 


/FF02 


/FF02 


1763 





C004 




DC 


/C004 


/C004 


1764 





FF7F 




DC 


/FF7F 


/FF7F 


1765 





C4FF 




DC 


/C4FF 


/C4FE 


1766 





FF1F 




DC 


/FF1F 


/FF1F 


1767 





C63E 




DC 


/C63E 


/C6E0 


1768 





E6C2 




DC 


/E6C2 


/C7C0 


1769 





C7F0 




DC 


/C7F0 


/FF7F 


176 A 





FF7F 




DC 


/FF7F 


/C4FF 


176B 





C4FF 




DC 


/C4FF 


/FF7F 


176C 





FF7F 




DC 


/FF7F 


/C4FE 


1760 





C4FE 




DC 


/C4FE 


/FF83 


176E 





FF03 




DC 


/FF03 


/C783 


176F 





C606 




DC 


/C606 


/C707 


1770 





E6A2 




DC 


/E6A2 


/FF7F 


1771 





C7D2 




DC 


/C7D2 


/C5FF 


1772 





FF7F 




DC 


/FF7F 


/FF7F 


1773 





C5FF 




DC 


/C5FF 


XMRCT+18 


1774 





FF7F 




DC 


/FF7F 


/0004 


1775 


1 


1B17 




DC 


XMRCT+20 


/FF02 


1776 





0004 




DC 


/0004 


/C17F 


1777 





FF02 




DC 


/FF02 


/FF7F 


1778 





C17F 




DC 


/C17F 


/C57F 


1779 





FF7F 




DC 


/FF7F 


/FF7F 


177A 





C57F 




DC 


/C57F 


/C57F 


177B 





FF7F 




DC 


/FF7F 


/FF7F 


177C 





C57F 




DC 


/C57F 





1770 





FF7F 


* 


DC 


/FF7F 





177E 





3232 


TBL11 


DC 


/3232 


/1616 


177F 





0000 




DC 


*-* 


*-* 


1780 





0000 




DC 


*-* 


*-* 


1781 





0000 




DC 


*-* 


*-* 


1782 





7F7F 




DC 


/7F7F 


/7F7F 


1783 





7F7F 


* 


DC 


/7F7F 


/7F7F 


1784 





1002 


TTBL1 


DC 


/1002 




1785 





7F10 




DC 


/7F10 




1786 





7F7F 




DC 


/7F7F 




1787 





FFFF 


* 
TTBL2 


DC 


/FFFF 




1788 





FF55 


DC 


/FF55 




1789 





5555 




DC 


/5555 




178A 





3232 




DC 


/3232 




178B 





1002 




DC 


/1002 




178C 





7F10 




DC 


/7F10 




178D 





107F 


£ 


DC 


/107F 




178E 





3232 


TTBL3 


DC 


/3232 




178F 





1002 




DC 


/1002 




1790 





1010 




DC 


/1010 




1791 





1032 




DC 


/1032 




1792 





7F7F 




DC 


/7F7F 




1793 





7F7F 


* 
TTBL4 


OC 


/7F7F 




1794 





1002 


DC 


/1002 




1795 





107F 




DC 


/107F 




1796 





7F7F 




DC 


/7F7F 





080E-0 
35 



JATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



80E46940 

80E46950 

80E46960 

80E46970 

80E46980 

80E46990 

80E47000 

80E47010 

80E47020 

80E47030 

80E47040 

80E47050 

80E47060 

80E47070 

80E47080 

80E47090 

80E47100 

80E47110 

80E47120 

80E47130 

80E47140 

80E47150 

80E47160 

80E47170 

80E47180 

80E47190 

80E47200 

80E47210 

80E47220 

80E47230 

80E47240 

80E47250 

80E47260 

80E47270 

80E47280 

80E47290 

80E47300 

80E47310 

80E47320 

80E47330 

80E47340 

80E47350 

80E47360 

80E47370 

80E47380 

80E47390 

80E47400 

80E47410 

80E47420 

80E47430 

80E47440 

80E47450 

80E47460 

80E47470 

80E47480 

80E47490 

80E47500 

80E47510 

80E47520 

80E47530 

80E47540 

80E47550 

80E47560 

80E47570 

80E47580 

80E47590 

80E47600 

80E47610 
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1797 





1002 


1798 





7F7F 


1799 





7F7F 


179A 





7F7F 


179B 





7F7F 


I79C 





FF55 


179D 





5555 


179E 





3232 


179F 





1002 


17A0 





0180 


17A1 





0000 


17A2 





0000 


17A3 





FFFF 


17A4 





1002 


17A5 





1010 


17A6 





1032 


I7A7 





101F 


17A8 





1026 


17A9 





1003 


17AA 





102D 


17AB 





103D 


17AC 





FFFF 


17AD 





1037 


17AE 





FFFF 


17AF 





1070 


17B0 





1003 


17B1 





FFFF 


17B2 





FF55 


17B3 





5555 


17B4 





3232 


17B5 





1002 


17B6 





1010 


17B7 





1010 


17B8 





1010 


17B9 





3210 


17BA 





101F 


17BB 





1010 


17BC 





2610 


17BD 





1003 


17BE 





1010 


17 BF 





2D10 


17C0 





1030 


17C1 





FFFF 


17C2 





1010 


17C3 





37FF 


17C4 





FF10 


17C5 





1070 


17C6 





1003 


17C7 





0000 


17C8 





FFFF 


17C9 





FF55 


17CA 





5555 


17CB 





3232 


17CC 




0163 



TTBL5 



DC 
DC 
DC 
DC 
DC 



TTBL6 DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

TTBL7 DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

TTBL8 DC 
DC 
DC 
• OC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



* 
VTBL 



DC 
DC 
DC 
BSS 



/1002 
/7F7F 
/7F7F 
/7F7F 
/7F7F 

/FF55 

/5555 

/3232 

/1002 

/0180 

*-* 

*-* 

/FFFF 

/1002 
/1010 
/1032 
/101F 
/1026 
/1003 
/102D 
/103D 
/FFFF 
/1037 
/FFFF 
/1070 
/1003 
/FFFF 

/FF55 

/5555 

/3232 

/1002 

/1010 

/1010 

/1010 

/3210 

/101F 

/1010 

/2610 

/1003 

/1010 

/2D10 

/103D 

/FFFF 

/1010 

/37FF 

/FFIO 

/1070 

/1003 

*-* 

/FFFF 

/FF55 
/5555 
Z3232 

3 55 



/FF55 
/5555 
/1616 



192F 1010 
1930 0101 



********** 
* 
* 
* 

********** 
* 

EBCCT DC 
DC 



***************************************** 

EBCDIC CODE TABLES 
***************************************** 

/1010 
/0101 



80E47620 

80E47530 

80E47640 

80E476'iO 

80E47660 

80E47670 

80E47680 

80E47590 

80E47709 

80E47710 

80E47720 

80E4773O 

80E47740 

80E47750 

80E47760 

80E47770 

80E47780 

80E47790 

80E47800 

80E47810 

80E47820 

80E47830 

80E47840 

80E47850 

80E47860 

80E47870 

80E47880 

80E47890 

80E47900 

80E47910 

80E47920 

80E47930 

80E47940 

80E47950 

80E47960 

80E47970 

80E47980 

80E47990 

80E48000 

80E48010 

80E480 20 

80E48030 

80E48040 

80E48050 

80E48060 

80E48070 

80E48080 

80E48090 

80E48100 

80E48110 

80E48120 

80E48130 

80E48140 

80E48150 

80E48160 

80E48170 

80E48180 

80E48190 

80E48200 

80E48210 

80E48220 

80E48230 

80E48240 

80E48250 

80E48260 

80E4827P 

80E48 280 

80E48290 



1931 


0202 


1932 


2626 


1933 


0303 


1934 


3737 


1935 


2D2D 


1936 


3D3D 


1937 


1F1F 


1938 


3232 


1939 


FF55 


193A 


5555 


193B 


3232 


193C 


eC7F 


193D 


807 F 


193E 


7F7F 


193F 


0000 


1940 


FF55 


1941 


5555 


1942 


3232 


1943 


0000 


1944 


7F7F 


1945 


7F7F 


1946 


0132 


1947 


321F 


1948 


3202 


1949 


7F03 


194A 


FFFF 


194B 


FF55 


194C 


5555 


194D 


3232 


194E 


0132 


194F 


321F 


1950 


0000 


1951 


3202 


1952 


7F03 


1953 


0000 


1954 


FFFF 


1955 


FF55 


1956 


5555 


1957 


3232 


1958 


7F7F 


1959 


7F7F 


195A 


8080 


195B 


8080 


195C 


8080 


195D 


7F7F 


195E 


FF55 


195F 


5555 


1960 


3232 


1961 


0280 


1962 


01DF 


1963 


0000 


1964 


FFFF 


1965 


FFFF 


1966 


3232 


1967 


7F7F 


1968 


3232 


1969 


7F7F 



DC 


/0202 


DC 


/2626 


DC 


/0303 


DC 


/3737 


DC 


/2D2D 


DC 


/3D3D 


DC 


/1F1F 


DC 


/3232 


DC 


/FF55 


DC 


/5555 


DC 


/3232 


DC 


/807F 


DC 


/807F 


DC 


/7F7F 


DC 


/oooo 


DC 


/FF55 


DC 


/5555 


DC 


/3232 


DC 


*-* 


DC 


/7F7F 


DC 


/7F7F 


DC 


/0132 


DC 


/321F 


DC 


/3202 


DC 


/7F03 


DC 


/FFFF 


DC 


/FF55 


DC 


/5555 


DC 


/3232 


DC 


/0132 


DC 


/321F 


DC 


*-* 


DC 


/3202 


DC 


/7F03 


DC 


*-* 


DC 


/FFFF 


DC 


/FF55 


DC 


/5555 


DC 


/3232 


DC 


/7F7F 


OC 


/7F7F 


DC 


/8080 


DC 


/8080 


DC 


/8080 


DC 


/7F7F 


DC 


/FF55 


DC 


/5555 


DC 


/3232 


DC 


/0280 


DC 


/01DF 


DC 


*-* 


DC 


/FFFF 


DC 


/FFFF 


DC 


/3232 


DC 


/7F7F 


DC 


/3232 


DC 


/7F7F 



196A FF55 



DC 



/FF55 



80E48300 

80E48310 

80E48320 

80E48330 

80E48340 

80E48350 

80E48360 

80E48370 

80E48380 

80E48390 

80E48400 

80E48410 

80E48420 

80E48430 

80E48440 

80E48450 

80E48460 

80E48470 

80E48480 

80E48490 

80E48500 

80E48510 

80E48520 

80E48530 

80E48540 

80E48550 

80E48560 

80E48570 

80E48580 

80E48590 

80E48600 

80E48610 

80E48620 

80E48630 

80E48640 

80E48650 

80E48660 

80E48670 

80E48680 

80E48690 

80E48700 

80E48710 

80E48720 

80E48730 

80E48740 

80E48750 

80E48760 

80E48770 

80E48780 

80E48790 

80E48800 

80E48810 

80E48820 

80E48830 

80E48840 

80E48850 

80E48860 

80E48870 

80E 48880 

80E48890 

80E48900 

80E48910 

80E48920 

80E48930 

80E48940 

80E48950 

80E48960 

80E48970 



DATE 
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196B 5555 




196C 3232 




I960 021F 




196E 3232 




196F 3232 




1970 0203 




1971 7F7F 




1972 7F7F 




1973 0004 




1974 0506 




1975 0708 




1976 090A 




1977 OBOC 




1978 OOOE 




1979 0F11 




197A 1213 




197B 1415 




197C 1617 




197D 1819 




197E 1A18 




197F 1C10 




1980 1E20 




1981 2122 




1982 2324 




1983 2527 




1984 2829 




1985 2A2B 




1986 2C2E 




1987 2F30 




1988 3133 




1989 3435 




198A 3638 




198 B 393A 




198C 3B3C 




198D 3E3F 




198E 4041 




198F 4243 




1990 4445 




1991 4647 




1992 4849 




1993 4A4B 




1994 4C4D 




1995 4E4F 




1996 5051 




1997 5253 




1998 5455 




1999 5657 




199A 5859 




199B 5A5B 




199C 5C5D 




1990 5E5F 




199E 6061 




199F 6263 




19A0 6465 




19A1 6667 




19A2 6869 




19A3 6A6B 




19A4 6C6D 




19A5 6E6F 




19A6 7071 




19A7 7273 




19A8 7475 




19A9 7677 




19AA 7879 




19AB 7A7B 




19 AC 7C7D 


JATE 


14N0V69 30JAN70 


EC NO. 


431319 431319A 



DC 


/5555 


DC 


/3232 


DC 


/021F 


DC 


/3232 


DC 


/3232 


DC 


/0203 


DC 


/7F7F 


DC 


/7F7F 


DC 


/0004 


DC 


/0506 


DC 


/0708 


DC 


/090A 


DC 


/OBOC 


DC 


/ODOE 


DC 


/0F11 


DC 


/1213 


DC 


/1415 


DC 


/1617 


DC 


/1819 


DC 


/1A18 


DC 


/1C1D 


DC 


/1E20 


DC 


/2122 


DC 


/2324 


DC 


/2527 


DC 


/2829 


DC 


/2A2B 


DC 


/2C2E 


DC 


/2F30 


DC 


/3133 


DC 


/3435 


DC 


/3638 


DC 


/393A 


DC 


/3B3C 


DC 


/3E3F 


DC 


/4041 


DC 


/4243 


DC 


/4445 


DC 


/4647 


DC 


/4849 


DC 


/4A4B 


DC 


/4C4D 


DC 


/4E4F 


DC 


/5051 


DC 


/5253 


DC 


/5455 


DC 


/5657 


DC 


/5859 


DC 


/5A5B 


DC 


/5C5D 


DC 


/5E5F 


DC 


/6061 


DC 


/6263 


DC 


Z6465 


DC 


/6667 


OC 


Z6869 


DC 


/6A6B 


DC 


/6C6D 


DC 


/6E6F 


DC 


/7071 


DC 


/7273 


DC 


Z7475 


DC 


/7677 


DC 


/7879 


DC 


/7A7B 


DC 


/7C7D 



80F48980 


19AD 7E7F 


80E48990 


19AE 8081 


80E49000 


19AF 8283 


80E49010 


19B0 8485 


80E49020 


19B1 8687 


80E49030 


19B2 8889 


80E49040 


19B3 8A8B 


90E49050 


19B4 8C8D 


80E49060 


19B5 8E8F 


80E49070 


19B6 9091 


80E490 80 


1987 9293 


90E49D90 


19B8 9495 


80E49100 


19B9 9697 


80E49110 


19BA 9899 


80E4912CI 


19BB 9A9B 


80649130 


19BC 9C9D 


80E49140 


19BD 9E9F 


80E49150 


19BE A0A1 


80E49160 


19BF A2A3 


80E49170 


19C0 A4A5 


80E49180 


19C1 A6A7 


80E49190 


19C2 A8A9 


80E49200 


19C3 AAAB 


80E49210 


19C4 ACAD 


80E49220 


19C5 AEAF 


80E49230 


19C6 B0B1 


80E49240 


19C7 B2B3 


80E49250 


19C8 B4B5 


80E49260 


19C9 B6B7 


80E49270 


19CA B8B9 


80E49280 


19CB BABB 


80E49290 


19CC 8CBD 


80E49300 


19CD BEBF 


80E49310 


19CE C0C1 


80E49320 


19CF C2C3 


80E49330 


19 DO C4C5 


80E49340 


19D1 C6C7 


80E49350 


19D2 C8C9 


80E49360 


1903 CACB 


80E49370 


19D4 CCCD 


80E49380 


19D5 CECF 


80E49390 


19D6 D0D1 


80E49400 


19D7 02D3 


80E49410 


19D8 0AD5 


80E49420 


19D9 D6D7 


80E49430 


19DA D8D9 


80E49440 


19DB DADB 


80E49450 


19DC DCDD 


80E49460 


1900 DEDF 


80E49470 


190E EOEl 


80E49480 


19DF E2E3 


80E49490 


19E0 E4E5 


80E49500 


19E1 E6E7 


80E49510 


19E2 E8E9 


80E49520 


19E3 EAEB 


80E49530 


19fc4 ECED 


80E49540 


19E5 EEEF 


80E49550 


19E6 FCF1 


80E49560 


19fc7 F2F3 


80E49570 


19E8 F4F5 


80E49580 


19E9 F6F7 


80E49590 


19EA F8F9 


80E49600 


19EB FAFB 


80E49610 


19EC FCFD 


80E49620 


19ED FEFF 


80E49630 


19 EE FFFF 


80E49640 




80E49650 


19EF 027F 
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DC 


/7E7F 


DC 


/8081 


DC 


/82 83 


DC 


/8485 


DC 


/8687 


DC 


/8889 


DC 


/8A8B 


DC 


/8C8D 


DC 


/8E8F 


DC 


/9091 


DC 


/9293 


DC 


/9495 


DC 


/9697 


DC 


Z9899 


DC 


/9A9B 


DC 


/9C9D 


DC 


/9E9F 


DC 


/A0A1 


DC 


/A2A3 


DC 


/A4A5 


DC 


/A6A7 


DC 


/A8A9 


DC 


/AAAB 


DC 


/ACAD 


DC 


/AEAF 


DC 


/B0B1 


DC 


/B283 


DC 


/B4B5 


DC 


/B6B7 


DC 


/B8B9 


DC 


/BABB 


DC 


/BCBD 


DC 


/BEBF 


DC 


/C0C1 


DC 


/C2C3 


DC 


/C4C5 


DC 


/C6C7 


DC 


/C8C9 


DC 


/CACB 


DC 


/CCCD 


OC 


/CECF 


DC 


/00D1 


DC 


/D2D3 


DC 


/D4D5 


DC 


/06D7 


DC 


/D8D9 


DC 


/DADB 


DC 


/DCDD 


DC 


/DEDF 


DC 


/EOEl 


DC 


/E2E3 


DC 


/E4E5 


DC 


/E6E7 


DC 


/E8E9 


DC 


/EAEB 


DC 


/ECED 


DC 


/EEEF 


DC 


/F0F1 


DC 


/F2F3 


DC 


/F4F5 


DC 


/F6F7 


DC 


/F8F9 


DC 


/FAFB 


DC 


/FCFD 


DC 


/FEFF 


DC 


/FFFF 



DC 



/027F 



80E49660 

80E49670 

80649680 

80E49690 

80E49700 

80E49710 

80E49720 

80E49730 

80E49740 

80E49750 

80E49760 

80E49770 

80E49780 

80E49790 

80E49800 

80E49810 

80E49820 

80E49830 

80E49840 

80E49850 

80E49860 

80E49870 

80E49880 

80E49890 

80E49900 

80E49910 

80E49920 

80E49930 

80E49940 

80E49950 

80E49960 

80E49970 

80E49980 

80E49990 

80E50000 

80E50010 

80E50020 

80E50030 

80E50040 

80E50050 

80E50060 

80E50070 

80E50080 

80E50090 

80E50100 

80E50110 

80E50120 

80E50130 

80E50140 

80E50150 

80E50160 

80E50170 

80E50180 

80E50190 

80E50200 

80E50210 

80E50220 

80E50230 

80E50240 

80E50250 

80E50260 

80E50270 

80E50280 

80E50290 

80E50300 

80E 50310 

80E50320 

80E50330 
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19F0 1F7F 


DC 


/1F7F 


19F1 7F03 


DC 


/7F03 


19F2 7F7F 


DC 

* 

DC 


/7F7F 


19F3 3232 


/3232 


19F4 027F 


DC 


/027F 


19F5 7F7F 


DC 

* 

DC 


/7F7F 


19F6 A008 


/A008 


19F7 FF02 


DC 


/FF02 


I9F8 COO* 


DC 


/C004 


19F9 FF7F 


DC 


/FF7F 


19FA C4FE 


DC 


/C4FE 


19FB FF1F 


DC 


/FF1F 


19FC C63E 


DC 


/C63E 


19F0 E6C2 


DC 


/E6C2 


19FE C7F0 


DC 


/C7F0 


19FF FF7F 


DC 


/FF7F 


1A00 C4FF 


DC 


/C4FF 


1A01 FF7F 


DC 


/FF7F 


1A02 C4FE 


DC 


/C4FE 


1A03 FF03 


DC 


/FF03 


1A04 C606 


DC 


/C606 


1A05 E6A2 


DC 


/E6A2 


1A06 C7D2 


DC 


/C7D2 


1A07 FF7F 


DC 


/FF7F 


1A08 C5FF 


DC 


/C5FF 


1A09 FF7F 


DC 


/FF7F 


1A0A 1 1817 


DC 


XMRCT+20 


1A0B 0004 


DC 


/0004 


1A0C FF02 


DC 


/FF02 


IAOD C17F 


DC 


/C17F 


1A0E FF7F 


DC 


/FF7F 


1A0F C57F 


DC 


/C57F 


1A10 FF7F 


DC 


/FF7F 


1A11 C57F 


DC 


/C57F 


1A12 FF7F 


DC 

* 

DC 


/FF7F 


1A13 3232 


Z3232 


1A14 0000 


DC 


*-* 


1A15 0000 


DC 


*-* 


1A16 0000 


DC 


*-* 


1A17 7F7F 


DC 


/7F7F 


1A18 7F7F 


DC 

* 

4c 


/7F7F 




********************** 




* 

* 
* 
*********** 


USASCII 




t*********** 


1A19 1010 


ASCCT DC 


/1010 


1A1A 0101 


DC 


/0101 


1A1B 0202 


DC 


/0202 


IA1C 9797 


DC 


/9797 


1A1D 8383 


DC 


/8383 


1A1E 0404 


DC 


/0404 


1A1F 8585 


DC 


/8585 


1A20 1515 


DC 


/1515 


1A21 1F1F 


DC 


/1F1F 


1A22 1616 


DC 

* 


/1616 


1A23 FF55 


oc 


/FF55 


1A24 5555 


DC 


Z5555 


1A25 1616 


DC 


/1616 
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80E50340 


1A26 807F 




DC 


/807F 


80E50350 


1A2 7 807F 




DC 


/807F 


80E50360 


1A28 7F7F 




DC 


/7F7F 


80E50370 


1A29 0000 




DC 


/OOOO 


80E50380 




* 






80E50390 


1A2A FF55 




DC 


/FF55 


80E50400 


1A28 5555 




DC 


/5555 


80E50410 


1A2C 1616 




DC 


/1616 


80E50420 




* 






80E50430 


1A2D E5D2 




DC 


/*-* 


80E50440 


1A2E 7F7F 




DC 


/7F7F 


80E50450 


1A2F 7F7F 




DC 


/7F7F 


80E50460 




* 






80E 50470 


1A30 0116 




DC 


/0116 


80E50480 


1A31 161F 




DC 


/161F 


80E50490 


1A32 1602 




DC 


/1602 


80E50500 


1A33 7F83 




DC 


/7F83 


80E50510 


1A34 FFFF 




DC 


/FFFF 


80E50520 




* 






80E50530 


1A35 FF55 




DC 


/FF55 


80E50540 


1A36 5555 




DC 


/5555 


80E50550 


1A37 1616 




DC 


/1616 


80E50560 


IA38 0116 




DC 


/0116 


80E50570 


1A39 161F 




DC 


/161F 


80E50580 


1A3A 0000 




DC 


*-* 


80E50590 


1A3B 027F 




DC 


/027F 


80E50600 


1A3C 0000 




DC 


*-* 


80E50610 


1A3D FFFF 




DC 


/FFFF 


80E50620 


1A3E FFFF 




DC 


/FFFF 


80E50630 




* 






80E50640 


1A3F FF55 




DC 


/FF55 


80E50650 


1A40 5555 




DC 


/5555 


80E50660 


1A41 1616 




DC 


/1616 


80E50670 


1A42 7F7F 




DC 


/7F7F 


80E50680 


1A43 7F7F 




DC 


/7F7F 


80E50690 


1A44 8080 




DC 


/8080 


80E50700 


1A45 8080 




DC 


/8080 


80E50710 


1A46 8080 




DC 


/8080 


80E50720 


1A47 7F7F 




DC 


/7F7F 


80E50730 




* 






80E50740 


1A48 FF55 




DC 


/FF55 


80E50750 


1A49 5555 




DC 


/5555 


80E50760 


1A4A 1616 




OC 


/1616 


80E50770 


1A4B 0280 




DC 


/0280 


80E50780 


1A4C 01DF 




DC 


/01DF 


80E50790 


1A4D 0000 




DC 


*-♦ 


80E50800 


1A4E FFFF 




DC 


/FFFF 


80E50810 


1A4F FFFF 




DC 


/FFFF 


80E50820 




* 






80E50830 


1A50 1616 




DC 


/1616 


80E50840 


1A51 7F7F 




DC 


/7F7F 


80E50850 


1A52 1616 




DC 


/1616 


80E50860 


1A53 7F7F 




DC 


/7F7F 


80E50870 




* 






80E50880 


1A54 FF55 




DC 


/FF55 


80E50890 


IA55 5555 




DC 


/5555 


80E50900 


1A56 1616 




DC 


/1616 


80E50910 


1A57 021F 




DC 


/021F 


80E50920 


1A58 1616 




DC 


/1616 


80E50930 


IA59 1616 




DC 


/1616 


80E50940 




* 






80E50950 


1A5A 0283 




DC 


/0283 


80E50960 


1A5B 7F7F 




DC 


/7F7F 


80E50970 


1A5C 7F7F 




DC 


/7F7F 


80E50980 




* 






80E50990 


1A5D 0708 




DC 


/0708 


80E51000 


1A5E OBOD 




DC 


/OBOD 


80E51010 


1A5F 0E13 




DC 


/0E13 
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80E 51 02 

80E51030 

80E51040 

80E51050 

80E51060 

80E51070 

80E51080 

80E51090 

80E51100 

80E51110 

80E51120 

80E51130 

80E51140 

80E51150 

80E51160 

80E51170 

80E51180 

80E51190 

80E51200 

80E51210 

80E51220 

80E51230 

80E51240 

80E51250 

80E51260 

80E51270 

80E51280 

80E51290 

80E51300 

80E51310 

80E51320 

80E51330 

80E51340 

80E51350 

80E51360 

80E51370 

80E51380 

80E51390 

80E51400 

80E51410 

80E51420 

80E51430 

80E51440 

80E51450 

80E51460 

80E51470 

80E51480 

80E51490 

80E51500 

80E51510 

80E51520 

80E51530 

80E51540 

80E5155O 

80E51560 

80E51570 

80E51580 

80E51590 

80E51600 

80E51610 

80E51620 

80E51630 

80E51640 

80E51650 

80E51660 

80E51670 

80E51680 

80E51590 
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1A60 





191 A 


DC 


/191A 




1A61 





1C20 


DC 


/1C20 




1A62 





2325 


DC 


/2325 




1A63 





2629 


DC 


/2629 




1A64 





2A2C 


DC 


/2A2C 




1A65 





2F31 


DC 


/2F31 




1A66 





3234 


DC 


/3234 




1A67 





3738 


DC 


/3738 




1A68 





3B3D 


DC 


/3B3D 




1A69 





3E40 


DC 


/3E40 




1A6A 





4345 


DC 


/4345 




1A6B 





4649 


DC 


Z4649 




1A6C 





4A4C 


DC 


/4A4C 




1A6D 





4F51 


DC 


/4F51 




1A6E 





5254 


DC 


/5254 




1A6F 





5758 


DC 


/5758 




1A70 





5B5D 


DC 


/5B5D 




1A71 





5E61 


DC 


/5E61 




1A72 





6264 


DC 


/6264 




1A73 





6768 


DC 


/6768 




1A74 





6B6D 


DC 


/6B6D 




1A75 





6E70 


DC 


/6E70 




1A76 





7375 


DC 


/7375 




1A77 





7679 


DC 


Z7679 




1A78 





7A7C 


DC 


/7A7C 




1A79 





7F80 


DC 


/7F80 




1A7A 





8689 


DC 


/8689 




1A7B 





8A8C 


DC 


/8A8C 




1A7C 





8F91 


DC 


/8F91 




1A7D 





9294 


DC 


/9294 




1A7E 





989B 


DC 


/989B 




1A7F 





9D9E 


DC 


/9D9E 




1A80 





A1A2 


DC 


/A1A2 




1A81 





A4A7 


DC 


/A4A7 




1A82 





A SAB 


DC 


/A8AB 




1A83 





AOAE 


DC 


/AOAE 




1A84 





B0B3 


DC 


/B0B3 




1A85 





B5B6 


DC 


/B5B6 




1A86 





B9BA 


DC 


/B9BA 




1A87 





BCBF 


DC 


/BCBF 




1A88 





C1C2 


DC 


/C1C2 




1A89 





C4C7 


DC 


/C4C7 




1A8A 





C8CB 


DC 


/C8CB 




1A8B 





CDCE 


DC 


/CDCE 




1A8C 





D0D3 


DC 


/D0D3 




1A8D 





D5D6 


DC 


/D5D6 




1A8E 





D9DA 


DC 


/D9DA 




1A8F 





DCDF 


DC 


/DCDF 




1A90 





E0E3 


DC 


/E0E3 




1A91 





E5E6 


DC 


/E5E6 




1A92 





E9EA 


DC 


/E9EA 




1A93 





ECEF 


DC 


/ECEF 




1A94 





F1F2 


DC 


/F1F2 




1A9S 





F4F7 


DC 


/F4F7 




1A96 





F8FB 


DC 


/F8FB 




1A97 





FDFE 


DC 


/FDFE 




1A98 





0708 


DC 


/0708 




1A99 





OBOD 


DC 


/OBOD 




1A9A 





0E13 


DC 


/0E13 




1A9B 





191A 


DC 


/191A 




1A9C 





1C20 


DC 


/1C20 




1A9D 





2325 


DC 


/2325 




1A9E 





2629 


DC 


/2629 




1A9F 





2A2C 


DC 


/2A2C 




1AA0 





2F31 


DC 


/2F31 




1AA1 





3234 


DC 


/3234 




1AA2 





3738 


DC 


/3738 




1AA3 





3B3D 


DC 


/3B3D 
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80E51700 


1AA4 3E40 


DC 


/3E40 


80E51710 


IAA5 4345 


DC 


/4345 


80E51720 


1AA6 4649 


DC 


/4649 


80E51730 


1AA7 4A4C 


DC 


/4A4C 


80E51740 


1AA8 4F51 


DC 


/4F51 


30E51750 


1AA9 5254 


DC 


Z5254 


80E51760 


1AAA 5758 


DC 


/5758 


80E51770 


1AAB 5B5D 


DC 


/5B5D 


80E51780 


1AAC 5E61 


DC 


/5E61 


80E51790 


1AAD 6264 


DC 


/6264 


80E51800 


1AAE 6768 


DC 


Z6768 


80E51810 


1AAF 6B6D 


DC 


/6B6D 


80E51820 


1AB0 6E70 


DC 


/6E70 


80E51830 


1AB1 7375 


DC 


/7375 


80E51840 


1AB2 7679 


DC 


/7679 


80E51850 


1AB3 7A7C 


DC 


/7A7C 


80E51860 


1AB4 7F80 


DC 


/7F80 


80E51870 


1AB5 8689 


DC 


/8689 


80E51880 


1AB6 8A8C 


DC 


/8A8C 


80E51890 


1AB7 8F91 


DC 


/8F91 


30E51900 


1AB8 9294 


DC 


/9294 


80E51910 


1AB9 9898 


DC 


/989B 


80E51920 


1ABA 9D9E 


DC 


/909E 


80E51930 


1ABB A1A2 


DC 


/A1A2 


80E51940 


1ABC A4A7 


DC 


/A4A7 


80E51950 


1ABD A8AB 


DC 


/A8AB 


80E51960 


1ABE ADAE 


DC 


/ADAE 


80E51970 


1ABF B0B3 


DC 


/B0B3 


80E51980 


1AC0 B5B6 


DC 


/B5B6 


80E51990 


1AC1 B9BA 


DC 


/B9BA 


80E52000 


1AC2 BCBF 


DC 


/BCBF 


80E52010 


1AC3 C1C2 


DC 


/C1C2 


80E52020 


1AC4 C4C7 


DC 


/C4C7 


80E52030 


1AC5 C8CB 


DC 


/C8CB 


80E52040 


1AC6 CDCE 


DC 


/CDCE 


80E52050 


1AC7 D0D3 


DC 


/D0D3 


80E52060 


1AC8 D5D6 


DC 


/D5D6 


80E52070 


1AC9 D9DA 


DC 


/D9DA 


80E52080 


1ACA DCDF 


DC 


/DCDF 


80E52090 


1ACB E0E3 


DC 


/E0E3 


80E52100 


1ACC E5E6 


DC 


/E5E6 


80E52110 


1ACD E9EA 


DC 


/E9EA 


80E52120 


1ACE ECEF 


DC 


/ECEF 


80E52130 


1ACF F1F2 


DC 


/F1F2 


80E52140 


1AD0 F4F7 


DC 


/F4F7 


80E52150 


1AD1 F8FB 


DC 


/F8FB 


80E52160 


1AD2 FDFE 


DC 


/FDFE 


80E52170 


1AD3 0708 


DC 


/0708 


80E52180 


1AD4 OBOD 


DC 


/OBOD 


80E52190 


1AD5 0E13 


DC 


/0E13 


80E52200 


1AD6 191A 


DC 


/191A 


80E52210 


1AD7 1C20 


DC 


/1C20 


80E52220 


1AD8 7F7F 


DC 


/7F7F 


80E52230 


* 






80E52240 


1AD9 027F 


DC 


/027F 


80E52250 


1A0A 1F7F 


DC 


/1F7F 


80E52260 


1ADB 7F83 


DC 


/7F83 


80E52270 


1ADC 7F7F 


DC 


/7F7F 


80E52280 


* 






80E52290 


1ADD 1616 


DC 


/1616 


80E52300 


1ADE 027F 


DC 


/027F 


80E52310 


1ADF 7F7F 


DC 


/7F7F 


80E52320 


* 






80E52330 


1AE0 A008 


DC 


/A008 


80E52340 


1AE1 FF02 


DC 


/FF02 


80E52350 


1AE2 C004 


DC 


/C004 


80E52360 


1AE3 FF7F 


DC 


/FF7F 


80E52370 


1AE4 C4FE 


OC 


/C4FE 
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80E52380 

80E52390 

80E52400 

80E52410 

80E52420 

80E52430 

80E52440 

80E52450 

80E52460 

80E52470 

80E52480 

80E 52490 

80E52500 

80E52510 

80E52520 

80E52530 

80E52540 

80E52550 

80E52560 

80E52570 

80E52580 

80E52590 

80E52600 

80E52610 

80E52620 

80E52630 

80E52640 

80E52650 

80E52660 

80E52670 

80E52680 

80E52690 

80E52700 

80E52710 

80E52720 

80E52730 

80E52740 

80E52750 

80E52760 

80E52770 

80E52780 

80E52790 

80E52800 

80E52810 

80E5 28 20 

80E52830 

80E52840 

80E52850 

80E52860 

80E52870 

80E52880 

80E52890 

80E52900 

80E52910 

80E52920 

80E52930 

80E 52940 

80E52950 

80E52960 

80E52970 

80E52980 

80E52990 

80E53000 

80E53010 

80E53020 

80E53030 

80E53040 

80E53050 
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1AE5 


FFIF 


DC 


/FFIF 


1AE6 


C6E0 


DC 


/C6E0 


IAE7 


C7C0 


DC 


/C7C0 


1AE8 


FF7F 


DC 


/FF7F 


IAE9 


C4FF 


DC 


/C4FF 


IAEA 


FF7F 


DC 


/FF7F 


1AEB 


C4FE 


DC 


/C4FE 


1AEC 


FF83 


DC 


/FF83 


1AED 


C783 


DC 


/C783 


1AEE 


C707 


DC 


/C707 


1AEF 


FF7F 


DC 


/FF7F 


1AF0 


C5FF 


DC 


/C5FF 


1AF1 


FF7F 


DC 


/FF7F 


1AF2 1 


1B15 


DC 


XMRCT+18 


1AF3 


0004 


DC 


/0004 


1AF4 


FF02 


DC 


/FF02 


1AF5 


C17F 


DC 


/C17F 


1AF6 


FF7F 


DC 


/FF7F 


1AF7 


C57F 


DC 


/C57F 


1AF8 


FF7F 


DC 


/FF7F 


1AF9 


C57F 


DC 


/C57F 


1AFA 


FF7F 


DC 


/FF7F 


1AFB 


0000 


DC 





1AFC 


0000 


DC 





1AFD 


1616 


DC 


/1616 


1AFE 


0000 


DC 


*-* 


1AFF 


0000 


DC 


*-* 


1B00 


0000 


DC 


*-* 


1B01 


7F7F 


DC 


/7F7F 


1B02 


7F7F 


DC 

* 
* 
* 


/7F7F 



1B03 0190 
1C93 0190 



1E23 4480 012C 
1E25 1 07FF 

1FEF 

1FEF 0000 
1FF0 1 1FF0 

1FF2 1E23 

NO STATEMENTS 



*************************************************** 
* 

* TABLE BUILD AREAS 
* 

*************************************************** 
* 

XMRCT BSS 400 XMIT/RECEIVE TABLES 

* 

SRCTB BSS 400 XMIT SAMPLE TABLE 

* 

*************************************************** 

* 

* END CARO TRANSFER AND RESERVED CORE 
* 

*************************************************** 
* 

CALL MONITOR BEGIN RTN 
PST ADDRESS 

PIB+/I.7F0 RESERVE 8K OF CORE 
PROGRAM END ADDRESS 



BGIN 


BSI 1 


! BEGII 




DC 


PID 


* 








ORG 


PID+, 


* 








DC 





PEND 


DC 


PEND 


* 








END 


BGIN 



80E53060 

80E53070 

80E53080 

80E53090 

80E53100 

80E53110 

80E5312O 

80E53130 

80E53140 

80E5315" 

80E53160 

80E53170 

80E53180 

80E53190 

80E53200 

80E53210 

80E53220 

80E53230 

80E53240 

80E53250 

80E53260 

80E53270 

80E53280 

80E53290 

80E53300 

80E53310 

80E53320 

80E53330 

80E53340 

80E53350 

80E53360 

80E53370 

80E53380 

80E 53390 

80E53400 

80E53410 

80E53420 

80E53430 

80E53440 

80E53450 

80E53460 

80E53470 

80E 53480 

80E53490 

80E53500 

80E53510 

80E53520 

80E53530 

80E53540 

80E53550 

80E53560 

80E53570 

80E53580 

80E53590 

80E53600 

80E 53610 

80E53620 

80E53630 

80E53640 
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ASCCT 


1A19 


0914 
















ASCII 


1626 


08FA 


08FB 


0900 


09 OE 


0913 


0B65 


0BA5 








0DC4 


0E33 


0EC2 


10 34 


1319 


132C 


143F 




ASCIM 


14A3 


1469 


14B6 














AOCA 


1646 


093F 
















BCCA 


1635 


10C1 


1465 


1482 


14 8F 


149E 


14A0 


14A7 




BCCSW 


1636 


1466 


1471 


1473 


1475 


1499 


14A4 


14B4 




BCOSW 


163A 


14C4 
















BCSAV 


162E 


12AB 


12CC 


1345 












BEGIN 


012C 


1E23 
















BFFR 


1637 


1522 


1527 


1531 


1537 


15 5D 


1560 






BFFR2 


1638 


1526 


1536 














BGIN 


1E23 


127D 


127F 


1FF2 












BITON 


1488 


1484 
















CAIO 


134F 


0C3B 


1290 


12A8 


12CD 


12E7 


1346 






CAI01 


1362 


1353 


1367 














CALBC 


1458 


0CE7 
14B2 


0023 


0053 


0090 


0D99 


ODCF 


0E2F 




CAL01 


1471 


146 D 


149C 














CAL02 


1474 


1470 


1498 














CAL03 


1481 


147C 
















CAL04 


1490 


1480 
















CAL05 


1499 


1491 
















CAL06 


149D 


1493 


1496 














CK 


1519 


157E 
















CKOAT 


150C 


0A6E 


0A89 


0A9A 


OABO 


0B05 


0B51 


0B8D 








0DD5 


0E97 


0F98 


10 06 


1029 


104A 


1086 








153E 


1559 














CKDSW 


14CC 


0961 


09 7A 


0992 


09 A A 


09CE 


09E2 


09F1 








0BD9 


0C04 


0C41 


o:6* 


0CF2 


005E 


00B1 








10F8 


1128 


1167 


1200 


14CD 








CKINT 


15A0 


096C 


0985 


0990 


09B5 


09C6 


0A25 


0A2C 








0AB5 


0AC8 


OACF 


OBOA 


0B56 


0B92 


0BE6 








0CB8 


OCFA 


0D66 


0DB9 


00 E2 


OFCB 


0FE1 








10DC 


1105 


1116 


1139 


114C 


1174 


11EE 




CKSW 


151C 


1530 
















CKSW2 


14B4 


14AA 
















CKTIM 


13FE 


117F 


11B3 


135A 


13CC 


13FB 


140E 






CKTM1 


1402 


1407 
















CKTM2 


1409 


1404 
















CKTM3 


140C 


1411 
















CKTM4 


1412 


1408 
















CK1 


151F 


1512 


1542 


1567 












CK2 


1523 


1515 


1547 


156E 












CK3 


152D 


1513 


151E 














CK4 


1532 


1516 
















CLEAR 


1618 


084C 


095E 


0979 


098F 


09A9 


09C5 


09F0 








0A99 


OAAF 


OACE 


OAFC 


0B48 


0B84 


0BD8 








OCDB 


0D4A 


0D8F 


ODCE 


0E2E 


0F03 


0FC2 








10F7 


1127 


115D 


11AF 


11E4 


11FF 


1364 




CNTRA 


0912 


090C 
















CNTRB 


0914 


0911 
















CNTRC 


0919 


0916 


09 IE 














CNTRD 


093A 


0935 
















CNTRE 


0943 


0939 


093D 














CNTRL 


088F 


096F 


0988 


09A0 


09B8 


0906 


09F9 


0A1A 








0AA7 


OABD 


0AD7 


OBll 


0B50 


0B99 


OB ED 








0C8E 


0C9F 


OCBB 


OCCO 


0012 


0D7E 


0DC1 








0FA2 


OFAA 


0FB5 


OFCE 


OFFO 


1013 


1031 








1141 


117C 


HBO 


UE5 


1219 


126E 


137B 




CNTR1 


089B 


0893 
















CNTR2 


08B0 


08A0 


08 A8 


08AC 












CNTR3 


08B7 


08B1 
















CNTR4 


08D8 


08CD 
















CNTR5 


08BA 


08AF 


08B6 


08B8 


08C6 


080 A 


08DF 






CNTR6 


08DB 


08C0 
















CNTR7 


08E7 


08F2 


08F6 














CNTR8 


08ED 


08E7 














DATE 


14N0V69 30JAN70 












EC NO. 


431319 431319A 













08F4 0CA2 0CE2 0D37 0D94 0090 
1446 1467 



14A8 14AE 14B1 
14B7 



0F04 1072 10B8 1459 145F 14A1 



0BE1 OBFF 0C62 OCED 0059 OOAC 

1007 1100 1134 116F 120C 1500 

OAOE 0A66 0A81 OAFD 0B49 0B85 

ODDA 0FC3 OFFE 1021 1042 10CF 

0A3E 0A45 0A58 0A73 0A8E 0A9F 

OCOC 0C49 0C67 0C7F 0C86 0C9C 

0FE8 100B 102E 104F 1096 109E 
1211 15A1 15C7 15D2 



0A09 0A2B 0A44 0A57 0A65 0A80 
OBFE 0C40 0C61 0C85 0C9B 0CB7 
0FE7 OFFD 1020 1041 1085 10CE 



0A1E 0A34 0A4D 0A5B 0A76 0A91 
OCOF 0C14 0C25 0C50 0C55 0C72 
OOEE OOFA OEAl 0EA9 0EB4 OECO 
1052 1057 109B 10AB 10E8 1100 
1418 
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CNTR9 

CODE 

CORE 

CRADR 

CRCNT 

COCA 

DCCNT 

DCODE 

DDEFS 
ODSW 
DECSH 
DELAY 

DIAGS 

DLAY1 

DLAY2 

OLE 

DLETX 

DLSTX 

DLSYN 

DLYCT 

DSWCK 

DStfER 

DUMP 

DXEQ 

DX1 

DOC A 

D001 

Dl 



Oil 

D15 

02 

D3 

D4 

DSO 

D6 

D700 

EBCCT 

ENABL 

END 

ENQ 

EOT 

EPA 

ERCT 

ERLOK 

ERM2 

ERPRT 
ERPR1 
ERPR2 
ERPR3 
ERPR4 
ERPR5 
ERRM 

ERROR 

ETB 

ETX 

E006 

E007 

E008 

GEN 

GENO 

GEN1 

GEN2 



08FA 
0813 
0812 
1630 
162F 
1643 
153C 
141A 

1628 
163B 
148B 
081D 

1640 
0829 
0838 
169A 
1697 
1696 
1698 
16 2C 
14D4 
14F7 
1576 
0848 
0850 
1649 
1656 
168D 



1692 
1693 
168 E 
168F 
1690 
1694 
1691 
1695 
192F 
16 1C 
012E 
16A0 
169F 
0808 
164E 
162A 
166B 

122E 
1236 
1230 
1267 
1270 
1248 
1663 

0130 
1690 
169E 
165A 
1650 
1660 
13CB 
13D6 
13DC 
13E1 



0903 
0909 
086D 
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13F9 


1400 


1401 


1402 


1403 


140A 


140B 


140C 








140D 


1417 


141B 


14 IE 


1420 


1425 


1429 


142B 


142E 


1433 


143B 


1444 


144 A 








144D 


144F 


1454 


1465 


1466 


146B 


146C 


1471 


1472 


1473 


1479 


147A 


1481 








1482 


148D 


148F 


149E 


14 AO 


14A4 


14A6 


14A7 


14A8 


14AE 


14B0 


14B1 


14D1 








14D2 


14D3 


14D4 


14 D7 


14D8 


14D9 


14DB 


14DC 


14DE 


14E1 


14E3 


14E6 


14E8 








14EB 


14EC 


14EF 


14F2 


14F8 


14FA 


14FC 


14FD 


14FE 


1510 


1522 


1526 


1527 








1531 


1536 


1537 


15 3A 


1546 


154B 


154C 


154D 


154E 


154F 


1552 


1553 


1554 








1556 


1560 


1578 


1579 


158C 


158D 


15A5 


15A8 


15A9 


15AA 


15AC 


15AD 


15AE 








15AF 


15B0 


15C9 


15CB 


15CD 




















TBLC 


16DB 


10B3 


10BA 


10BD 


10BF 


10C3 


10CB 


10DA 
















TBLD 


16DE 


1113 


1137 


11EB 


12 OF 






















TBLE 


175A 


1149 




























TBLF 


175E 


U5A 




























TBL1 


16A4 


0A71 


0A8C 


0A9D 


0AB3 


OFBF 


OFFA 


















TBL10 


1761 


1172 




























TBL11 


177E 


1060 


1070 


1074 


1078 


107B 


1084 


1089 


108B 














TBL2 


16A7 


095C 
10F4 


0975 


09BE 


0A61 


0A7C 


0A97 


OAAD 


0AC3 


0C78 


0C94 


0FD4 


0FD6 


1009 




TBL3 


16AB 


OB 08 


OB 54 


0B90 


0BE4 






















TBL4 


16AE 


OAEA 


OAFS 


OB 36 


OB 44 


OB 79 


0B80 


OBCD 


0BD4 


0C2E 


0C96 


OCAC 


OEOO 


0E66 








0E71 


OECD 


0F29 


OF 48 


0F63 


0F6D 


102C 


106C 


1077 












TBL5 


16B1 


008 B 


0D92 


0D9B 
























TBL6 


16B6 


0D97 


ODAO 


00 A A 


ODAF 






















TBL7 


16C0 


0C5B 


0C5D 


0C65 
























TBL8 
TBL9 


16C9 
1601 


0CC7 
101D 


OCCF 


0CD7 


OCDC 


0CE9 


OCEB 


OCFO 


0D02 


0D1C 


0D22 


0D25 


0D28 






TEMPI 


1631 


0820 
141E 


08 2E 
1420 


0E36 
1425 


0E7C 
1479 


0E83 
1481 


0F08 


0F7F 


0F87 


1401 


1403 


140B 


140D 


141B 




TEMP2 


1632 


0829 
1429 


08 2C 
142B 


OFOD 
1433 


0F15 
1444 


0F1A 
144D 


0F1D 


0F27 


0F2F 


0F31 


0F36 


OF 39 i 


DF46 i 


0F4C 




TEMP3 


1633 


1439 


143B 


























TERM 


080B 


0851 


0857 


085B 


08 5D 


08F9 




















TIME 


0836 


0871 




























TIMER 


161E 


0A21 




























TIME2 


1676 


086F 




























TIME3 


1677 






























TIME4 


1678 






























TMODE 


1620 


12EE 


131D 


146C 


H7E 


1494 




















TSTBT 


1484 


148C 




























TTBL1 


1784 


0917 


091B 


OBFA 
























TTBL2 


1788 


0C02 




























TTBL3 


178E 


103E 




























TTBL4 


1794 


104D 




























TTBL5 


1797 


0CA8 i 


OCAA 
























JATE 


14N0V69 30JAN70 


























£C NO. 


431319 431319A 
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080E-0 
43A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
IXA WRAP AROUND TEST 



PART NO. 
PAGE 



2279476 
44 



TTBL6 


179C 


0D2F 


0D3A 


0D3F 


0341 


0D46 


0D4B 


0D55 


0D57 


TTBL7 


17A4 


ODCA 


0DD1 














TTBL8 


17 B2 


0DD3 


0DD8 














VTBL 


17C9 


0920 


0E02 


0E09 


0E1F 


0E24 


0E27 


0E2C 


0E31 






OEEE 


0EF5 


0EF7 


OEFC 


0F01 


0F06 


OFOF 


0F9B 


wsw 


163C 


12F0 


12F0 


12FF 


13 30 


1510 


151C 


152A 


153A 


HTCA 


0899 


















XEQ 


083C 


0806 


0840 














XHRCA 


12E9 


12B6 
















XMRCF 


12FC 


12FA 


1321 


1327 


13 29 


132F 








XMRCG 


1307 


1300 


1306 














XMRCI 


1318 


1313 
















XMRCJ 


1310 


1310 
















XMRCL 


1330 


12FB 


1316 


131C 












XMRCT 


1B03 


090F 


094E 


0C1B 


0C30 


0C33 


OCAE 


OCBO 


0CB2 






10EF 


1102 


1103 


1171 


127D 


1283 


12A6 


161A 


XMRCV 


1274 


0959 


0972 


098B 


09 A3 


09BB 


09D9 


0A03 


0A37 






OACO 


0AF5 


0B41 


0B7D 


0BD1 


0BF7 


0C39 


0C58 






0D88 


0DC7 


0E29 


OEFE 


0FB8 


OFDl 


0FF3 


1016 






1146 


1198 


11CD 


11E8 


12 87 


1289 


129C 


12AF 






134F 


1351 


1368 


1394 


13A5 


13B8 


13C9 




XMRCI 


127F 


1282 
















XMRC2 


1285 


1299 


12 9E 


12D6 


134D 










XMRC3 


12AA 


128D 
















XMRC4 


12B9 


12CA 
















XMRC5 


12C0 


12BA 
















XMRC6 


12C5 


12BF 
















XMRJ1 


1328 


131E 
















XMRL1 


133C 


1331 


133B 














XRTB2 


1642 


OFDC 


1130 


115E 


1208 


1285 


12A4 


12CF 


12DI 


XI 


08F7 


08E6 
















END OF 


ASSEMBLY 








i 


A*T P, 







0D5C 0D6E 



0E3B 0E9A OECF 0ED4 OEEB 



1008 102B 104C 1088 10D9 
1775 1A0A IAF2 
0A50 0A5E 0A79 0A94 OAAA 
0C75 0C91 0CA5 0C04 0D43 
1037 107D 10C4 10EB 1110 
12B1 12D4 12D8 12DA 12E5 



12E2 1348 134A 
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PARAGRAPH. 

PAGE 

1. PURPOSE 

1 

2. PREREQUISITES 

1 

J. USE PROCEOURE. . . . 

1 

3. 1 PROGRAM LOADING 

3.2 PROGRAM OPERATION 

3.3 PROGRAM TERMINATION 

•♦. PRINTOUTS 

" 2 

1.1 STATUS MESSAGES 

1.2 COMMAND MESSAGES 
"•.3 ERROR MESSAGES 

5. COMMENTS 

J 

5.1 ROUTINE 1 - CHECK STORAGE PROTECT 

5.2 ROUTINE 2 - FEED A CARD AND PUNCH 

5.3 ROUTINE 3 - READ 8-8 CPACKED) AND CHECK 
5.1 ROUTINE "» - READ STANDARD AND CHECK 

5.5 ROUTINE > - PUNCH 1.0 COLUMNS 

5.6 ROUTINE 6 - READ AND PUNCH SAME CARD 

5.7 ROUTINE 7 - GANG PUNCH ANY PATTERN 

6. APPENDIX . 

«* 

6.1 EDIT PROCEDURE 



1 . PURPOSE 

THIS PROGRAM CHECKS THE l«*2 CARD REAO/PUNOH FOR CO.-.RECT OPERATION. 

2. PREREQUISITES 

II!i S ^ R0GRAM MUST RUN UN0ER CONTROL OF THE DIAGNOSTIC MONITOR 
THE DIAGNOSTIC MONITOR PROGRAM USES 2,017 STORAGE MMDS ilS^.e 
PROGRAM USES 1,02". STORAGE WORDS. STORAGE WORDS, AND THIS 

3. USE PROCEDURE 

3.1 PROGRAM LOADING 

US T E N PRO«d2re°! NG PR0CE0URE AS DESCR,BED «" THE DIAGNOSTIC MONITOR 



3.2 PROGRAM OPERATION 

STANDARD MONITOR OPERATING PROCEDURES APPLY. 

deta1ls R ° CEDURES ARE SUMMAR,ZED HERE « see dm use PROCEDURE FOR 



1. 
2. 
3. 
"». 
5. 



CLEAR STORAGE 
LOAD DIAGNOSTIC MONITOR 
SELECT MODE OF EXECUTION 
SELECT MONITOR CONTROL OPTIONS 
SELECT PROGRAM OPTIONS FROM, 

TABLE PROGRAM CONTROL FUNCTION 
TABLE 1 ROUTINE SELECT FUNCTION 
TABLE 2 DEVICE SELECTION 

6. INSTRUCT MONITOR TO EXECUTE 

TABLE CONTROL FUNCTION 

:....!!!,: ' : - e " de con^e co Sr^:^ ,n data entrv sw[ -« -»• 

" DATA ENTRY SWITCHES * DESCRIPTION "* 

* 1 2 3 <. 5 6 7 8 9 10 11 12 13 It 15 * DESCR,PT,0N • 

x ' ' ! l »•• BYPASS LOG PRINTOUT x 

X * ! l • TYPE ALL ERRORS FOR EACH CARD READ * 

xi * START PROGRAM (SEE NOTES BELOW) x 

NOTES 

DATA ENTRY SWITCH 8 MUST BE SET ON WITH OTHER DESIRED OPTIONS 
IN FUNCTION 00. BIT 8 BEING SET ON IS AN INDICAT WH jZl ThI 
PUNCH HAS BEEN CLEARED OF OTHER DIAGNOSTICS THAT MI6HT Ml E£ 
THE 1M.2 DIAGNOSTIC. SWITCH 8 NKOBE SET ONLY OUR1M 
INITIAL EXECUTION. PLACE SOME BLANKS IN HOPPER SJE'SStt RDY. 

IF A ROUTINE IS NOT SELECTED, ROUTINES 1 THRU 7 WILL execute 
CO^LETE A ' LY AND THE PR ° CRAM «"-•- « TERMINATED AFTeYroStInE 7 IS 

IF A PARTICULAR ROUTINE HAS BEEN SELECTED FOR OPERATION THE PROrnAM 

sssss,:ssus , s K's^kssj- Hi ; 

WHEN LAST CARD SEQUENCE IS INDICATED THE PROGRAM WILL FINISH That 
tTp'reIs NPRo! ,LL ™ EN G ° T ° THE NEXT R 0"T« N E GRAM ,'? , 's L NOt'nECE^RY 

VARIOUS PRINTOUTS WILL OCCUR WHILE THE PROGRAM IS OPERATING «». 
TO PARAGRAPH «♦, PRINTOUTS. FOR DETAILED I NFORMAt!on! " 
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TABLE 1 



ROUTINE SELECT FUNCTION 



0F00 C001 0001 XXXX AOAO 



/PROGRAM "• 
<• 5 6 7 " 



» o 
:: 



1111 



:< o 
a 

•A 

:s 
x 
a 
a 
a 
a 



SENSE 
1 2 3 

1 

DATA ENTRY SWITCHES 

1 2 3 <» 5 6 7 8 9 10 11 12 13 1"» 





1 

1 

1 
1 
1 1 
1 1 



1. SET FUNCTION 01 IN SENSE/PROGRAM SWITCHES AND 1. 

2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

3. SET IN DESIRED ROUTINE IN DATA ENTRY SWITCHES 12-1$. 
<i. PRESS CONSOLE INTERRUPT. 



::::::■ 



aaaaaxxaaaxaxaxxxaaaxaxxaaxaaxxaxxxxxx 
DESCRIPTION x 

x 
RUN ALL ROUTINES SEQUENTIALLY X 
ROUTINE 1- CHECK STATUS « 

ROUTINE 2-FEED AND PUNCH CARDS * 
ROUTINE 3-READ 8-8 AND CHECK (PACKED)X 
ROUTINE <»-READ 12 BITS PER COLUMN x 
ROUTINE 5-PUNCH >»0 COLUMNS » 

ROUTINE 6-READ <«0 COLUMNS AND PUNCH X 
ROUTINE 7-PUNCH SUPPLIED DATA X 

x 
aaxaaxaxxaxxaaaaxaxaxxxaaaxxaxxaaxaaxxxxxx 



15 x 

0.. 
1.. 
0.. 
1.. 

0.. 

1.. 

0.. 

1.. 



a 
a 

x 1 



TABLE 2 DEVICE SELECTION 

:c::a::aaaaaaaaaaaa j. S ET FUNCTION 10 IN SENSE/PROGRAM SWITCHES AND 1. 

SENSE/ PROGRAM «. 2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

1 2 3 "» 5 6 7 " 3. SET MODE OF OPERATION IN DATA ENTRY SWITCHES 0-15. 

» "». PRESS CONSOLE INTERRUPT. 

1 1 1 1 x 

x 
i:aaaa::::a::aa:::taaaaaaaaxxxaaaaaaxxxaxxaxaxxaxxaxaxxxaxxxaaaxaxxxxx»xxaxxxxxxxxx 
DATA ENTRY SWITCHES x DESCRIPTION x 

1 2 3 <• 5 6 7 8 9 10 11 12 13 1<» 15 * x 

x 

1 SELECT SECOND DEVICE x 

x 
»»aaaaaa»»aaaaaaaaaaxaaaaaaaaaaxaaaaaxx*xxxxaxxxaxx*aaxxxxxaaxaaaxxaxxxxxxxxx 

3.3 PROGRAM TERMINATION 

THE PROGRAM WILL TERMINATE AUTOMATICALLY AFTER ROUTINE 7 IS COMPLETED 
OR IT MAY BE TERMINATED BY DESELECTING IT. 



<♦. PRINTOUTS 



<t.l 



THIS PROGRAM FOLLOWS THE PRINTOUT FORMAT ESTABLISHED BY THE 1800 
DIAGNOSTIC MONITOR. REFER TO SECTION «♦. PRINTOUTS, OF THE DIAGNOSTIC 
MONITOR DOCUMENTATION. 

STATUS MESSAGES 



PID MID RID RAD MODI 
0F00 A001 O00R XXXX DEAD 



■1.2 



THIS PRINTOUT INDICATES THAT THE LAST CARD INDICATOR WAS ON WHEN THE 
l<t<*2'S DSW WAS SENSED. THE PROGRAM WILL FINISH THAT ROUTINE AND GO 
TO THE NEXT ROUTINE OR LOOP IF THAT ONE HAS BEEN SELECTED. 



COMMAND MESSAGES 



PID MID RID RAD MODI 
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THIS PRINTOUT INSTRUCTS THE OPERATOR TO SET DATA ENTRY SWITCH I 

ON AND ANY OTHER DESIRED OPTIONS TO BE SELECTED AT THIS TIME 

UNDER FUNCTION 00 AFTER HE HAS VERIFIED THAT THE PUNCH IS CLEAR. 

THIS IS A SAFETY CHECK TO PREVENT THE ACCIDENTAL PUNCHING 

OF PROGRAMS THAT MAY FOLLOW THE m<»2 FUNCTION TEST. AFTER THE l"t<»2 

IS CLEAR OF DIAGNOSTICS PLACE SOME BLANKS IN THE HOPPER AND MAKE 

READY. 

0F00 C002 0O0R XXXX FEED 

WHEN THIS PRINTOUT OCCURS PROCEED AS FOLLOWS. PLACE BLANK CARDS IN 
THE HOPPER AND MAKE READY. 

0F00 C003 0OOR XXXX AIDE 

THIS PRINTOUT INDICATES THE l<*<t2 IS NOT READY. 

0F00 C00<« 0007 XXXX ABCD 

THIS PRINTOUT REQUESTS OPERATOR TO PLACE IN l«*l»2 HOPPER A CARD 
PUNCHED WITH WHATEVER PATTERN THE OPERATOR DESIRES, FOLLOWED BY A 
DECK OF BLANK CARDS, AND TO MAKE THE i>»<»2 READY. 

0F00 COOS 0O0R XXXX FED2 

THIS PRINTOUT INDICATES THAT THE PUNCHED CARDS ARE TO BE TAKEN OUT OF 
STACKER AND PLACED IN THE HOPPER. THEN MAKE THE 1U«»2 READY. 
IGNORE ANY BLANK CARDS IN THE STACKER. 

<t.3 ERROR MESSAGES 
PID MID RID RAD MODI MOD2 MOD3 MOD"i MODS MOD6 MOD7 

0F00 E001 000R XXXX ICED 

THIS ERROR PRINTOUT INDICATES THAT NO INTERRUPT WAS RECEIVED AFTER A 
READ, FEED, OR PUNCH COMMAND WAS INITIATED. THE PROGRAM WILL CONTINUE 
TO OPERATE AFTER THE PRINTOUT OCCURS. 

0F00 E002 000R XXXX AD00 

THIS ERROR PRINTOUT INDICATES THE 1«»<»2 WAS BUSY WHEN ITS DSW WAS 
SENSED. 

0F00 E003 000R XXXX B1EE ZZZZ 0000 

THIS ERROR PRINTOUT INDICATES A DSW ERROR OCCURRED. B1EE STANDS FOR 
•BITS IN ERROR', ZZZZ IS THE ERROR DSW, AND LAST WORD IS THE 
EXPECTED DSW. 
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0F00 E00M 000R XXXX CDEE ZZZZ YYYY CCXX 

Vlll ^ RR ° R PR,NT0UT INDICATES AN ERROR WHEN COMPARING OATA READ WITH 
DATA PREVIOUSLY PUNCHED. CDEE STANDS FOR CARD IN ERROR ZZZZ 
REPRESENTS THE DATA READ. YYYY REPRESENTS THE CORRECT DATA CCXX 
REPRESENTS THE CARD COLUMN WHERE THE ERROR OCCURRED. IN THE CASE OF 
"n U P T ACKEd'moDE. ERR ° R ^ BE ,N ™ E C ° LUMN BEF ° RE ' B"iuSE H OF C READ?NG 

0F0O EUOS 000R XXXX A1EE 

THE S bCs! NT0UT ,NWCATES A PAR,TY ERR0R ,N ™ E BIT CONFIGURATION ON 

OFOO £006 0001 XXXX CODE 

THIS PRINTOUT INDICATES THAT THE STORAGE PROTECT BIT IN THE DSW 
FAILED AFTER A READ OPERATION. 



OFOO E007 OOOR XXXX BADO 



THIS PRINTOUT WILL INDICATE THAT THE DEVICE WAS RELEASED WHEN IT 
HAD BEEN PREVIOUSLY RELEASED. THE PROGRAM WILL CONTINUE TO RUnT 



OFOO E008 OOOR XXXX FDCC 



THIS PRINTOUT INDICATES A FEED CHECK AT THE READ STATION 
RELOAD CARDS TO SEE I f IT IS FALSE OR VALID. iTAT,0N - 



NPRO AND 



COMMENTS 

NORMAL PROGRAM OPERATION- 

IF A ROUTINE IS NOT SELECTED IN TABLE 1, ROUTINES 1-7 WILL EXECUTE 
SEQUENTIALLY. AT THE END OF EACH ROUTINE, THE CUSTOMER ENGINEER HAS AN 
pnni?M C T ° H T 2 ER C0NT,NUE T0 R W »N THAT ROUTINE OR PROCEED TO TOE N E £ 
ROUTINE. AT THE END OF EACH ROUTINE, THE PROGRAM WILL PRINT OUT A 
MESSAGE C1M2 NOT READY). IF THE HOPPER IS LEFT EMPTY AND THE l«.t 2 START 
111 I S A PRESSE0 > THE PR ° GRA « WILL PROCEED TO THE NEXT RoShNe" I F IaRDS 
ARE PLACED IN THE HOPPER AND THE m 2 START KEY IS PRESSED, THE PROGRAM 
WILL CONTINUE TO RUN IN THAT SAME ROUTINE. rKtsstD, THE PROGRAM 

iLVf^ BETWEEN I/0 COMMANDS IS DESIRED SET BIT ON F CONTROL FUNCTION 
AND THIS WILL ALLOW THE CLUTCH TO LATCH UP. WITH THE CARD STARTING AND 
STORING IT WILL SHOW UP PROBLEMS OF WEAK OR WORN BELTS, LOOSE SET SCREW 
AND OTHER LINKAGE ASSOCIATED WITH THE CARD TRANSPORT. SCREWS, 

5.1 ROUTINE 1 

ROUTINE 1 CHECKS DIFFERENT FEATURES THAT ARE NOT CHECKED ELSEWHERE 
IN THE PROGRAM. AT THE BEGINNING, BIT 8 OF FUNCTION 00 MUST BE SET 
TO NDICATE THE PUNCH IS CLEAR Of'oTHER DIAGNOSTICS AND READY TO 
BEGIN THE TEST. A STORAGE PROTECT BIT IS SET AND A CARD IS READ 
;2.5 HE 5 K THE ST0RAGE PROTECT FEATURE FOR CORRECT OPERATION. AFTER 
THIS IS COMPLETED THE PROGRAM WILL PROCEEO. «r C K«nuiM. AFTER 

5.2 ROUTINE 2 

ROUTINE 2 CHECKS FEEDING, PUNCHING, AND STACKING. THE CARDS ARE 
ARE^LACED^STAjKirNo!^"! '" "^ ST ° RAGE * ° NLV ™ E CARDS PUNCHE0 



5.3 ROUTINE 3 

ROUTINE 3 READS, IN PACKED MODE C8-8), THE CARDS THAT WERE PUNCHFn kv 
ROUTINE 2. TWO CARD COLUMNS ARE STORED IN ONE STORAGE LOCATION TOE 
ODD NUMBERED COLUMN (DIGITS 12 THROUGH 5) IS PLACED IN 2ft rosiTloEs 
fV^Vr Z A ST ? RAGE L0CAT «™, AND THE EVEN NUMBERED COLuJJ 
iilVHJl THR0UGH *> «S PLACED IN BIT POSITIONS THROUGH 7. ALL 
DATA ARE CHECKED AGAINST THE DATA FROM WHICH THEY WERE PUNCHED IF am 
ERR r R ^ S M^ UN °' A PRINT0 °T OCCURS AND THE CARD IS SELECTED 7" 
Innr^c ^ ,2, THE ERR ° R PRINT0 "T CONTAINS THE PID, MESSAGE D NUMBER 
ROUTINE ID NUMBER, ROUTINE ADDRESS, BITS IN ERROR THE CORRECT hVtc 
AND THE CARD COLUMN IN WHICH THE ERROR OCCURRED. N THE CAs"oF JH' 
FORMAT THE COLUMN PRINTOUT IS EVEN, WHICH WOuCd I NDICATE THAT Th! ODD 
COLUMN BEFORE IT OR THAT EVEN COLUMN WAS IN ERROR. 

i.h ROUTINE H 

ROUTINE <f READS IN STANDARD MODE (I E., ONE COLUMN PER WORD) DIGIT* 
12 THROUGH 9 OF THE CARD ARE PLACED IN BITS THROUGH 11 BITS 12 
THROUGH IS ARE LEFT BLANK. THE DATA READ ARE CHECKED AGA NST THE 
DATA FROM WHICH THEY WERE PUNCHED. CAS IN ROUTINE 3). 

5.5 ROUTINE 5 

ROUTINE 5 PUNCHES THE FIRST <t0 COLUMNS OF A CARD THE card* p„ M r„c n 
BY ROUTINE 5 ARE USED BY ROUTINE 6 FOR A READ A^D PUNCH ?« T ! 

ROUTINE 6 



5.6 



5.7 



5 AND CHECKS 
F AN ERROR IS 



?Se I."!. 6 READS ™ E CARDS THAT WERE PUNCHED BY ROUTINE 
™L^ TA READ AGA 'NST WHAT SHOULD HAVE BEEN PUNCHED. IF Mi ERROR 
DETECTED, THE ERROR CARD WILL BE SELECTED IN STACKER 2 AND AN fSJu 
PRINTOUT WILL OCCUR. AFTER THE DATA IS CHECKED^ THE FIE^D U 
p E Ar R n E ?K 1 C ^ E -' C0LUMN l ,S PLACED >N COLUMN 8 , ' COL UMN 2 ?s 
aftfI°t« C ^ UMN "' ETO - AFTER THE F'ELD-REVERSING OPERATION AND 
AFTER THE READ AREA HAS eEEN CLEARED, A PUNCH COMMAND IS IN TIATED 
THAT CAUSES THE LAST <*0 COLUMNS TO BE PUNCHED. THiTrouTINE DOM Sot 
AUTOMATICALLY CHECK THE PUNCHING OPERATION. HOWEVER BY FOLD^G EArl 
CARD PUNCHED BY THIS ROUTINE IN HALF (FOLDED BETWEEN COLU^M A^D 

SH6u; H D E BE U ^CHEnHl E S^E? NED ' EXCEPT F ° R ™ E "" CAR °' ™" ™ 
ROUTINE 7 

HAe T p* E . L R ^ ADS A CARD THAT HAS BEEN PUNCHED WITH SOME PATTERN THAT 
HAS FAILED OR CAUSED PUNCH CHECKS. THIS DATA IS THEN PUNCHED I NTO 
BLANK CARDS THAT FOLLOW. IF THIS ROUTINE IS LOOPED A NEW PATTED MAY 
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6.1 EDIT PROCEDURE 

THE FOLLOWING EDIT PROCEDURE IS FOR CARD INPUT. THE EDIT PROCEDURE FOR P 
MUST DE THE LAST CARDS IN THIS PROGRAM DECK. THE FOLLOWING FORMS ARE PRO 
TO PREPARE OR MODIFY EDIT CARDS, FILL IN THE NECESSARY DATA IN THE FORMS 
DDEF STANDS FOR DEVICE DEFINITION EDIT FIELD. IT INCLUDES: 1. THE INTERRU 
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THE LAST EDIT CARD IS THE x END EDIT CARD . THE INFORMATION IN THIS CARD INCLUD 


IP 
VII 
PR 

PT 
T 

a; 

ES 


ER TAPE IN 
)ED TO AID 
IOR TO PUN 

LEVEL ASS 
POSITION A 
iSIGNED TO 

1. A 

2 Tl 


PUT IS LOCATED IN THE PAPER TAPE EDIT I 

IN MANUALLY PREPARING THESE EDIT CARDS 

CHING THE CARDS. CARD COLUMNS THAT AP 

OCIATED WITH THIS DEVICE (USE HEX N0TA1 
SSOCIATED WITH THIS DEVICE (UES HEX NO! 

THIS DEVICE (0-8). IF THIS IS A DPC C 
N*E" IN COLUMN 1. 
HE PID FOR THIS PROGRAM (COL. 2-3). 

TERMINATOR WORD OF X *FFFF" (COL. 7-10). 


ITILITY PR 
OR UPDAT 
iE SHADED 

ION, 00-1 
AT ION, 0- 
EVICE, PU 


OGF 
INC 
SHC 

7). 
F). 


j\m docume 
. existing 
iuld be le 

an"f"i 


NTA 
ED 
FT 

Y T 


TION. TH 
IT CARDS. 
BLANK. 

HE CARD C( 


E F 

1 

DLU 


"ROPEF 
F IT 

MN. . 


\ EDI 
IS N 


T ( 

ECE 


ARDS 
SSARY 






















1442-1 

DDEF 
ENTRY 1 


2! 


1442-2 

DDEF 

ENTRY 2 






3. A 












COLUMN 


1 


a 

1 

< 
f 
C 

2 


□ 

c 

3 
■£. 

3 


4 


5 


6 


7 


8 


UJ 



z 

UJ 

3 

UJ 

t/> 



aC 

5 

9 


0£ 
UJ 

m 

Z 

iol 


II 


u. 



ec 

UJ 
CO 

a: 

ID 

z 


UJ 

ec 

t- 
z 

UJ 

t- 


UJ 

13 


< 
ec 

UJ 

1 

UI 

eC 
UI 

H 
z 

UJ 

14 


* 

CM 

* 

< 

ec 


* 

r 

IS 


16 


lZ 

s> 

U. 

_ 

ID 

ec 

ec 

t- 
z 

17 


1 
1 

X 

UJ 

X 

18 


-5 

UI 

1- 
m 

1/) 

—I 

19 




z 

_i 

Ui 

z 
z 

20 


-j 

UJ 

> 

UJ 

-J 

fc 

ec 
uj x 

\- UJ 

Z X 


X 

UJ 

X 

00 

-1 




z 
-1 

UJ 

z 
z 

X 




?fi 










V 










3& 










hi 










'16 










<t 










r ,fi 










ST 










(( 












— 1 








CARD 


E 





F 








§ 


E 


D 








§ 


_0j 










§ 
















^ 

^ 










^ 










^ 




















<; 
^ 










3 1 

$ 










j" 

$ 










§ 










% 










/I 










END 


E 





F 










F 


F 


F 


F 


$ 










$ 










^ 

N 








i 










§ 










=£ 










$ 










s 










s? 










fe? 










§1 


















§ 






















^ 

^ 










^*-J 








§ 









g 








i 










^s 

^ 










1 










$ 










^ 


l 




£ 










$ 




















£ 








- 


$ 






















^ 








l§ 










$ 
















;3 










§ 










^ 
^ 










^ 








^ 










S 










£ 










§ 










£ 










S 






















^ 










§ 










^ 
^ 










§ 


















§ 










1 










$ 










g 










g 










g 










>> 










&? 


— 








§ 










CARD CONTAINS THE DDEF'S FOR THE 1^2'S. IF THIS SYSTEM HAS ONLY ONE 1442, THEN ONLY ONE DDEF ENTRY IS REQUIRED IN THIS CARD. 
CARD END IS THE * END EDIT CARD" PUNCH EXACTLY AS IS SHOWN. 
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oooo 






ORG 




♦S2047 




012C 




IEGIN 


1 EQU 




300 




012D 




START 


EQU 




BEG INC 1 




• 12E 




END 


EQU 




STARTC1 




012F 




LOG 


EQU 




ENDC1 


- 


• 130 




ERROR 


SOU 




LOGU 




0131 




REQOV 


EOU 




ERRORU 




0132 




RELDV 


EOU 




REQ0VC1 




0133 




CRCK 

* 


EQU 




REL0VC1 








* 
********************************************* 

• 






* 

***** 

4 


PST 




PROGRAM 


STATUS TABLE ********** 


•7FF OFOO 




PID 


OC 




/OFOO 


PID 


OOOO • 0000 




RID 


DC 




/oooo 


ROUTINE NUMBER 


0801 0000 




RAO 


OC 




/oooo 


ROUTINE AODR 


0802 • 0000 




SHO 


OC 




/oooo 


BIT SW FUNC 


0803 0000 




SMI 


OC 




/OOOO 


1 


0804 0000 




SW* 


OC 




/OOOO 


2 


0805 0000 




SH3 


DC 




/oooo 


3 


0804 1 0829 




ILP 


DC 




RTO 


INITIALIZATION ADDR 


0807 1 0829 




LPA 


DC 




RTO 


LOOP PROGRAM ADDR 


0808 1 0901 




EPA 


DC 




RTENO 


END PROG ADDR 


0809 0000 




MLSCF 


DC 




/OOOO 


1ST MLSCF NORMAL 


080A 0000 






DC 




/OOOO 


2ND MLSCF BUSY 


080B 0000 






DC 




/OOOO 


3RD MLSCF TEST INTR 


080C FFFF 




TERM 


DC 




/FFFF 


TERMINATOR 


0800 1 0C6A 






DC 




PEND 




080E 0000 






DC 




/OOO 




080F 0000 






DC 




/OOO 




0810 0000 






DC 




/OOO 




0811 0000 






DC 




/OOOO 


ON-LINE SWITCH 


0812 0000 




* 


DC 




/OOOO 


COMPATIBILITY SWITCH 


0813 0000 




EDITl 


DC 




/OOOO 


RDR-PCH 1 DDEF 


0814 0000 




EDIT2 


DC 




/OOOO 


RDR-PCH 2 DDEF 


0815 0000 




EDIT 

* 
* 
***** 

* 


DC 




/OOOO 
IDENTIFY 


INTR AND CHAN USED 
INTERRUP1 ROUTINE***** 


0816 0000 






DC 




/OOOO 


INTERRUPT SWITCH 


0817 0000 




RPDVA 

* 


DC 




/OOOO 


AREA COOE AND MOD 


0818 0000 




DSW4A 


DC 




/OOOO 


ADDR OF RETURN 


0819 1 OCOO 


0B38 




XIO 


L 


SENSE 


SENSE DSW 


081B 1000 




KEEP3 


NOP 






USE FOR TRAP 


081C 1 F400 


0908 




EOR 


L • 


CNTL 


CK FOR OP COMPLETE 


081 E 1 D400 


0B60 




STO 


L 


WAS 


SAVE DSW BITS 


0820 1 6700 


0A9F 




LDX 


L3 


IRECD 




0822 1 6F00 


0809 




STX 


L3 


MLSCF 


SET MLSCF ENTRY 


0824 1 4C80 


0818 


* 
***** 

* 


BSC 


I 


DSH4A 
STARTER 1 


ROUTINE *************** 


0826 4480 


012C 


* 
GO 


BSI 


I 


BEGIN 


CALL MONITOR 


0828 1 07FF 






OC 




PID 


ADDR OF PST 



SE 



SX 



************************* *** ********** * ** * * ** 

* 

***** RTO INITIALIZATION ************ 

* 
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0829 OOOO 


RTO 


DC 




/OOOO 




80F08010 




* 










80F00020 


082 A C0D9 




LD 




SW2 


DEVICE SELECTION 


80F00030 


082B 180E 




SRA 




14 




S0F00040 


082C 1 4C04 0830 




BSC 


L 


NBTWO, E 


BCH ON BIT 1 


80F00050 


082E C0E4 




LD 




EDITl 


RDR-PCH 1 DDEF 


80F00060 


082F 7001 




HDX 




XX 




B0F00070 




* 










80F00080 


0830 C0E3 


NBTWO LD 




EDIT2 


RDR-PCH 2 DDEF 


80F00090 


0831 D0E3 


XX 


STO 




EDIT 


ODEF CONTORL 


80F00100 




* 










80F00110 


0832 4480 0131 


CALL 


BSI 


I 


REQDV 


REQUEST OEVICE 


80F00120 




* 










80F00130 


0834 1 0848 




DC 




BSY 


BUSY ADDRESS 


80F00140 


| 0835 1 0815 




DC 




EDIT 


ADDR INTR AND CHAN 


80F00150 


0836 1 0817 




DC 




RPDVA 


ADOR AREA CODE 


80F00160 


0837 1 080C 




DC 




TERM 


TERMINATOR 


80F00170 


: 


* 










80F00180 


0838 6200 




LDX 


2 


13 


LOAD XR 2 


80F00190 


0839 1 C600 0B2E 


BUILC 


1 LD 


L2 


FDACD 


LOAD FUNCTION 


80F00200 


083B E8DB 




OR 




RPDVA 


AREA CODE 


80F00210 


083C 1 D600 0B2E 




STO 


L2 


FDACD 


SET IN I/O COMMAND 


80F00220 


083E 72FE 




MDX 


2 


-2 


ADJ XR 2 


80F00230 


083F 70F9 




MDX 




BUILD 




80F00240 




* 










80F00250 


0840 1 4400 0A3E 




BSI 


L 


RPREL 


RELEASE DEVICE 


80F00260 




* 










80F00270 


0842 1 CCOO 0B1E 




LDD 


L 


RID1 


RT NUMBER AND ADDR 


80F00280 


0844 1 4400 0A86 




BSI 


L 


RTU 


USE UPDATE ROUTINE 


80F00290 


0846 1 4C80 0829 




BSC 


I 


RTO 


RETURN 


80F00300 




* 










80F00310 


0848 1 6500 0832 


BSY 


LDX 


LI 


CALL 


GET MLSCK ENTRY 


80F00320 


084A 1 6D00 0809 




STX 


LI 


MLSCF 


SET MLSCF ENTRY 


80F00330 
80F00340 


084C 4C80 012D 


* 


BSC 


1 


START 


RETURN TO MONITOR 


80F00350 


084E 1 CCOO 0B1E 


SET1 


LDD 


L 


RID1 


RT NUMBER AND ADDR 


80F00360 


0850 1 4400 0A86 




BSI 


L 


RTU 


USE UPDATE ROUTINE 


80F00370 


0852 4C80 012D 




BSC 


I 


START 


RETURN TO MONITOR 


80F00380 




* 










80F00390 




*********************mn f tn f +*ms:m. V a****** 


80F00400 




* 










80F00410 
80F00420 




***** 

* 






ROUTINE 1- 


• CHECK STATUS ****** 


80F00430 


i 


* 










80F00440 


0854 COAO 


RT1 


LD 




SWO 


BIT SWITCH STORAGE 


80F00450 


0855 1008 




SLA 




8 




80F00460 


i 0856 1 4C28 0867 




BSC 


L 


RT1B,£Z 


BCH ON MINUS 


80F00470 


0858 1 CCOO 0B3E 




LDD 


L 


MSTAR 


MSG- SET BIT 8 FN 00 


80F00480 
80F00490 


085A 1 4400 0A28 


* 


BSI 


L 


TYPE 


USE TYPE ROUTINE 


80F00500 


085C 1 C400 0802 


RT1A 


LD 


L 


SWO 


BIT SWITCH STORAGE 


80F00510 


085E 1008 




SLA 




8 




80F00520 
80F00530 


085F 1 4C28 0867 


* 


BSC 


L 


RT1B.6Z 


BCH ON MINUS 


80F00540 


0861 1 6500 085C 




LDX 


LI 


RT1A 


GET MLSCF 


80F00550 


0863 1 6D00 0809 




STX 


LI 


MLSCF 


SET MLSCF 


80F00560 
80F00570 


0865 4C80 012D 


* 


BSC 


I 


START 


RETURN TO MONITOR 


8OFOO5B0 


0867 1 4400 0A13 


RT1B 


BSI 


L 


KNOW 


CHECK BIT SWITCHES 


80F00590 


0869 1 7400 0811 




MDX 


L 


TERM£5,0 


ON-LINE SW SET 


80F00600 


086B 700E 




MOX 




RT1C 


* YES 


80F00610 


086C 1 2C41 0BB6 




STS 


L 


RAREA./41 


SET STG PROTECT 


80F00620 


086E 1 440O 0A4E 




BSI 


L 


RPREQ 


ROUTINE REQUEST 


80F00630 


0870 1 OCOO 0B36 




XIO 


L 


READX 


READ TO CK STG PROT 


80F00640 
80F00650 


0872 1 4400 0A8E 


* 


BSI 


L 


RTL 


USE TIMING LOOP 


80F00660 
80F00670 


0874 1 2C40 0BB6 
0876 1 CCOO OB52 




STS 
LDD 


L 

L 


RAREA./40 
MSPV 


REMOVE STG PROTECT 
MSG- STG PROT VIOL 
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B0F00791 
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80F00795 

80F00800 

80F00810 

80F00820 

80F00830 

80F00840 

80F00850 

80F00860 

80F00870 

80F00880 

80F00890 

80F00900 

80F00910 

80F00920 

80F00930 

80F00931 

80F00933 

80F00935 

80F00940 

80F00950 

80F00960 

80F00970 

80F00980 

80F00990 

80F01000 

80F01010 

80F01020 

80F01030 

80F01040 

80F01050 

80F01060 

80F01070 

80F01080 

80F01090 

80F01100 

80F01110 

80F01120 

80F01130 

80F01140 

80F01150 

80F01160 

80F01170 
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80F01188 
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0878 1 4400 0A28 




BSI 


L 


TYPE 


087A 1 4400 0A4E 


RT1C 


BSI 


L 


RPREO 


087C 1 OCOO 0B38 




XIO 


L 


SENSE 


087E 1 4C04 OBOB 




BSC 


L 


NRDY.E 


0880 1 4400 0A3F 




BSI 


L 


RPREL 


0882 1 CCOO 0B22 




LDO 


L 


RIDX 


0884 1 4400 0A86 




BSI 


L 


RTU 


0886 4C80 0120 


* 
SET2 


BSC 


I 


START 


0888 1 CCOO 0B20 


LDO 


L 


RID2 


088A 1 4400 0A86 




BSI 


L 


RTU 


088C 4C80 0120 


% 


BSC 


I 


START 




******************** #$ #. 




***** 
* 




ROUTINE 2- 


088E 1 CCOO 0B40 


* 
RT2 


LDD 


L 


MFEED 


0890 1 4400 0A28 


* 
RT2A 


BSI 


L 


TYPE 


0892 1 C400 0B63 


LD 


L 


WA40 


0894 1 0400 0B8D 


Jj 


STO 


L 


WAREAS39 


0896 1 4400 0A4E 




BSI 


L 


RPREQ 


0898 1 OCOO 0B2E 




XIO 


L 


FDACD 


089A 1 4400 0A8E 




BSI 


L 


RTL 


089C 7001 




MDX 




RT2B 


0890 7011 


* 


MDX 




SKIP 


089E 1 OCOO 0B3A 


RT2B 


XIO 


L 


STACK 


08AO 1 4400 0A4E 




BSI 


L 


RPREQ 


08A2 1 OCOO 0B30 




XIO 


L 


PUNCH 


08A4 1 4400 0A8E 




BSI 


L 


RTL 


08A6 7001 




MDX 




RT2C 


08A7 7007 


* 
RT2C 


MDX 




SKIP 


08A8 1 4400 0A4E 


BSI 


L 


RPREO 


08AA 1 OCOO 0B2E 




XIO 


L 


FDACD 


08AC 1 4400 0A8E 




BSI 


L 


RTL 


08AE 70E3 


& 


MDX 




RT2A 


08AF 1 4400 OAOA 


SKIP 


BSI 


L 


FDLCD 


08B1 1 4400 0A13 


* 
SET3 


BSI 


L 


KNOW 


08B3 1 CCOO 0B24 


LDD 


L 


RID3 


08B5 1 4400 0A86 




BSI 


L 


RTU 


08B7 4C80 012D 


$ 


BSC 


I 


START 




*****. 
* 

***** 
* 


********: 


***********: 








ROUTINE 3- 


08B9 1 CCOO 0B46 


* 
RT3 


LDD 


L 


MFED2 


08BB 1 4400 0A28 




BSI 


L 


TYPE 


08B0 1 4400 0A4E 


RT3A 


BSI 


L 


RPREQ 


08BF 1 OCOO 0B36 




XIO 


L 


READX 


08C1 1 4400 0A8E 




BSI 


L 


RTL 


08C3 700A 




MDX 




CHEC 


08C4 1 4400 OAOA 




BSI 


L 


FDLCD 


08C6 1 4400 0A13 


^ 


BSI 


L 


KNOW 


08C8 1 CCOO 0826 


SET4 


LDD 


L 


RID4 


08CA 1 4400 0A86 




BSI 


L 


RTU 


08CC 4C80 012D 




BSC 


I 


START 



USE TYPE ROUTINE SC 

REQUEST DEVICE SC 
SENSE DSW 

BCH ON NOT READY SC 

RELEASE DEVICE SC 
RT NUMBER AND ADORE 

USE UPDATE ROUTINE SC 

RETURN TO MONITOR X 

RT NUMBER AND ADDR SC 
USE UPDATE ROUTINE SC 
RETURN TO MONITOR X 

********************** 
FD A CARD OR PUNCH * 



MSG- LOAD BLANKS E 
USE TYPE ROUTINE SC 



REMOVE TERMINATOR 

REQUEST DEVICE SC 

FEED A CARD 

USE TIMING LOOP SC 



SELECT STACKER 

ROUTINE REQUEST 

PUNCH COMMAND 

USE TIMING LOOP SC 



REQUEST DEVICE SC 
FEED A CARD 

USE TIMING LOOP SC 
REPEAT CYCLE 

FEED LAST CARD SC 
CHECK BIT SWITCHES SC 

RT NUMBER AND ADDR 

USE TIMING LOOP SC 

RETURN TO MONITOR X 

J******************** 

READ 8-8 £ CHECK *** 



MSG- LOAD FROM STK 2 
USE TYPE ROUTINE SC 

ROUTINE REQUEST 

READ 8-8 PACKED 

USE TIMING LOOP SC 

FEED LAST CARD SC 
CHECK BIT SWITCHES SC 

RT NUMBER AND ADDR 

USE UPDATE ROUTINE SC 

RETURN TO MONITOR X 



80F01260 

80F01270 

80F01280 

80F01290 

80F01300 

80F01310 

80F01320 

80F01330 

80F01340 

80F01350 

80F01360 

80F01370 

80F01380 

80F01390 

80F01400 

80F01410 

80F01420 

80F01430 

80F01440 

80F01450 

80F01460 

80F01470 

80F01480 

80F01490 

80F01500 

B0F01510 

80F01520 

80F01530 

80F01540 

80F01550 

80F01560 

80F01570 

80F01580 

80F01590. 

80F01600 

80F01610 

80F01620 

80F01630 

80F01640 

80F01650 

80F01660 

80F01670 

80F01680 

80F01690 

80F01700 

80F01710 

80F01720 

80F01730 

80F01740 

80F01750 

80F01760 

80F01770 

80F01780 

80F01790 

80F01800 

80F01810 

80F01820 

80F01830 

80F01840 

80F01850 

80F01860 

80F01870 

80F01880 

80F01890 

80F01900 

80F01910 

80F01920 

80F01930 



08CE 62AF 
08CF 63D8 



08D0 1 
0802 
08D3 1 
08D5 
08D6 
0807 1 
08D9 
08DA 1 
08DC 
08DD 
08DE 1 
08E0 1 
08E2 
08E3 1 
08E5 
08E6 
08E7 



C600 0BB7 

1803 

4C04 08E8 

188D 

7201 

C600 0BB7 

1803 

4C04 08F2 

1805 

1088 

D400 0B61 

F700 OBDE 

7201 

4420 09E0 

7301 

70E9 

70D5 



08E8 1805 
08E9 1 D400 0B61 
08EB 1 F700 OBDE 
08ED 1 4420 09E0 
08EF 7301 
08F0 700C 
08F1 70CB 



08F2 1805 

08F3 1088 

08F4 1 D400 0B61 

08F6 1 F700 OBDE 

08F8 1 4420 09E0 

08FA 7301 

08FB 7001 

08FC 70C0 

08FD 1011 

08FE 1 D400 0B61 

0900 1 F700 OBDE 

0902 1 4420 09E0 

0904 7301 

0905 70F7 

0906 70B6 



09 07 1 CCOO 0B46 

0909 1 4400 0A28 

090B 1 4400 0A4E 

090D 1 OCOO 0B34 

090F 1 4400 0A8E 

0911 700A 

0912 1 4400 OAOA 
0914 1 4400 0A13 

0916 1 CCOO 0B28 
0918 1 4400 0A86 
091A 4C80 012D 



CHEC LDX 
LDX 
* 

SPEC LD 
SRA 
BSC 
SRT 
MDX 
LD 
SRA 
BSC 
SRA 
SLT 
STO 
EOR 
MDX 
BSI 
MDX 
MDX 
MDX 
* 
* 
* 

D00R1 SRA 
STO 
FOR 
BSI 
MUX 
MDX 
MDX 



D00R2 



* 

xxxxx 



SRA 
SLT 
STO 
EOR 
BSI 
MDX 
MDX 
MDX 

SLA 
STO 
EOR 
BSI 

MDX 
MDX 
MUX 



2 -81 

3 -40 

L2 WAREAG81 

3 
L D00R1,E 

13 
2 1 
L2 WAREAG81 

3 
L D00R2,E 

5 

8 
L 02BE 
L3 RAREA640 

2 1 

L ERRFD.Z 

3 1 
SPEC 
RT3A 



5 
L 02BE 
L3 RAREAC40 
L ERRFDrZ 
3 1 

XXXXX 

RT3A 



5 

8 

02BE 

RAREAC40 

ERRFD.Z 

1 

XXXXX 

RT3A 



L 

L3 
L 
3 



L 
L3 

L 



17 

02BE 

RAREA640 
ERRFD,Z 



3 1 

XXXXX 
RT3A 



WAR! A COL CTR 
RARFA COL CTR 

DATA PUNCHED 

CK TERM ODD WORD 
SHIFT ACC INTO Q REG 

DATA PUNCHED 

CK TERM EVEN WORD 

CLEAR BITS 8 THRU 12 

POS HALVES IN ACC 

STO IN OUGHT TO BE 

DATA READ 

ADJ COL COUNT PCH 

BCH UN BITS 

ADJ COL COUNT RD 

CK NEXT COLUMN 



TERM FD ODD WORD *** 

CLEAK BITS 8 THRU 12 
STO IN OUGHT TO BE 
DATA READ 
BCH UN BITS 



TERM FD EVEN WORD ** 

CLEAK BITS 8 THRU 12 
POS HALVES IN ACC 
STO IN OUGHT TO BE 
DATA READ 



SC 



SC 



SC 



CLEAK ACC TO 
STO IN OUGHT 
DATA HEAD 
BCH ON BITS 



ZERO 
TO BE 



SC 



*****: 

* 

***** 

* 

* 

RT4 
RT4A 



***************,«*******.. ************„ 

ROUTINE 4- READ I /> BITS/COL £ 



LDD 
BSI 
BSI 
XIU 
BSI 
MDX 
BSI 
BSI 



* 
SET5 



MFED2 

TYPE 

RPREQ 

READ 

RTL 

CHECK-1 

FDLCD 

KNOW 



LDD L RID5 
BSI L RTU 
BSC I START 



MSG- lUAD FROM STK 2 

USE TYPE ROUTINE SC 

ROUTINE REQUEST 

READ ( OMMAND 

DELAY LOOP SC 

FEED LAST CARD SC 
CHECK BIT SWITCHES SC 

RT NUMBER AND ADDR 

USE UPDATE ROUTINE SC 

RETURN TO MONITOR X 



80F01940 

80F01950 

80F01960 

80F01970 

80F01980 

80F01990 

80F02000 

80F02010 

80F02020 

80F02030 

80F02040 

80F02050 

80F02060 

80F02070 

80F02080 

80F02090 

80F02100 

80F02110 

80F02120 

80F02130 

80F02140 

80F02150 

80F02160 

80F02170 

80F02180 

80F02190 

80F02200 

80F02210 

80F02220 

80F02230 

80F02240 

80F02250 

80F02260 

80F02270 

80F02280 

80F02290 

80F02300 

80F02310 

80F02320 

80F02330 

80F02340 

80F02350 

80F02360 

80F02370 

80F02380 

80F02390 

80F02400 

80F02410 

80F02420 

80F02430 

80F02440 

80F02450 

80F02460 

80F02470 

80F02480 

80F02490 

80F02500 

80F02510 

80F02520 

80F02530 

80F02540 

80F02550 

80F02560 

80F02570 

80F02580 

80F02590 

80F02600 

80F02610 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



15MAY67 
411731 



01SEP67 
411857 



010CT67 
411875 



PROG ID 
PAGE 



080F-0 
2 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



15MAY67 
411731 



01SEP67 
411857 



010CT67 
411875 



PROG ID 
PAGE 



080F-0 
2A 
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DATE 
EC NO. 



091C 
091D 1 
091F 
0920 1 

0922 

0923 1 
0925 1 
0927 1 
0929 
092A 
092B 



62B0 

C600 0BB6 
1803 

4C04 092C 
1003 

D400 0B61 
F600 0C06 
4420 09E0 
7201 
70F2 
70DF 



092C 1801 
092D 1004 
092E 7001 

092F 1011 
0930 1 0400 0B61 
0932 1 F600 0C06 
0934 1 4420 09E0 

0936 7201 

0937 70F7 

0938 70D2 



0939 1 C400 0B64 
093B 1 D400 0B8D 
093D 1 CCOO 0B40 
093F 1 4400 0A28 



0941 1 
0943 1 
0945 1 
0947 
0949 
094A 
094C 
094E 



OCOO 
4400 
OCOO 
4400 
70F7 
OCOO 
4400 
4400 



0B3A 
0A4E 
0B30 
0A8E 

0B3A 
OAOA 
0A13 



0950 1 CCOO 0B2A 
0952 1 4400 0A86 
0954 4C80 012D 



0956 
0958 
095A 
09 5C 
095E 



CCOO 0B46 
4400 0A28 
C400 09DE 
0400 09E5 
C400 09DF 



0960 1 D400 09E9 

0962 1 4400 0A4E 
0964 1 OCOO 0B34 
0966 1 4400 0A8E 



28FEB66 
415120 



01MAY66 
415120A 



LDX 

CHECK LD 
SRA 
BSC 
SLA 
STO 
EOR 
BSI 
MDX 
MDX 
MDX 

* 

* 

***** 

* 

* 

TERMR SRA 
SLA 
MDX 

SLA 
STO 
EOR 
BSI 
MDX 
MDX 
MDX 



2 

L2 



L 

L2 
L 
2 



-80 COL COUNT 

HAREA€80 DATA PUNCHED 

3 REMOVE 3 BITS 

TERMR, E CK FOR TERMINATOR 

3 ADJ BACK 

02BE STO IN OUGHT TO BE 

RAREA680 DATA READ 

ERRFD,Z BCH ON BITS 

1 ADJ COL COUNT 

CHECK CK NEXT COLUMN 

RT4A 



SC 



TERMINATOR FOUND ROUTINE ****** 



* 
XXX 



L 

L2 

L 

2 



1 
4 

xxxei 

17 

02BE 

RAREA&80 

ERRFD.Z 

1 

XXX 

RT4A 



REMOVE TERMINATOR 
ADJ BACK 



CLEAR ACC TO ZERO 
STO IN OUGHT TO BE 
DATA READ 
BCH ON BITS 
ADJ COL COUNT 



SC 



************* 

* 

***** 

* 

* 

RT5 



"i"********************,);^;^^,^.)^ 

ROUTINE 5- PUNCH 40 COLUMNS *** 



* 
DUP 



SET6 



LD 
STO 
LDD 
BSI 

XIO 
BSI 
XIO 
BSI 
MDX 
XIO 
BSI 
BSI 

LDD 
BSI 
BSC 



L 
L 
L 
L 

L 

L 
L 
L 

L 
L 
L 

L 
L 

I 



WA40A 
WAREAE39 
MFEEO 
TYPE 

STACK 

RPREQ 

PUNCH 

RTL 

DUP 

STACK 

FDLCD 

KNOW 

RID6 

RTU 

START 



CHANGE PCH DATA 
MSG- LOAD BLANKS 
USE TYPE ROUTINE 

SELECT STACKER 2 
ROUTINE REQUEST 
PUNCH COMMAND 
USE TIMING LOOP 

SELECT STACKER 2 
FEED LAST CARD 
CHECK BIT SWITCHES 

RT NUMBER AND ADDR 
UPDATE ROUTINE 
RETURN TO MONITOR 



SC 



SC 



SC 
SC 



SC 
X 



*********************„, 

* 



***** 
* 
* 
RT6 



*******************„$*„ 

ROUTINE 6- RD AND PCH ********* 



* 
RT6A 



LDD 

BSI 

LD 

STO 

LD 

STO 

BSI 
XIO 
BSI 



MFED2 

TYPE 

SHA 

COLA 

SHB 

COLB 

RPREQ 

REAO 

RTL 



MSG- LOAD FROM STK 2 
USE TYPE ROUTINE 
ADJ 40 COLUMNS 

ADJ 40 COLUMNS 



ROUTINE REQUEST 
READ COMMAND 
USE TIMING LOOP 



E 
SC 

PR03 

PR04 

SC 



01JUL66 
415178 



15MAY67 
411731 



01SEP67 
411857 



010CT67 
411875 



80F02620 

80F02630 

80F02640 

80F02650 

80F02660 

80F02670 

80F02680 

80F02690 

80F02700 

80F02710 

80FO2720 

80F02730 

80F02740 

80F02750 

80F02760 

80F02770 

80F02780 

80F02790 

80F02800 

80F02810 

80F02820 

80F02830 

80F02840 

80F02850 

80F02860 

80F02870 

80F02880 

80F02890 

80F02900 

80F02910 

80F02920 

80F02930 

80F02940 

80F02950 

80F02960 

80F02970 

80F02980 

80F02990 

80F03000 

80F03010 

80F03020 

80F03030 

80F03040 

80F03050 

80F03060 

80F03070 

80F03080 

80F03090 

80F03100 

80F03110 

80F03120 

80F03130 

80F03140 

80F03150 

80F03160 

80F03170 

80F03180 

80F03190 

80F03200 

80F03210 

80F03220 

80F03230 

80F03240 

80F03250 

80FQ3260 

80F03270 

80F03280 

80F03290 



PROG ID 
PAGE 



080F-0 
3 



DATE 
EC NO. 



0968 7003 

0969 1 4400 OAOA 
096B 7031 



096C 
096D 
096 F 
0970 
0972 
0973 
0975 
0977 
0979 
097A 
097B 



62D8 

1 C600 0B8E 

1803 

1 4C04 097C 

1003 

1 D400 0B61 
1 F600 OBDE 
1 4420 09E0 
7201 

70F2 
700C 



097C 1801 
097D 1004 
097E 7001 
097F 1011 
0980 1 D400 0B61 
0982 1 F600 OBDE 
0984 1 4420 09E0 

0986 7201 

0987 70F7 

0988 63FE 

0989 62D8 

098A 1 C600 OBDE 
098C 1 D700 0C07 
098E 1010 
098F 1 D600 OBDE 

0991 73FF 

0992 7201 

0993 70F6 

0994 1 7408 0C05 

0996 1 4400 0A4E 

0998 1 OCOO 0B32 

099A 1 4400 0A8E 

099C 70C5 

0990 1 C400 09DA 
099F D045 
09A0 1 C400 09DB 
09A2 D046 
09A3 1 4400 0A13 

09A5 1 CCOO 0B2C 
09A7 1 4400 0A86 
09A9 4C80 012D 



09AB 1 CCOO 
09AD 1 4400 
09AF 1 4400 
1 OCOO 
1 4400 
09B5 1 C400 
09B7 E81E 
09B8 1 D400 



09B1 
09B3 



0B44 
OA28 
0A4E 
0B34 
0A8E 
0C05 

0C05 



09BA 1 4400 0A4E 
09BC 1 OCOO 0B2E 
09BE 1 4400 M8E 



28FEB66 
415120 



01MAY66 
415120A 



* 

NEXT 

COMP 



* 
CHIP 

XXXX 



* 
FLIP 



MDX 
BSI 
MDX 

LDX 

LD 

SRA 

BSC 

SLA 

STO 

EOR 

BSI 

MDX 

MDX 

MDX 

SRA 
SLA 
MDX 
SLA 
STO 
EOR 
BSI 
MDX 
MDX 
LDX 
LDX 

LD 

STO 

SLA 

STO 

MDX 

MDX 

MDX 

MDX 

BSI 
XIO 
BSI 
MDX 



GONOW LD 
STO 
LD 
STO 
BSI 



* 
SET7 



* 

* 

***** 

* 

* 

RT7 



LDD 
BSI 
BSC 



LDD 

BSI 

BSI 

XIO 

BSI 

LD 

OR 

STO 



NEXT 
L FDLCD 
GONOW 

2 -40 
L2 WAREAC40 

3 
L CHIP.E 

3 
L 02BE 
L2 RAREA640 
L ERRFD.Z 
2 1 

COMP 

FLIP-2 

1 
4 

xxxxei 

17 
L 02BE 
L2 RAREA640 
L ERRFD.Z 

2 1 

xxxx 

3 -2 
2 -40 



FEEO LAST CARD 



DATA PUNCHED 

REMOVE 3 BITS 

CK FOR TERMINATOR 

ADJ BACK 

STO IN OUGHT TO BE 

DATA READ 

BCH ON BITS 

ADJ COL COUNT 



REMOVE TERMINATOR 
ADJ BACK 

CLEAR ACC TO ZERO 
STO IN OUGHT TO BE 
DATA READ 
BCH ON BITS 
ADJ COL COUNT 



L2 RAREAE40 DATA TO BE FLIPPED 

L3 RAREAC81 NEW LOCATION 

16 

L2 RAREA640 ELIMINATE OVERPUNCH 

2 1 
FLIP 
L RAREA679.8 SET TERMINATOR 



L RPREQ 
L PUNCX 
L RTL 
RT6A 

L LGA 
COLA 

L LGB 
COLB 

L KNOW 

L RID7 
L RTU 
I START 



ROUTINE REQUEST 
PUNCH COMMAND 
USE TIMING LOOP 

ADJ 80 COLUMNS 

ADJ 80 COLUMNS 

CHECK BIT SWITCHES 

RT NUMBER AND ADDR 
USE UPDATE ROUTINE 
RETURN TO MONITOR 



BSI L RPREQ 
XIO L FDACD 
BSI L RTL 



ROUTINE 7- NEW PCH DATA £ PUNCH 



MABCD MSG- ANY PATTERN t 

TYPE USE TYPE ROUTINE 

RPREQ ROUTINE REQUEST 

READ READ NEW DATA 

RTL USE TIMING LOOP 

RAREA679 LAST COL OF DATA 

BIT12 SET TERMINATOR 

RAREAS79 REPLACE DATA 6 TERM 

REQUEST DEVICE 
FEED A CARD 
USE TIMING LOOP 



80F03300 
SC 80F03310 
80F03320 
80F03330 
80F03340 
80F03350 
80F03360 
80F03370 
80F03380 
80F03390 
80F03400 
SC 80F03410 
80F03420 
80F03430 
80F03440 
80F03450 
80F03460 
80F03470 
80F03480 
80F03490 
80F03500 
80F03510 
SC 80F03520 
80F03530 
80F03540 
80F03550 
80F03560 
80F03570 
80F03580 
80F03590 
80F03594 
80F03595 
80F03600 
80F03610 
80F03620 
80F03630 
80F03640 
80F03650 
80F03660 
80F03670 
80F03680 
80F03690 
80F03700 
PR03 80F03710 
80F03720 
80F03730 
80F03740 
80F03750 
80F03760 
SC 80F03770 
X 80F03780 
80F03790 
80F03800 
80F03810 
80F03820 
80F03830 
E 80F03840 
SC 80F03850 
B0F03860 
80F03870 
SC 80F03880 
80F03890 
80F03900 
80F03910 
80F03920 
SC 80F03930 
80F03940 
SC 80F03950 



SC 



PR04 
SC 



01JUL66 
415178 



15MAY67 
411731 



01SEP67 
411857 



010CT67 
411875 



PROG 
PACE 



ID 



080F-0 
3A 



,'!' 
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PAGE 



2196386 
4A 



09C0 1 OCOO 0B3A 
09C2 1 4400 0A4E 
09C4 1 OCOO 0B32 
09C6 I 4400 0A8E 
09C8 70F7 
09C9 1 OCOO 0B3A 
09CB 403E 
09CC 4046 

09CD 1 2C40 0BB6 
09CF 4C80 012E 

09D1 0000 
09D2 1 4400 0A3E 
0904 1 4C80 0901 



RECK 



09D6 





0008 


0907 





CCOO 


09D8 





0800 


09D9 





0000 


09DA 





7251 


090B 





72AF 


09DC 





0000 


09QD 





8000 


09DE 





7229 


09DF 





72D7 



09E0 0000 
09E1 1 F400 0B61 
09E3 1 D400 0B60 

09E5 7251 
09E6 1000 
09E7 1 6E00 0B62 
09E9 72AF 
09EA 1000 
09EB 1 C400 0B62 



09ED 
09EE 

09F0 
09F2 
09F4 
09F6 
09F7 
09F9 
09FB 
09FD 
09FF 
0A01 
OA03 
0A04 



E8E9 
0400 0B62 



1 6E00 
1 6F00 
1 CCOO 

6104 

1 4400 
1 6680 
1 6780 
1 7402 
1 OCOO 
1 C400 

100A 

1 4C90 



0B38 
0B3A 
0B4E 

0AE8 
0B38 
0B3A 
09E0 
0B3A 
0802 

09E0 



XIO 
BSI 
XIO 
BSI 
MDX 
XIO 
BSI 
BSI 

STS 
BSC 



STACK 

RPREQ 

PUNCX 

RTL 

RECK 

STACK 

FOLCO 

KNOW 

RAREA,/40 
END 

/OOOO 
RPREL 
RTEND 



SELECT STACKER 2 
ROUTINE REQUEST 
PUNCH COMMAND 
USE TIMING LOOP 
REPAET NO LAST CARD 
SELECT STACKER 2 
FEED LAST CARD 
CHECK BIT SWITCHES 

REMOVE STG PROTECT 
GO TO MONITOR 



ROUTINE RELEASE 
RETURN TO PROGRAM 



RTEND DC 

BSI L 
BSC I 

* 

t***********************)*****************,!,*,*,, 



SC 



sc 
sc 



SE 
SC 
SX 



***** 

* 

* 

BIT12 

CCOO 

CNTL 



STORAGE AREA ****************** 



DC 
DC 
DC 



CONST DC 



LGA 
LGB 
SAVE 



MDX 

MDX 

DC 

DC 

MDX 

MDX 



/0008 

/CCOO 

/0800 

/OOOO 

81 

-81 

/OOOO 

/8000 

41 

-41 



TERMINATOR BIT 
CARD COLUMN 



80 COLUMN COUNTER 
80 COLUMN COUNTER 



PR03 
PR04 



40 COLUMN COUNTER 
40 COLUMN COUNTER 



SHA MDX 2 
SHB MDX 2 

* 

* 

**************************** *******#$$$***##$ 

* 

COMMON USE ROUTINES *********** 



PR03 
PR04 



***** 

* 

* 

***** 

* 

* 

ERRFD DC 
EOR 
STO 



ERROR FOUND ROUTINE *********** 



* 

COLA 

KEEP1 

COLB 
KEEP2 



MDX 

NOP 

STX 

MDX 

NOP 

LD 

OR 

STO 

STX 

STX 

LDD 

LDX 

BSI 

LDX 

LDX 

MDX 

XIO 

LD 

SLA 

BSC 



L2 
2 



L2 
L3 
L 

1 
L 

12 
13 

L 
L 
L 



/OOOO 

02BE 

WAS 

681 



COL 

-81 



COL 

CCOO 

COL 

SENSE 

STACK 

MCDEE 

4 

ERRA 

SENSE 

STACK 

ERRFD, 2 

STACK 

SWO 

10 

ERRFD, - 



ADDR STG 



SE 



OR MDX 2 41 PM03 
SKIP THIS 



MDX 2 81 

MDX WILL 

COLUMN NUMBER 

CORRECT XR2 PM04 

MDX WILL SKIP THIS 

COLUMN NUMBER 

CD COL PLUS COL NUMB 

SAVE XR2 

SAVE XR3 

MSG- CARD ERROR 

NUMBER OF MODIFIERS 

USE ERROR ROUTINE SC 

RESTORE XR2 

RESTORE XR3 

ADD 2 TO RETURN ADDR 

SELECT ERROR CARD 

BIT SWITCH STG 

BCH PLUS OR ZERO SX 



80F03960 
80F03970 
80F03980 
80F03990 
80F04000 
80F04010 
80F04020 
80F04030 
80F04040 
80F04050 
80F04060 
80F04070 
80F04080 
80F04090 
80F04100 
80F04110 
80F04120 
80F04130 
80F04140 
80F04150 
80F04160 
80F04170 
60F04180 
80F04190 
80F04200 
80F04210 
80F04220 
80F04230 
80F04240 
80F04250 
80F04260 
80F04270 
80F04280 
80F04290 
80F04300 
80F04310 
80F04320 
80F04330 
80F04340 
80F04350 
80F04360 
80F04370 
80F04380 
80F04390 
80F04400 
80F04410 
80F04420 
80F04430 
80F04440 
80F04450 
80F04460 
80F04470 
80F04480 
80F04490 
80F04500 
80F04510 
80F04520 
80F04530 
80F04 540 
80F04550 
80F04560 
80F04570 
80F04580 
80F04590 
80F04600 
80F04610 
80F04620 
80F04630 



0A06 1 74FE 09E0 
0AO8 1 4C80 09E0 



OAOA OOOO 
OAOB 1 4400 0A4E 
OAOD 1 OCOO 082E 
OAOF 1 4400 0A3E 
0A11 1 4C80 OAOA 



0A13 OOOO 
0A14 1 C400 0803 
0A16 1 4C98 0A13 
0A18 1 E400 0BA1 
0A1A 1 D400 0800 
0A1C 1 6780 0800 
0A1E 1 4F80 0A20 



MDX 



ERRFD, -2 



BSC I ERRFD 



0A20 
0A21 



OOOO 
084E 



0A22 1 0888 



0A23 
0A24 
0A25 



08B3 
08C8 
0916 



0A26 1 0950 
0A27 1 09A5 



0A28 OOOO 

0A29 1 DCOO 0B5A 

0A2B 1 C400 0802 

0A2D 100D 

0A2E 1 4CA8 0A28 

0A30 4480 012F 
0A32 1 0B58 
0A33 1 0A38 
0A34 OOOO 

0A35 1 6580 0A28 
0A37 7002 

0A38 1 6500 0A30 
0A3A 1 6D00 080A 
0A3C 4C80 012D 



0A3E OOOO 
0A3F 1000 

0A40 1 C400 0815 
0A42 1 4CB0 0A3E 

0A44 4480 0132 
0A46 1 0815 
0A47 1 080C 



* 

* 

***** 

* 

FDLCD 



* 
***** 



SUB 2 RETURN ADDR 
RETURN TO ROUTINE 



DC 

BSI 

XIO 

BSI 

BSC 



KNOW DC 
LD 
BSC 
AND 
STO 
LDX 
BSC 

* 

SETUP DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

* 

***** 

* 

* 

TYPE DC 
STD 
LD 
SLA 
BSC 

* 

TYPEA BSI 

DC 
DC 
DC 



* 

TYPEB 

0UT1 

* 

* 

***** 

* 

* 

RPREL 



DC 
NOP 



BSI 

DC 
DC 



FEED LAST CARD **************** 

/OOOO RETURN ADDR 

L RPREQ ROUTINE REQUEST 

L FDACD FEED A CARD 

L RPREL RELEASE DEVICE 

I FDLCD RETURN TO PROG 



KNOW BIT SWITCH SETTINGS ****** 



RETURN ADDR 

ROUTINE NUMBER 

BCH ON ZERO 

SAVE BITS 13 THRU 15 

STORE RT NUMBER 

SET UP NEW ROUTINE 

NOT USED 



/OOOO 

L SW1 

I KNOW,£- 

L K0007 

L RID 

13 RID 

13 SETUP 



SET1 

SET2 

SET3 

SET4 

SET5 

SET6 

SET7 



PRINT ROUTINE ***************** 



SX 



SE 



SC 
SX 



SE 
SX 



SX 



/OOOO 
L MSGL 
L SWO 

13 
I TYPE,6Z 

I LOG 
INSTL 
TYPEB 
/OOOO 



LDX II TYPE 
MDX 0UT1 

LDX LI TYPEA 

STX LI MLSCFJU 

BSC I START 



RETURN ADDR 

CHANGE MESSAGE 6 NUM 

BIT SWITCH STORAGE 

RETURN TO PROG ON - 

CALL ON LOG 
ADDR OF MSG 
BUSY ADDR 



BUSY ROUTINE 
RETURN TO MONITOR 



SE 

SX 
SC 



ROUTINE RELEASE DEVICE ******** 



/OOOO 



LD L EDIT 
BSC I RPREL, -Z 



RELDV 

EDIT 

TERM 



RETURN ADDR 



BCH ON PLUS 

RELEASE DEVICE 
ADDR UNTR AND CHAN 
TERMINATOR 



SX 



SE 



SC 



80F04640 

80F04650 

80F04660 

80F04670 

80F04680 

80F04690 

80F04700 

80F04710 

80F04720 

80F04730 

80F04740 

80F04750 

80F04760 

80F04770 

80F04780 

80F04790 

80F04800 

80F04810 

80F04820 

80F04830 

80F04840 

80F04850 

80F04860 

80F04870 

80F04880 

80F04890 

80F04900 

80F04910 

80F04920 

80F04930 

80F04940 

80F04950 

80F04960 

80F04970 

80F04980 

80F04990 

80F05000 

80F05010 

80F05020 

80F05030 

80F05040 

80F05050 

80F0S060 

80F05070 

80F05080 

80F05090 

80F05100 

80F05110 

80F05120 

H0F05130 

80F05140 

80F05150 

80F05160 

80F05170 

80F05180 

80F05190 

80F05200 

80F05210 

80F05220 

80F05230 

80F05240 

80F05250 

80F05260 

80F05270 

80F05280 

80F05290 

80F0530O 

80F05310 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



15MAY67 
411731 



01SEP67 
411857 



010CT67 
411875 



PROG ID 
PAGE 



080F-0 

4 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



15MAY67 
411731 



01SEP67 
411857 



010CT67 
411875 



PROG ID 
PAGE 



080F-0 
4A 
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0A48 1 6580 0A3E 
0A4A 1 6000 080A 
0A4C 4C80 0120 



0A4E 0000 
0A4F • 1000 
0A50 1 C400 0815 
0A52 1 4CA8 0A4E 

0A54 4480 0131 



0A56 
0A57 
0A58 
0A59 



0A80 
0815 
0817 
080C 



0A5A 1 C400 0B39 
0A5C 1 ECOO 0817 
0A5E 1 D400 0B39 

0A60 1 OCOC 0B3B 
0A62 1 4404 OBOB 

0A64 1 OCOO 0B38 
0A66 100F 
0A67 1 4C10 0A6F 

0A69 1 6500 0A64 
0A6B 1 6000 0809 
0A60 4C80 0120 

0A6F 1 C400 0802 
0A71 1 4C10 0A70 
0A73 6500 0100 
0A75 1 6000 0A7F 

0A77 1 6500 0A7A 
0A79 7008 

0A7A 1 74FF 0A7F 
0A7C 70FA 
0A7D 1 4C80 0A4E 

0A7F 0000 

0A80 1 6500 0A54 
0A82 1 6000 0809 
0A84 4C80 0120 



0A86 
0A87 
0A89 
0A8A 
0A8C 



0000 

1 OCOO 0800 

1090 

1 0400 0809 
1 4C80 0A86 



LOX 
STK 

esc 

* 

***** 

* 

* 

RPREQ OC 
NOP 
LO 
BSC 

* 

LABEL BSI 

OC 
OC 
OC 
DC 



LD 
OR 
STO 

XIO 
BSI 

XIO 
SLA 
BSC 

LOX 
STX 

BSC 

LD 
BSC 
LDX 
STX 



II RPREL 
LI MLSCFC1 
I START 



GET RETURN ADRS 

SET MLSCF 

RETURN TO MONITOR 



* 
SEE 



* 
RDY 



0A8E 0000 
0A8F 6700 FOOO 



RETN1 LOX 
MDX 

* 

RETN2 MDX 

MDX 

RETN3 BSC 

* 

DLYCT DC 

* 

STOBY LDX 

RETN4 STX 
BSC 

* 

* 

***** 

* 

* 

RTU DC 
STD 
SLT 
STO 
BSC 

* 

* 

***** 

* 

* 

RTL DC 
LOX 



ROUTINE REQUEST DEVICE ******** 



/OOOO 

L EOIT 

I RPREQtCZ 

I REODV 

STOBY 
EOIT 
RPDVA 
TERN 

L SENSEC1 
L RPDVA 
L SENSE61 

L SENSE 
L NRDY.E 

L SENSE 

15 
L RDY,- 

Ll SEE 
LI MLSCF 
I START 

L SHO 
L RETN3,- 
Ll /0100 
LI DLYCT 

LI RETN2 
RETN4 

L OLYCT.-l 

RETN1 
I RPREO 

/OOOO 

LI LABEL 
LI MLSCF 
I START 



RETURN ADDR 



SE 



BCH ON HAVE DEVICE SX 

REQUEST DEVICE SC 

BUSY ADDRESS 

ADDR INTR AND CHAN 

ADDR AREA CODE 6 MOD 

TERMINATOR 



SENSE OSM 

USE NRDY IF B15 IS 1 SC 

SENSE DSW 

BCH ON READY 

GET MLSCF ENTRY 

SET MLSCF 

RETURN TO MONITOR 

BIT SWITCH STORAGE 
CHECK BIT FOR DELAY 
OELAY COUNT 
SET UP COUNTER 

GET MLSCF ENTRY 

REDUCE COUNT 

RETURN TO PROG SX 

OELAY COUNTER 

GET BUSY ADDR 

SET MLSCF 

RETURN TO MONITOR 



ROUTINE UPDATE **************** 



/OOOO RETURN ADDR SE 

RID NEW RT NUMBER AND ADDR 

16 MOVE Q TO ACC 

MLSCF NEW MLSCF ENTRY 

RTU RETURN TO ROUTINE SX 



ROUTINE LOOP ****************** 



/OOOO 
L3 /FOOO 



RETURN ADOR 
TIMING CONSTANT 



SE 



80F05320 

80F05330 

80F05340 

80F05350 

80F05360 

80F05370 

80F05380 

80F05390 

80F05400 

80F05410 

80F05420 

BOF05430 

80F05440 

80F05450 

80F05460 

80F05470 

80F05480 

80F05490 

80F05500 

80F05510 

80F05520 

80F05530 

80F05540 

80F05550 

80F05560 

BOF0557O 

80F05580 

80F05590 

80F05600 

80F05610 

80F05620 

80F05630 

80F05640 

80F05650 

80F05651 

80F05652 

80F05653 

80F05654 

80F05655 

80F05656 

80F05657 

80F05658 

80F05659 

80F05660 

80F05661 

80F05670 

80F05672 

80F05673 

80F05680 

80F05690 

80F05700 

80F05710 

80F05720 

80F05730 

80F05740 

80F05750 

80F05760 

80F05770 

80F05780 

80F05790 

80F05800 

80F05810 

80F05820 

80F05830 

80F05840 

80F05850 

80F05860 

80F05870 



8A91 1 6F00 09D9 

0A93 1 6500 0A99 
0A95 1 6D00 080B 
0A97 4C80 012D 

0A99 1 7401 09P<> 
0A9B 70F7 
0A9C 1 CCOO 0B48 
0A9E 4089 

0A9F 1 C400 0B60 
0AA1 1 4C18 OABA 
0AA3 6100 
0AA4 1 6D00 0B61 
0AA6 630F 

0AA7 1340 
0AA8 1 F400 09DD 
OAAA 1 D400 090C 
OAAC 1 6E00 0B38 
OAAE 1 6F00 0B3A 

OABO 1 4780 0AC7 

0AB2 1 6680 0B38 

0AB4 1 6780 0B3A 

0AB6 1 C400 090C 

0AB8 1 4C20 0AA7 

OABA 4083 
OABB 1 OCOO 0B38 
OABO 1 4C18 0AC5 
OABF 1 6500 OABB 
0AC1 1 6D00 080A 
0AC3 4C80 0120 

0AC5 1 4C80 0A8E 



0AC7 
0AC8 
0AC9 
OACA 
OACB 
OACC 
OACD 
OACE 
OACF 
OADO 
0AD1 
0AD2 
0A03 
0AD4 
0AD5 
0AD6 



1 OBOB 
1 0AD7 
1 OADD 
1 OADD 
1 OADD 
1 OADO 
1 OADD 
1 OADD 
1 OAFA 
1 0B11 
I 0B18 
1 OADD 
1 OBOO 
1 OADD 
1 OADD 
1 OADD 



0AD7 OOOO 
0AD8 C871 
0AD9 1 4400 0A28 
OADB 1 4C80 0AD7 



* 


STX 


L3 CONST 




RTLA 


LDX 


LI RTM 






STX 


LI MLSCFC2 


SET MLSCF ENTRY 


* 


BSC 


I START 


RETURN TO MONITOR 


"TM 


MDX 


L CONST, 1 






MDX 


RTLA 






LDD 


L M1CED 


MSG- NO INTERRUPT 


* 


BSI 


TYPE 


USE TYPE ROUTINE 


IRECO LD 


L WAS 


GET OSW BITS 6 CHECK 




BSC 


L REGO.C- 


BCH ON NO BITS 




LDX 


1 


ALL ZEROS 




STX 


LI 02BE 


CLEAR OUGHT TO BE 


4 


LDX 


3 15 




INERR SLCA 


3 


LOOK FOR BITS 




EOR 


L SAVEE1 


REMOVE BIT FOUND 




STO 


L SAVE 


SAVE REST OF BITS 




STX 


L2 SENSE 


SAVE XR2 


* 


STX 


L3 STACK 


SAVE XR3 




BSI 


13 DSWBT 


SELECT ERROR 




LDX 


12 SENST 


RESTORE XR2 




LDX 


13 STAC!. 


RESTORE XR3 




LD 


L SAVC 




* 


BSC 


L INERR, Z 


BCH ON BITS 


RECi' 


BSI 


RPREL 


ROUTINE RELEASE 


REuiXi 


XIO 


L SENSE 


SENSE DSW 




BSC 


L ZIP,£- 


BCH NO BITS 




LDX 


Ll REGOT 


GET MLSCF 




STX 


LI MLSCFC1 


SET MLSCF 


* 


BSC 


I START 


RETURN TO MONITOR 


ZIP 

* 


BSC 


I RTL 


RETURN TO PROG 


* 

***** 

* 




DSW TABLES 


FOR LEVEL 4 ******** 


* 
DSWBT 


DC 


NRDY 


15 NOT READY 




DC 


BUSY 


14 BUSY 




DC 


ERR1 


13 




DC 


ERR1 


12 




DC 


ERR1 


11 




DC 


ERR1 


10 




DC 


ERR1 


9 




DC 


ERR1 


8 




DC 


FDCK 


7 FD CK-RD STATION 




DC 


STGPT 


6 STG PROTECT VOIL 




DC 


PAROR 


5 PARITY ERROR 




DC 


ERR1 


4 OP COMPLETE 




DC 


LCD 


3 LAST CARD 




DC 


ERR1 


2 ANY ERROR 




DC 


ERR1 


1 


* 


DC 


ERR1 





* 
***** 

* 




BUSY ROUTINE ****************** 


* 
BUSY 


DC 





RETURN ADDR 




LDD 


MADOO 


MSG- BUSY 




BSI 


L TYPE 


USE TYPE ROUTINE 




BSC 


I BUSY 


RETURN TO PROG 



SC 



SE 



SC 



SC 



SC 



SX 



SX 



SE 



SC 

SX 



80F05880 

80F05890 

80F05900 

80F05910 

80F05920 

80FO5930 

80F05940 

80F05950 

80F05960 

80F05970 

80F05980 

80F05990 

60F06000 

80F06010 

80F06020 

80F06030 

80F06040 

80F06050 

80F06060 

80F06070 

80F06080 

80F06090 

80F06100 

80F06110 

80F06120 

80F06130 

80F06140 

80F06150 

80F06160 

80F06170 

80F06180 

80F06190 

80F06200 

80F06210 

80F06220 

80F06230 

80F06240 

80F062iO 

80F06260 

80F06270 

80F06280 

80F06290 

80F06300 

80F06310 

80F06320 

B0F06330 

80F06340 

80F06350 

80F06360 

80F06370 

80F06380 

80F06390 

80F06400 

80F06410 

80F06420 

80F06430 

80F06440 

80F06450 

80F06460 

80F06470 

80F06480 

80F06490 

80F06500 

80F06510 

80F06520 

80F06530 

80F06 540 

80F06550 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



15MAY67 
411731 



01SEP67 
411857 



010CT67 
411875 



PROG ID 
PAGE 



080F-0 
5 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



15MAY67 
411731 



01SEP67 
411857 



010CT67 
411875 



PROG ID 
PAGE 



080F-0 
5A 
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I 
( 







* 
***** 

* 




ROUTINE ERR1 ****************** 




OADD 0000 
OADE 1 C400 0B60 
OAEO 1006 
OAEl 1 4CA8 OADD 
0AE3 C868 
0AE4 6103 
0AE5 4002 
0AE6 1 4C80 OADO 


* 
ERR1 

* 


DC 

LD 

SLA 

BSC 

LDD 

LDX 

BSI 

BSC 


L 
I 

1 
I 


/OOOO 

MAS 

6 

ERR1.CZ 

MB1EE 

3 

ERRA 

ERR1 


RETURN ADDR 
DSW STORAGE 

BCH ON BIT 6 
MSG- DSM ERROR BITS 
MODIFIER NUMBER 
USE ERROR ROUTINE 
RETURN TO PROG 






* 
***** 

* 


: 




ERROR TYPE OUT **************** 




0AE8 0000 
0AE9 D874 
OAEA 1 6D00 0B5C 


* 
ERRA 

* 


DC 

STD 

STX 


LI 


/OOOO 

MSGE 

INSTE 


RETURN ADDR 

CHANGE MESSAGE £ NUM 

STORE MODIFIER NUM 




OAEC 4480 0130 
OAEE 1 0B5C 
OAEF 1 0AF4 
OAFO 1 0AF1 


REPT 

* 


BSI 

DC 
DC 
DC 


I 


ERROR 
INSTE 
REPT1 

REPT2 


MONITOR ERROR CALL 
ERROR MESSAGE 
ADDR OF BUSY 
ADDR OF LOOP 




0AF1 1 6580 0AE8 
0AF3 7002 


REPT2 

* 

REPT1 

0UT3 

* 


LDX 
MOX 


11 


ERRA 
0UT3 






0AF4 1 6500 OAEC 
0AF6 1 6D00 080A 
OAFS 4C80 012D 


LDX 
STX 
BSC 


LI 
LI 
I 


REPT 

MLSCFtl 

START 


GET BUSY MLSCF 

SET MLSCF 

RETURN TO MONITOR 






***** 

* 






FEED CHECK REAO STATION ******* 




OAFA 0000 
OAFB C85A 
OAFC 1 4400 0A28 
OAFE 1 4C80 OAFA 


* 
FDCK 

* 
* 
***** 

* 


DC 
LDD 
BSI 
BSC 


L 

I 


/OOOO 
MFDCK 
TYPE 
FOCK 

LAST CARD 


RETURN AODR 
MSG- FEED CHECK 
USE TYPE ROUTINE 
RETURN TO PROG 

DEVISE ************** 




OBOO 0000 
OBOl C83A 
0B02 1 4400 0A28 
0B04 1010 
0B05 D05A 
0B«6 1 7401 0A8E 
0B08 1 4400 0A3E 
OBOA 70BA 


* 
LCD 

* 
***** 

* 


DC 

LDD 

BSI 

SLA 

STO 

MDX 

BSI 

MDX 


L 

L 
L 


/OOOO 

MOEAD 

TYPE 

16 

WAS 

RTLtl 

RPREL 

ZIP 

NOT READY 


RETURN ADDR 
MSG- LAST CARD 
USE TYPE ROUTINE 

RELEASE ROUTINE 
RETURN TO PROG 

********************* 




OBOB 0000 
OBOC C835 
OBOO 1 4400 OA28 
OBOF 1 4C80 OBOB 


* 
NRDY 

* 


DC 
LDD 
BSI 
BSC 


L 
I 


/OOOO 
MA10E 
TYPE 
NRDY 


RETURN AODR 
MSG- NOT READY 
USE TYPE ROUTINE 
RETURN TO PROG 






* 
***** 

* 






STORAGE PROTECT VIOLATE ******* 




OB 11 0000 


* 
STGPT 


DC 




/OOOO 


RETURN ADDR 


DATE 
EC NO. 


28FEB66 01NAY66 
415120 415120A 


0UUL66 
415178 


15MAY6T 01SEP67 010CT67 
411731 411857 411875 



SE 



sx 



sc 

SX 



SE 



SC 



SX 



SE 

SC 
SX 



SE 
SC 



SC 
SX 



SE 

SC 
SX 



SE 



80F06560 

80F06570 

80F06580 

80F06590 

80F06600 

80F06610 

80F06620 

80F06630 

80F06640 

80F06650 

80F06660 

80F06670 

80F06680 

80F06690 

80F06700 

80F06710 

80F06720 

80F06730 

80F06740 

80F06750 

80F06760 

80F06770 

80F06780 

80F06790 

80F06800 

80F06810 

80F06820 

80F06830 

80F06840 

80F06850 

80F06860 

80F06870 

80F06880 

80F06890 

80F06900 

80F06910 

80F06920 

80F06930 

80F06940 

80F06950 

80F06960 

80F06970 

80F06980 

80F06990 

80F07000 

80F07010 

80F07020 

80F07030 

80F07040 

80F07050 

80F07060 

80F07070 

80F07080 

80F07090 

80F07100 

80F07110 

80F07120 

80F07130 

80F07140 

80F07150 

80F07160 

80F07170 

80F07180 

80F07190 

80F07200 

80F07210 

80F07220 

80F07230 



PROG 10 
PAGE 



0B12 1 2C40 0BB6 
0B14 1 7406 0A8E 
0B16 1 4C80 0B11 



0B18 OOOO 
0B19 C836 
0B1A 1 4400 0A28 
0B1C 1 4C80 0B18 



0B1E 
0B1E 
0B1F 
0B20 
0B21 
0B22 
0B23 
0B24 
0B25 
0B26 
0B27 
0B28 
0B29 
0B2A 
0B2B 
0B2C 
0B2D 

0B2E 
0B2F 
0B30 
0B31 
0B32 
0B33 
OB 34 
0B35 
0B36 
0B37 
0B38 
0B39 
0B3A 
0B3B 



OOOO 
0001 
0854 
0002 
088E 
0002 
1 0892 
0003 
08B9 
0004 
0907 
0005 
0939 

0006 

1 0956 

0007 

1 09AB 



OOOO 
0402 
0B66 
0500 
0BB6 
0500 
0BB6 
0600 
0BB6 
0601 
OOOO 
0701 
OOOO 
0480 



0B3C A001 
0B30 DEAD 



0B3E 
0B3F 
0B40 
0B41 
0B42 
0B43 
0B44 
0B45 
0B46 
0B47 



C001 
AOAO 
C002 
FEED 
C003 
AIDE 
C004 
ABCD 
C005 
FED2 



0B48 E001 
0B49 ICED 
0B4A E002 



* 

* 

***** 

* 

* 

PAROR 



STS L RAREA./40 
MDX L RTL.6 
BSC I STGPT 



REMOVE STG PROTECT 
CHANGE RETURN AODR 
RETURN TO PROG SX 



PARITY ERROR ****************** 



* 

***** 
* 
***** 

* 



oc /OOOO 
LDD MPAR 

BSI L TYPE 

BSC I PAROR 



RETURN ADDR SE 
MSG PARITY ERROR 

USE TYPE ROUTINE SC 

RETURN. TO PROG SX 



*****************************„,„*,,, ^.j,,^,,,^ 

MESSAGE AREA ****************** 



BSS 
RID1 DC 

DC 
RID2 DC 

DC 
RIDX DC 

DC 
RID3 DC 

DC 
RID4 DC 

OC 
RID5 DC 

DC 
RID6 DC 

DC 
RID7 DC 

DC 
* 

FDACD DC 

DC 
PUNCH DC 

DC 
PUNCX OC 

DC 
READ DC 

DC 
READX DC 

DC 
SENSE OC 

DC 
STACK OC 

OC 
* 

MDEAD OC 
DC 

* 

MSTAR DC 

DC 
MFEED DC 

OC 
MA IDE DC 

DC 
MABCD DC 

DC 
MFED2 DC 

DC 

* 

M1CFD DC 

DC 

MADOO DC 



E 






1 


ROUTINE 


NUMBER 


RT1 


ROUTINE 


ADDRESS 


2 


ROUTINE 


NUMBER 


RT2 


ROUTINE 


ADDRESS 


2 


ROUTINE 


NUMBER 


RT2A 


ROUTINE 


ADDRESS 


3 


ROUTINE 


NUMBER 


RT3 


ROUTINE 


ADDRESS 


4 


ROUTINE 


NUMBER 


RT4 


ROUTINE 


ADDRESS 


5 


ROUTINE 


NUMBER 


RT5 


ROUTINE 


ADDRESS 


6 


ROUTINE 


NUMBER 


RT6 


ROUTINE 


ADDRESS 


7 


ROUTINE 


NUMBER 


RT7 


ROUTINE 


ADDRESS 


/OOOO 


FEED A CARD 


/0402 






HAREA 


PUNCH 




/0500 






RAREA 


PUNCH 




/0500 






RAREA 


READ 




/0600 






RAREA 


READ 




/0601 






/OOOO 


SENSE DSW 


/0701 






/OOOO 


SELECT STACKER 


/0480 






/A001 


MSG CODE 


AND NUMBER 


/DEAD 


LAST CARO 



/C001 
/AOAO 
/C002 
/FEED 
/C003 
/AIDE 
/C004 
/ABCD 
/C005 
/FED2 

/E001 
/ICED 
/E002 



MESSAGE NUMBER 
SET BIT 8 FUNC 00 

LOAD BLANKS MAKE RDY 

NOT REAOY 

LD ANY PAT PLUS BLKS 

LOAD FROM STACKER 2 

NO INTERRUPT 



OBOF-O 

6 



DATE 
EC NO. 



28FEB66 
415120 



01NAY66 
415120A 



01JUL66 
415178 



15MAV67 
411731 



01SEP67 
411857 



010CT67 
411875 



80F07240 

8OF07250 

80F07260 

80F07270 

80F07280 

80F07290 

80F07300 

80F07310 

80F07320 

80F07330 

80F07340 

80F07350 

80F07360 

80F07370 

80F07380 

80F07390 

80F07400 

80F07410 

80F07420 

80F07430 

80F07440 

80F07450 

80F07460 

80F07470 

80F07480 

80F07490 

80F07500 

80F07510 

80F07520 

80F07530 

80F07540 

80F07550 

80F07560 

80F07570 

80F07580 

80F07590 

80F07600 

80F07610 

80F07620 

80F07630 

80F07640 

80F07650 

80F07660 

80F07670 

80F07680 

80F07690 

8OFO7700 

80F07710 

80F07720 

80F07730 

80F07740 

80F07750 

80F07760 

80F07770 

80F07780 

80F07790 

80F07600 

80F07810 

80F07820 

80F07830 

80F07840 

80F07850 

80F07860 

80F07870 

80F07880 

80F07890 

80F07900 

80F07910 



PROG ID 
PAGE 



080F-0 
6A 
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0B4B ADOO 


DC 


/ADOO 


BUSY 




80F07920 


0B7F 8200 




OC 


/8200 


COL 26 




0B4C E003 


MB1EE DC 


/E003 






80F07930 


0B80 8100 




DC 


/8100 






0B4D B1EE 


DC 


/B1EE 


DSW BITS IN ERROR 


80F07940 


0B81 8080 




DC 


/8080 






0B4E E004 


MCDEE DC 


/E004 






80F07950 


0B82 8040 




DC 


/8040 






0B4F CDEE 


DC 


/CDEE 


CARD ERROR 




B0F07960 


0B83 8020 




DC 


/8020 






0B50 E005 


MPAR DC 


/E005 






80F07970 


0B84 8010 




DC 


/8010 






0B51 A1EE 


DC 


/A1EE 


PARITY ERROR 




80F07980 


0B85 5000 




DC 


/5000 






0B52 E006 


MSPV DC 


/E006 






80F07990 


0B86 4800 




DC 


/4800 






0B53 CODE 


DC 


/CODE 


STG PROTECT ERROR 


80F08000 


0B87 4400 




DC 


/4400 






0B54 E007 


MRONG DC 


/E007 






80F08010 


0B68 4200 




DC 


/4200 






0B55 BADO 


OC 


/BADO 


RELEASE DEVICE 


TWICE 


80F08020 


0B89 4100 




DC 


/4100 






0B56 E008 


MFDCK DC 


/E008 






80F08030 


0B8A 4080 




DC 


/4080 






0B57 FDCC 


OC 


/FDCC 


FEED CK AT READ STAT 


80F08040 


0B8B 4040 




DC 


/4040 








* 








80F08050 


0B8C 4020 




OC 


/4020 








* 








80F0806O 


0B8D 4010 




DC 


/4010 


COL 40 WAREAS39 






***** 


PIO MID RID MO 0000 




80F08070 


0B8E 3000 




DC 


/3000 








* 








80F08080 


0B8F 2800 




DC 


/2800 








* 








80F08090 


0B90 2400 




DC 


/2400 






0BS8 0001 


INSTL OC 


/0001 


WORD COUNT 




80F08100 


0B91 2200 




DC 


/2200 






0B59 0000 


DC 


/oooo 


HEX CONTROL 




80F08110 


0B92 2100 




DC 


A2100 






0B5A 0000 


MSGL DC 


/oooo 


MESSAGE ID 




80F08120 


0B93 2080 




DC 


/2080 






0B5B 0000 


DC 

* 
* 


/oooo 


CODED MESSAGE 




80F08130 
80F08140 
80F08150 


0B94 2040 
0B95 2020 
0B96 2010 




DC 
DC 
DC 


/2040 
/2020 
/2010 








***** 


PID MID RIB RAO 0000 QOOO 


OOOO 


80F08160 


0B97 OOOO 




DC 


/OOOO 








* 








80F08170 


0B98 FCOO 




DC 


/FCOO 








* 








80F08180 


0B99 03F0 




DC 


/03F0 






0B-5C 0000 


INSTE re 


/oooo 


WORD COUNT 




80F08190 


0B9A FCOO 




DC 


/FCOO 






0B50 0000 


')C 


/oooo 


HEX CONTROL 




80F08200 


0B9B 03F0 




DC 


/03F0 






0B5E 0000 


MSGE DC 


/oooo 


MESSAGE ID 




80F08210 


0B9C OOOO 




DC 


/OOOO 






0B5F 0000 


DC 


/oooo 


CODED MESSAGE 




80F08220 


0B9D 8887 




DC 


/8887 






0B60 0000 


WAS DC 


/oooo 


ERROR BITS 




80F08230 


0B9E 4444 




DC 


/4444 






0B61 0000 


02BE DC 


/oooo 


CORRECT BITS 




80F08240 


0B9F 2222 




DC 


/2222 






0B62 0000 


COL DC 


/oooo 


COL NUMBER IN HEX 


80F08250 


OBAO llll 




DC 


/llll 








* 








80F08260 


0BA1 0007 


K0007 


DC 


/0007 


CONSTANT 






* 








80F08270 


0BA2 8880 




DC 


/8880 








***** 


WRITE 


AREA FOR PUNCH 




80F08280 


0BA3 CCC4 




DC 


/CCC4 






. 


* 








80F08290 


0BA4 AAA2 




DC 


/AAA2 








* 








80F08300 


0BA5 9991 




DC 


/9991 






0B63 4010 


HA40 DC 


/4010 






80F08310 


0BA6 4444 




DC 


/4444 






0B64 4018 


WA40A DC 


/4018 






80F08320 


0BA7 6666 




DC 


/6666 






0B65 8018 


WA79 DC 

* 


/8018 






80F08330 
80F08340 


0BA8 5555 
0BA9 O 2222 




DC 

DC 


/5555 
/2222 






0B66 8010 


WAREA DC 


/8010 


COLUMN 1 




80F08350 


OBAA 3333 




DC 


/3333 






0B67 4020 


DC 


/4020 






80F08360 


OBAB llll 




DC 


/llll 






0B68 2040 


DC 


/2040 






80F08370 


OBAC 0005 




DC 


/0005 


CHECK PCH TERM 




0B69 1080 


DC 


/1080 






80F08380 


OBAD 0006 




DC 


/0006 




0B6A 0900 


DC 


/0900 






80F08390 


OBAE FFF7 




DC 


/FFF7 






0B6B 0600 


DC 


/0600 






80F08400 


OBAF FFF7 




DC 


/FFF7 






0B6C 0600 


DC 


/0600 






80F08410 


OBBO FFF7 




DC 


/FFF7 






0B6D 0900 


DC 


/0900 






80F08420 


0BB1 0008 




DC 


/0008 


COLUMN 76 




0B6E 1080 


DC 


/1080 






80F08430 


0BB2 FFFO 




DC 


/FFFO 




0B6F 2040 


DC 


' /2040 






80F08440 


0BB3 FFFO 




DC 


/FFFO 






0B70 4020 


DC 


/4020 






80F08450 


0BB4 FFFO 




DC 


/FFFO 






0B71 8010 


DC 


/8010 






80F08460 


0BB5 FFFO 




DC 


/FFFO 






0B72 FFF7 


DC 


/FFF7 






80F08470 




* 










0B73 8880 


DC 


/8880 






80F08480 




* 










0B74 CCCO 


DC 


/CCCO 






80F08490 


0BB6 0050 


RAREA 


BSS 


80 


READ AREA 




0B75 EEEO 


DC 


/EEEO 






80F08500 




* 








0B76 FFFO 


DC 


/FFFO 






80F08510 


0C06 0064 




BSS 


100 






0B77 7777 


DC 


/7777 






80F08520 




* 










0B78 3333 


DC 


/3333 






80F08530 




* 










0B79 1111 
0B7A FFF7 


DC 
DC 


/llll 
/FFF7 


COL 21 




80F08540 
80F08550 




* 
* 




THIS AREA 


CAN BE USED FOR PATCH 




0B7B AOOO 


DC 


/AOOO 






80F08560 


0C6A OOOO 


PEND 


DC 


/OOOO 






0B7C 9000 


DC 


/9000 


ALPHA RIPPLE 




80F08570 




* 










0B7D 6 8800 


DC 


/8800 






80F08 580 


0C6C 0826 




END 


GO 






0B7E 8400 


DC 


/8400 






80F08590 


NO ERRORS IN ABOVE 


assembly" 






DATE 


28FEB66 01MAY66 


01JUL66 


15MAY67 


01SEP67 010CT67 




PROG ID 080F-0 


DATE 28FEB66 01MAY66 


01JUL66 


15MAY67 01SEP67 010CT67 
411731 411857 411875 


EC NO. 


415120 415120A 


415178 


411731 


411857 411875 
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EC NO. 415120 415120A 


415178 



80F08600 

80F08610 

80F08620 

80F08630 

80F08640 

80F08650 

80F08660 

80F08670 

80F08680 

80F08690 

80F08700 

80F08710 

80F08720 

80F08730 

80F08740 

80F08750 

80F08760 

80F08770 

80F08780 

80F08790 

80F08800 

80F08810 

80F08820 

80F08830 

80F08840 

80F08850 

80F08860 

80F08870 

80F08880 

80F08890 

80F08900 

80F08910 

80F08920 

80F08930 

80F08940 

80F08950 

80F08960 

80F08970 

80F08980 

80F08990 

80F09000 

80F09010 

80F09020 

80F09030 

80F09040 

80F09050 

80F09060 

80F09070 

80F09080 

80F09090 

80F09100 

80F09110 

80F09120 

80F09130 

80F09140 

80F09150 

80F09160 

80F09170 

80F09180 

80F09190 

80F09200 

80F09210 

80F09220 

80F09230 

80F09240 

80F09250 

80F09260 



PROG ID 
PAGE 



080F-0 
7A 



p 

L 
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C R 

NAME 

BEGIN 

BIT12 

BSY 

BUILD 

BUSY 

CALL 

CCOO 

CHEC 

CHECK 

CHIP 

CNTL 

COL 

COLA 

COLB 

COMP 

CONST 

CRCK 

DLYCT 

D00R1 

D00R2 

DSWBT 

DSW4A 

DUP 

EDIT 

EDIT1 

EDIT2 

END 

EPA 

ERRA 

ERRFD 

ERROR 

ERR1 

FDACD 

FDCK 

FDLCD 

FLIP 

GO 

GONOH 

ILP 

INERR 

INSTE 

INSTL 

IRECD 

KEEP1 

KEEP2 

KEEP3 

KNOW 

K0007 

LABEL 

LCD 

LGA 

LGB 

LOG 

LPA 

MABCD 

MADOO 

MA1DE 

MB1EE 

MCDEE 

MDEAD 

MFDCK 

MFED2 

MFEED 

MLSCF 

MPAR 

MRONG 



S S 
VALUE 
012C 
09D6 
0848 
0839 
0AD7 
0832 
09 D 7 
08CE 
091D 
097C 
09D8 
0B62 
09E5 
09E9 
096D 
09D9 
0133 
0A7F 
08E8 
08F2 
0AC7 
0818 
0941 
0815 
0813 
0814 
012E 
0808 
0AE8 

09E0 
0130 

OADD 

0B2E 

OAFA 

OAOA 

098A 

0826 

099D 

0806 

0AA7 

0B5C 

0B58 

0A9F 

09E6 

09EA 

081B 

0A13 

0BA1 

0A54 

OBOO 

09DA 

09DB 

012F 

0807 

0B44 

0B4A 

0B42 

0B4C 

0B4E 

0B3C 

0B56 

0B46 

OB40 

0809 

0B50 

0B54 



REFERENCE 
REFERENCES 
0826 
09B7 
0834 
083F 

0AC8,0ADB 
0848 
09ED 
08C3 

0911,092A 
0970 
081C 

09E7,09EB,09EE 
095C099F 
0960, 09A2 
097A 
0A91,0A99 

0A75.0A7A 

08D3 

08DA 

OABO 

0824 

0949 

0831, 0835, 0A40,0A46,0A50,0A57 

082E 

0830 

09CF 

09F7,0AE5,0AF1 

08E3,08ED,08F8, 0902, 0927, 0934, 0977, 0984, 09FD,0A04,0A06,0A08 
OAEC 

0AC9,OACA,OACB,0ACC,OACD,0ACE,OAD2,OAD4,OAD5,0AD6,0AEl,0AE6 

0839, 083C, 0898, 08AA,09BC,OAOO 

OACF.OAFE 

08AF,08C4,0912,094C,0969,09CB,OA11 

0976,0993 

0C6C 

096B 

0AB8 

OAEA.OAEE 
0A32 
0820 



0867, 08B1,08C6, 0914, 094E,09A3,09CC,0A16 
0A18 

0A80 

0AD3 

099D 

09A0 

0A30 



09AB 
0AD8 
OBOC 
0AE3 
09F4 
0B01 
OAFB 
08B9 
088E 
0822 
0B19 



,0907,0956 
,093D 

♦O84A,0863,OA3A,0A4A,OA6B,OA82,0A8A,0A95,OACl,OAF6 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



15MAY67 
411731 



01SEP67 
411857 . 



010CT67 
411875 



PROG ID 
PAGE 



080F-0 

8 



DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 
415178 



15MAY67 
411731 



01SEP67 
411B57 



010CT67 
411875 



PROG ID 
PAGE 



080F-0 
8A 



II .1 I, 



1. .1 



II [.. 



J II 



V I. «L 



F 

lI 
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( 

( 

( 
I 

c 
e 

e 

(.. 

c 

(. 
(. 

c 
c 
c 
c 

c 
c 
c 



MSGE 

MSGL 

MSPV 

MSTAR 

M1CED 

NBTHO 

NEXT 

NRDY 

0UT1 

0UT3 

02BE 

PAROR 

PEND 

PID 

PUNCH 

PUNCX 

RAD 

RAREA 

ROY 

READ 

READX 

RECK 

REGO 

REGOT 

RELDV 

REPT 

REPT1 

REPT2 

REQDV 

RETN1 

RETN2 

RETN3 

RETN4 

RIO 

RIDX 

RID1 

RID2 

RI03 

RID4 

RID5 

RID6 

RID7 

RPDVA 

RPREL 

RPREQ 

RTEND 
RTL 

RTLA 

RTM 

RTU 

RTO 

RT1 

RT1A 

RT1B 

RT1C 

RT2 

RT2A 

RT2B 

RT2C 

RT3 

RT3A 

RT4 

RT4A 

RT5 

RT6 



0B5E 
0B5A 
0B52 
0B3E 
0B48 
0830 
096C 
OBOB 
0A3A 
0AF6 
0B61 
0B18 
0C6A 
07FF 
0B30 
0B32 
0801 
0BB6 

0A6F 

0B34 

0B36 

09C0 

OABA 

OABB 

0132 

OAEC 

0AF4 

0AF1 

0131 

0A77 

0A7A 

0A7D 

0A82 

0800 

0B22 

0B1E 

0B20 

0B24 

0B26 

0B28 

0B2A 

0B2C 

0817 

0A3E 

0A4E 

09D1 
0A8E 

0A93 
0A99 
0A86 
0829 
0854 
085C 
0867 
087A 
088E 
0892 
089E 
08A8 
08B9 
08BD 
0907 
090B 
0939 
0956 



0AE9 

0A29 

0876 

0858 

0A9C 

082C 

0968 

087E,0A62tOAC7,0BOF 

0A37 

0AF3 

08DE, 

OADlt 

080D 

0828 

08A2 ( 

0998, 



08E9,08F4,08FE, 0923, 0930, 0973, 0980, 09E1.0AA4 
0B1C 



,0945 

,09C4 



086C, 0874, 08E0,08EB,08F6, 0900, 0925, 0932, 0975, 0982, 098A,098C,098F 
0994,09B5,09B8,09C0,0B12,0B32,0B34,0B36 v O a,u*bl,09BI- 

0A67 

090D, 0964,0981 

0870, 08BF 

09C8 

0AA1 

OABF 

0A44 

0AF4 

OAEF 

OAFO 

0832, 0A54 

0A7C 

0A77 

0A71 

0A79 

0A1A,0A1C,0A87 

0882 

0842, 084E 

0888 

08B3 

08C8 

0916 

0950 

09A5 

0836,083B,0A58,0A5C 

0840, 0880, 09D2,0A0F,0A42,0A48, OABA, 0B08 

OAO^'oA5^'oA7D ,08AO ' 08A8,08BO,090B,0943,0962,0996 * 09AF '° 9BA ' 09C2 
0808, 09D4 

n«nA'^? A ' 08A4 ' 08AC,08C1,090f: ' 09/t7 ' 0966 » 099A ' 9B3,09BE,09C6,OAC5 

0A9B 
0A93 

0844, 0850, 0884, 088A,08B5,08CA, 0918, 0952, 09A7.0A8C 

0806,0807,0846 

0B1F 

0861 

0856, 085F 

086B 

0B21 

08AE,0B23 

089C 

08A6 

0B25 

08E7,08F1,08FC,0906 

0B27 

092B,0938 

0B29 

0B2B 



RT6A 

RT7 

SAVE 

SEE 

SENSE 

SETUP 

SET1 

SET2 

SET3 

SET4 

SET5 

SET6 

SET7 

SHA 

SHB 

SKIP 

SPEC 

STACK 

START 

STDBY 

STGPT 

SHO 

SMI 

SW2 

SW3 

TERM 

TERMR 

TYPE 

TYPEA 

TYPEB 

WAREA 

WAS 

WA40 

MA40A 

HA79 

XX 

XXX 

XXXX 

XXXXX 

ZIP 



0962 
09AB 
09DC 
0A64 
0B38 
0A20 
084E 
0888 
08B3 
08C8 
0916 
0950 
09A5 
09DE 
09DF 
08AF 
08D0 
0B3A 
012D 

0A80 
0B11 
0802 
0803 
0804 
0805 
080C 
092C 
0A28 

0A30 
0A38 
0B66 
0B60 
0B63 
0B64 
0B65 
0831 
092F 
097F 
08FD 
0AC5 



099C 

0B2D 

0AA8,0AAA,0AB6 

0A69 



0819, 087C,09F0,09F9,0A5A,0A5E,0A60,0A64,0AAC,0AB2, OABB 
0A1E 



0A60 



0A21 

0A22 

0A23 

0A24 

0A25 

0A26 

0A27 

095A 

095E 

089D,08A7 

08E6 

089E,0941,094A,09CO,09C9,09F2,09FB,09FF,OAAE,OAB4 

084C, 0852, 0865, 0886, 088C ,08B7 ,08CC ,091A, 0954, 09A9.0A3C, 0A4C, 

0A84,0A97,0AC3,0AF8 

0A56 

0AD0,0B16 

0854,085C,OA01,OA2B,OA6F 

0A14 

082A 

0837, 0869, 0A47.0A59 
0920 

ORn^onI^nf?^ 08BB,0909,093F *° 958 * 09AD ' 0A2E ' 0A35 * 0A9E ' 0AD9 '0AFC 
UdUI,udOu,OB1A 

0A3B 

0A33 

0894,08D0,08D7,091D,093B,096D,0B30 

081E,09E3,0A9F,0ADE,0B05 

0892 

0939 

082F 

092E.0937 
097E,0987 
08F0,08FB,0905 

OABD.OBOA 
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